Delete rows based on cells that equal zero

I have a worksheet (Sheet1) that I want to write code for that searches column G for all the cells that equals zero. Then I want the code to delete those rows that contains zero in column G.

Here is what I came up with so far but I get a complie error at "Range(r).EntireRow.Select"

Please Login or Register  to view this content.

Hi jadown, you are violating Rule three of the forum rules. Please wrap your code with code tags to make it better for us to assist you.

I'm struggling a bit to understand what you are trying to do with the the code you've written but this is the basic idea how to conditionally delete rows by looping through them:

Please Login or Register  to view this content.

Note that I am looping backwards through the rows otherwise it won't work properly.

Another option is to use autofilter and then just delete the visible cells. If you do a search of the forum you should find plenty of examples.

Please remember to use code tags when posting code to the forum as well.

Dom

Just change this:

Please Login or Register  to view this content.

to this:

Please Login or Register  to view this content.

Dom