Alternative to For Loop for Hiding Rows

[Ottsel]

Using a for loop to hide a section of rows, but this workbook I'm using is bound to Excel 2003 and the booklet is very large, which causes huge delays.

Currently, using the following, but it takes a long time and can cause the booklet to crash. Is there a way to make it so the rows are all selected at once and hidden?

dim i as integer

For i = 300 to 350
if cells(i,1).value = 0 then
cells(i,1).entirerow.hidden = true
else
cells(i,1).entirerow.hidden = false
end if
next i

 

[Joe4]

You could use a Filter on that section of rows to hide all rows equal to 0, i.e.

    Range("A300:A350").AutoFilter
    ActiveSheet.Range("A300:A350").AutoFilter Field:=1, Criteria1:="<>0"

 

[Ottsel]

You could use a Filter on that section of rows to hide all rows equal to 0, i.e.

    Range("A300:A350").AutoFilter
    ActiveSheet.Range("A300:A350").AutoFilter Field:=1, Criteria1:="<>0"

Thank you! that seems to do the trick.

Had to change the Criterial:="<>0" to Criterial:="1".

 

[mmhill]

If you need to include row 300 in the hide/don't hide you need to add a line for that as Autofilter assumes this is a header row and won't apply the filter to it.

    With Range("A300:A350")
        .AutoFilter Field:=1, Criteria1:="<>0", VisibleDropDown:=False
        If .Cells(1) = 0 Then .Cells(1).EntireRow.Hidden = True Else .Cells(1).EntireRow.Hidden = False
    End With