Conditional row delete using macr

[Guest]

The macro below deletes alternate rows instead of all rows with Zero. I do not
know VBA. What is wrong.

Application.Goto Reference:="col"
For Each cell_in_loop In Range("col")
If cell_in_loop.Value=0 Then With cell_in_loop.EntireRow.Delete
End With
End If
Next
ActiveWorkbook.SaveAs Filename:=C\Data\Sales.............

 

[daverico]

This is not going to work because you are deleting one row and then th
loop goes onto the next one (when it should stay at the same row an
question it again).

More appropriate might be (substitute "A" with the column that has th
values in):
dim y as long
dim x as long
y = range("A65536").end(xlup).row
x = 1
while x < y +1
If range("A" & x).Value=0 Then With range("A" & x).EntireRow.Delete
End With
y = y - 1
else
x = x + 1
End If
wend
ActiveWorkbook.SaveAs Filename:=C\Data\Sales.............

This should work

 

[Guest]

Hi
you have to work from the bottom up to the top.