Deleting Entire Rows in Range

[airforceone]

needed help again....
what I'm trying to do is, loop thru the range (until last row) and delete entire rows if cell is empty/blank or cell value not equal to "PAID"
below code does not seem to work

    LROW = 2
    Do While LROW <= LastRow
        If (IsEmpty(Cells(LROW, 4)) = True Or Not Cells(LROW, 3).Value Like "PAID") Then
            rows(LROW).Delete
        End If
        LROW = LROW + 1
    Loop

I already went on reading the following post to no avail...

Delete entire column if row 5 is blank

Hi, I have a file where i'd like to delete entire column where row #5 is blank. I have below code where it deletes entire column if it is completely blank. I want to narrow it down and delete entire column if row 5 is blank in the range. Can anyone help me modify the code. My range is from...

www.mrexcel.com

Delete entire row that is blank in column by header name

I have a code that finds the header by name. I also have a code for deleting entire row(s) that have no value in a cell. What I am trying to do is find a column, by the header name, and delete all rows that have no value in this column. Here is the code I am using to find the column Dim...

www.mrexcel.com

 

[Peter_SSs]

If you are going to loop row-by-row to delete, best to start from the bottom and work up

However, still I would normally try to delete them all at once. If the data is not huge, try

With Range("D1:D" & LastRow)
  .AutoFilter Field:=1, Criteria1:="", Operator:=xlOr, Criteria2:="PAID"
  .Offset(1).Resize(.Rows.Count - 1).EntireRow.Delete
  .AutoFilter
End With

If the data is huge and that code takes too long, post back for a faster (but longer) code.

 

[airforceone]

If you are going to loop row-by-row to delete, best to start from the bottom and work up

However, still I would normally try to delete them all at once. If the data is not huge, try

With Range("D1:D" & LastRow)
  .AutoFilter Field:=1, Criteria1:="", Operator:=xlOr, Criteria2:="PAID"
  .Offset(1).Resize(.Rows.Count - 1).EntireRow.Delete
  .AutoFilter
End With

If the data is huge and that code takes too long, post back for a faster (but longer) code.

thanks again @Peter_SSs will merge code this afternoon and update you soon...

 

[airforceone]

@Peter_SSs truly your a great help! your code is good and it flies!
but please kindly indulge with me, what's the ".AutoFilter" do after deleting the rows?

 

[Peter_SSs]

Glad it works well enough for you. Thanks for the confirmation.

what's the ".AutoFilter" do after deleting the rows?

My code uses AutoFilter to hide all the rows that you want to keep and show the ones you want to delete.
It then deletes the visible rows.
If we did nothing else, the rows you want to keep would still be hidden. That line of code unhides them.

 

[airforceone]

Glad it works well enough for you. Thanks for the confirmation.


My code uses AutoFilter to hide all the rows that you want to keep and show the ones you want to delete.
It then deletes the visible rows.
If we did nothing else, the rows you want to keep would still be hidden. That line of code unhides them.

big tango! will not be the last! cheers mate...