Unsure how to write a loop which intentially skips particualr rows

[EwEn999]

Hi, I've got the below code to behave as expected, but I'd like the loop to skip pre determined rows if its possible.

Sub HidingRowsWhenBlank()
Dim r 'row
    For r = 4 To 62 'skip rows 20 to 31 and rows 41 to 52
        If WorksheetFunction.CountA(Range((Cells(r, 3)), (Cells(r, 33)))) = 0 Then
        Rows(r).Select
        Selection.EntireRow.Hidden = True
    End If
Next r
End Sub

Thanks in adavance

 

[RSpin]

you could do something like this:

Sub HidingRowsWhenBlank()
Dim r 'row
    For r = 4 To 62 'skip rows 20 to 31 and rows 41 to 52
        If WorksheetFunction.CountA(Range((Cells(r, 3)), (Cells(r, 33)))) = 0 Then
        Rows(r).Select
        Selection.EntireRow.Hidden = True
    End If
    If r = 19  or r =40 Then
        r = r + 13
    End If
Next r
End Sub

 

[EwEn999]

I can see what you are trying to do, but rows 19 and 40 need to be checked as well

 

[Fluff]

Rows 19 & 40 will get checked.

 

[EwEn999]

@RSpin

I can see what you are trying to do, but rows 19 and 40 need to be checked as well

apologise for my earlier reply, ive used a variation of what you suggested and it worked, its not as neat and tidy as I was hoping for but it still works.

HidingRowsWhenBlank()
Dim r 'row
    For r = 4 To 62 'skip rows 20 to 31 and rows 41 to 52
        If r = 20 Then
            r = 32
        End If
        If r = 41 Then
            r = 53
        If WorksheetFunction.CountA(Range((Cells(r, 3)), (Cells(r, 33)))) = 0 Then
        [LEFT][COLOR=#333333][FONT=monospace]Rows(r).Select
        Selection.EntireRow.Hidden = True
[/FONT][/COLOR][/LEFT]
    End If
Next r
End Sub

 

[RSpin]

my apologies. looking back I did my math wrong. I believe it should have been

R= R+12

in the original formula. That way when r = 19 or 40, then your code will run, then the addition will happen and finally the "Next r" will happen and you should be good to go.

but what you have should work just fine as well.