VBA Delete row if certain cell ifs blank

[ORoxo]

Hey, everyone,
I need your help once again.

I have lots of data and would need to delete rows if certain cells are blank (For instance, if column X, Z or Y in a row are blank, I want the macro to delete the whole row)

Typically I would try to do it myself but I have a deadline and time is running out. Do you think you could help me out?

Kind regards,

 

[My Aswer Is This]

Assuming you have values in all rows in column "A"
Try this:

Sub Filter_Me()
'Modified 3-4-2018 10:25 AM EST
   Application.ScreenUpdating = False
     Dim i As Long
    
    For i = 1 To 3
    With ActiveSheet.Range("X1:Z" & Cells(Rows.Count, "A").End(xlUp).Row)
        .AutoFilter i, Criteria1:=""
        .Offset(1).SpecialCells(12).EntireRow.Delete
        .AutoFilter
       End With
    Next
Application.ScreenUpdating = True
End Sub

 

[Fluff]

Another option is

Sub delrws()
   Dim i As Long
   For i = 24 To 26
      Columns(i).SpecialCells(xlBlanks).EntireRow.Delete
   Next i
End Sub

 

[Peter_SSs]

Peter:
I hear people on this forum saying don't use loops they are too slow.
So I use filter but your saying your script which uses a loop is faster then a filter. Why is that?

I answered that exact question for you a few months ago.
Refer to the first part of this post.

@ ORoxo
For consideration if your data is large. Testing the codes suggested on 10,000 rows of data, about 3,000 of which require deletion:

Post # 2: 11.938 seconds
Post # 4: 7.109 secs
Post # 5: 0.078 secs
Post # 6: 6.719 secs
Post # 7: 4.641 secs

Updating for the new suggestions (same sample data)
Post #11 : 2.480 secs
Post #12 : 2.301 secs

 

[ORoxo]

Thanks, guys!!

I tried all the solutions provided and all of them worked like a charm!

 

[Fluff]

Glad we could help & thanks for the feedback

 

[hiker95]

Oroxo,

Thanks for the feedback.

You are very welcome. Glad we could help.

And, come back anytime.