Deleting rows when value when there is specific text in column I

[chadski778]

Hi,

I would like a macro that deletes rows with the single criteria, the text in column I does NOT contain the words 'Ras Laffan'

Thank you

Chad

 

[VoG]

Try

Sub test()
Dim i As Long, LR As Long
LR = Range("I" & Rows.Count).lend(xlUp).Row
For i = LR To 1 Step -1
    If Not Range("I" & i).Value Like "*Ras Laffan*" Then Rows(i).Delete
Next i
End Sub

 

[chadski778]

I've just tried to run the macro and i get the following error message

Run-time error '438'
Object doesn't support this property or method

The debugger highlights the following line of code

LR = Range("I" & Rows.Count).lend(xlUp).Row

I forgot to add that I want the macro to start at row 2 in column I to preserve my column heading

Thanks

 

[VoG]

Typo

Sub test()
Dim i As Long, LR As Long
LR = Range("I" & Rows.Count).End(xlUp).Row
For i = LR To 2 Step -1
    If Not Range("I" & i).Value Like "*Ras Laffan*" Then Rows(i).Delete
Next i
End Sub

 

[chadski778]

Thanks very much for this