Delete entire rows based on content

[plans]

Hello,

In my active worksheet I have multiple rows.
The rows number can vary.
I need a macro to delete the entire rows when column F does not contain the word "OK"

I can do it through looping but when I delete a row, the loop number needs to be readjusted, meaning I start over again by getting the LastRow which is a very time consuming process.
I am sure there is a better way to do this.
Please advise.

[TMS]

If you use a loop, you first need to determine the rows and then count up from the bottom ... that is, For x = LR to 1 step -1. Probably slow if there are a lot of rows.

Better would be to use AutoFilter. Record a macro while you filter the data, then select the visible rows, delete them and clear the filter.

[plans]

TMS,

Thanks for looking into this.
I tried what you have suggested.
My data does not have a header and the range I am getting with the recording is not useful when I want to run the macro with a different row numbers than the recorded.

Any good ideas?
Thanks

[nankw83]

Hi plans,

Try below code ... This gives you an idea about the approach so you may need to adjust based on you actual data structure

Please Login or Register  to view this content.

[plans]

Thank you, nankw83.
It worked!