vba not like

phairplay

Active Member
Joined
Nov 2, 2011
Messages
260
Hi can someone please help me.


I have the following vba that removes rows of data from the excel if one of the cells contains any of these words in the string

Dim LR As Long, i As Long
LR = Range("I" & Rows.Count).End(xlUp).Row
For i = LR To 2 Step -1
If Range("I" & i).Value Like "*good*" Or Range("I" & i).Value Like "*transit*" Or Range("I" & i).Value Like "*TRANSIT*" Or Range("I" & i).Value Like "*Good*" Or Range("I" & i).Value Like "*GOOD*" Or Range("I" & i).Value Like "*Transit*" Then Rows(i).delete
Next i

I would like to change this from a like to a not like. leaving every row that does contain these words, deleting everthing else.

can this be done, as i can't get it to work
 

Some videos you may like

Excel Facts

When did Power Query debut in Excel?
Although it was an add-in in Excel 2010 & Excel 2013, Power Query became a part of Excel in 2016, in Data, Get & Transform Data.

Andrew Poulsom

MrExcel MVP
Joined
Jul 21, 2002
Messages
73,092
Try:

Code:
    Dim LR As Long, i As Long
    LR = Range("I" & Rows.Count).End(xlUp).Row
    For i = LR To 2 Step -1
        If Not UCase(Range("I" & i).Value) Like "*GOOD*" And Not UCase(Range("I" & i).Value) Like "*TRANSIT*" Then Rows(i).Delete
    Next i
 

Watch MrExcel Video

Forum statistics

Threads
1,122,556
Messages
5,596,820
Members
414,104
Latest member
imamalidadashzada

We've detected that you are using an adblocker.

We have a great community of people providing Excel help here, but the hosting costs are enormous. You can help keep this site running by allowing ads on MrExcel.com.
Allow Ads at MrExcel

Which adblocker are you using?

Disable AdBlock

Follow these easy steps to disable AdBlock

1)Click on the icon in the browser’s toolbar.
2)Click on the icon in the browser’s toolbar.
2)Click on the "Pause on this site" option.
Go back

Disable AdBlock Plus

Follow these easy steps to disable AdBlock Plus

1)Click on the icon in the browser’s toolbar.
2)Click on the toggle to disable it for "mrexcel.com".
Go back

Disable uBlock Origin

Follow these easy steps to disable uBlock Origin

1)Click on the icon in the browser’s toolbar.
2)Click on the "Power" button.
3)Click on the "Refresh" button.
Go back

Disable uBlock

Follow these easy steps to disable uBlock

1)Click on the icon in the browser’s toolbar.
2)Click on the "Power" button.
3)Click on the "Refresh" button.
Go back
Top