Delete Additional Rows

[HangMan]

I'm using this piece of code (as part of a macro) to delete rows 28 to 62 when the values in column F are zero. In addition to this, I want to be able to also delete rows 20 to 27, when the value in C22 is "-". Is there a way to achieve this bearing in mind that not all rows in the range C20:C27 will show "-" ?

With ActiveSheet
                    
      For J = 62 To 28 Step -1
           If .Cells(J, "F") = 0 Then .Rows(J).EntireRow.Delete
     Next J
                                            
End With

Many thanks

[mrice]

Maybe

With ActiveSheet
      If .Cells(22, 3) = "-" Then              
      For J = 27 To 20 Step -1
           .Rows(J).EntireRow.Delete
     Next J
                                            
End With

[HangMan]

Hi Martin,

However much I adjusted the row number in the code I couldn't delete row 20! Not sure what I am doing wrong...

[xladept]

Maybe:

Sub HMDeleteRows()
With ActiveSheet
                    
      For J = 62 To 28 Step -1
           If .Cells(J, "F") = 0 Then .Rows(J).EntireRow.Delete
     Next J
        If Cells(22, 3) = "-" Then _
         Cells(20, 3).Resize(8, 1).EntireRow.Delete Shift:=xlUp
                                            
End With
End Sub

[HangMan]

Hi xladept

That worked perfectly and does delete row 20... still unsure why I couldn't do that with Martin's code, but all working I think!

Many thanks

[xladept]

You're welcome, I can't imagine why Martin's code didn't work, except if you ran it before the other deletions

[HangMan]

No, I ran it in the same place as your code, kept adjusted the row references but couldn't get row 20 to delete. It will be because it's late and I've been staring at this for too long. I'm sure it does work, it's just me