Delete Row if Cell has a 0 value

[gottimd]

I want the Macro to look in the column c6:c224, and if the cell has a zero value it deletes that row, but cycle through all the cells in c6 through c224 in doing that, not just to stop after the first one.

Can anyone help out?

 

[Von Pookie]

I think I know what's wrong....

If, for example, it finds 0 at cell A1, it'll delete the row and then move to cell A2. It doesn't recognise that the value that was previously in A2 is now in A1, if you get what I mean.

How can this be worked around?

Oops! Nice catch. Apparently when I breezed through a "test" when writing that, I didn't have any rows with zero together

 

[Yesuslave]

Hi,

Ok, this seems pretty simple, unless I'm missing something, this should do it.


Sub DeleteZero()

Dim intEnd As Integer

intEnd = 224

Range("C6").Select

Do Until ActiveCell.Row = intEnd

If Int(ActiveCell.Value) = 0 Then
Range(ActiveCell.Row & ":" & ActiveCell.Row).Delete
intEnd = intEnd - 1
Else
ActiveCell.Offset(1, 0).Select
End If

Loop


End Sub


This will not go to row 224 if you are deleting rows, but reduce the end row if rows are deleted.

Peace,
Joshua