VBA: Removing rows from range based on criteria

[wigarth]

Hi!

I have a sheet with data.
I want to remove the entire row if range B137 to b23368 is "0"

I have the following code (se below)
The code works fine, but if I have two 0's in a row, it will skip the 2nd one for some reason. (I guess thats becuase it moves the row one line up after deleting it)
I tried to just run the macro several times, wich also works, but its time consuming and really annoying.
I need to point out that all data above B137 can not be modified by this macro.

Any solutions here?
Best Reggards:
Wigarth

For Each cell In Range("b137:b233")
  If Not IsEmpty(cell) Then
      If cell.Value = 0 Then
      cell.EntireRow.Delete
      End If
  End If
Next

 

[Fluff]

Try

   Dim i As Long
   For i = 233 To 137 Step -1
      If Not IsEmpty(Range("B" & i)) And Range("B" & i).Value = 0 Then Rows(i).Delete
   Next i

 

[wigarth]

And there you go posting 4 lines of code rather than me running my own macro 17 times in loop...

VBA never seems to stop to amaze me.

Thank you so much for the help Fluff! Worked like a dream!

 

[Fluff]

Glad to help & thanks for the feedback.

When deleting/inserting rows it's always better working from the bottom up, for the reasons you have discovered.