Delete Entire Row If...

[SteveG]

Hello All,

Just need a simple macro (I think) to delete an entire row if a particular word appears in column D. I searched the old posts but didn't come up with exactly what I needed.

My range is A1:G15000. If the word "Classify" appears in column D then delete that entire row, if not skip and continue searching/deleting through the range.

Any help would be much appreciated.

TIA,

Steve

[SteveG]

A little twist to my op.

I wish to delete rows that contain "Classify" in column D but also do not contain "Mail Room" in column A.

TIA,

Steve

[Charles]

Hi,


This loops thru column "D" and looks for your word.
Paste to a module.

Please Login or Register  to view this content.

[SteveG]

Charles,

Thanks for the response. I just tried it and got a compile error at the line formatted in red.


Sub DeleteERow()
Application.ScreenUpdating = False
Dim i As Integer
For i = Range("D65536").End(xlUp).Row To 1 Step -1
If Cells(i, 4).Value = "Classify" and Cells(i,1) .Value <> "Mail Room" Then
Cells(i, 4).EntireRow.Delete
End If
Next i
End Sub



Any ideas?

Thanks again,

Steve

[SteveG]

Charles,

Got it. Spacing error was all. Thanks for your help.

Cheers,

Steve

[Charles]

Hi,

Thanks for letting me know.
Sorry for the typo.