Macro Help / Question

  • Thread starter Thread starter Ed
  • Start date Start date
E

Ed

I have a macro that deletes the entire row if it matches certain criteria.
What I need help with is I need to delete rows that DO NOT MATCH specfic
criteria. Instead of "Like" I need a "not like" or similar. I want to delete
the row if it does not contain 591119.

T.I.A.
Ed


Sub DeleteRow2()
Dim LastRow As Long
Dim i As Long
LastRow = Range("A6536").End(xlUp).Row
For i = LastRow To 1 Step -1

If Range("S" & i).Value Like "VIP CHRG" Then
Range("S" & i).EntireRow.Delete
End If
Next 'i

For i = LastRow To 1 Step -1
If Range("S" & i).Value Like "EXCHANGE" Then
Range("S" & i).EntireRow.Delete
End If
Next 'i

End Sub
 
Add NOT

If Not Range("S" & i).Value Like "VIP CHRG" Then



If Not Range("S" & i).Value Like "EXCHANGE" Then
 
if instr(1,Range("S" & i).Text,"591119",vbTextCompare) = 0 then
Range("S" & i).entireRow.Delete
End if
 
Back
Top