Hide rows in range when value in COL A = 0

[JamesGilchrist]

Hi All,

Need some code to do the following.

For a range of rows from Row 10 to 50000
Hide any row where COL A has a value = 0

Many thanks....sorry for such a numpty question.

James

 

[Michael M]

If the 0 is NOT the result of a formula, use

Sub MM1()
  With Range("A1", Cells(Rows.Count, "A").End(xlUp))
    .Replace 0, "#N/A", xlWhole, , False, , False, False
    Columns("A").SpecialCells(xlConstants, xlErrors).EntireRow.Hidden = True
  End With
End Sub

 

[MARK858]

Is filtering (either manually or with code) on doesn't equal zero an option?

 

[JamesGilchrist]

Unfortunately it is the result of a formula. What about that it must only apply for rows 10 to 50000?

 

[Michael M]

Maybe then...

Sub MM2()
Range("a10:a50000").AutoFilter Field:=1, Criteria1:="<>0"
End Sub

 

[MARK858]

Hi Michael, sure not A9 rather than A10 for the header row

 

[Michael M]

@MARK858
Good point, but I'm sure the OP can make that call....