Hide Cells with Zero values

[pambard]

Is there any way to hide cells with Zero values? I have around 2000 rows and need to hide Zero values before printing.

Thanks, Pravin

 

[stemar]

Try this:

Sub Hide()

Const LastRow As Integer = 2000
Const DataCol as Integer = (the test column)
Dim Row As Integer

For Row = 1 To LastRow
If CInt(Cells(Row, DataCol)) = 0 Then
ActiveSheet.Rows(Row).Hidden = True
Else
ActiveSheet.Rows(Row).Hidden = False
End If
Next Row

End Sub

Put your own values in the constants. (You could just put values in the code. I've got in the habit of using constants because with more complex code, it's a lot easier to figure out what's going on a year later!)

Using CInt means it will still work if there are errors in the column, otherwise it falls over

 

[Scott Huish]

How about something like this:

Private Sub Workbook_BeforePrint(Cancel As Boolean)
ActiveWindow.DisplayZeros = False
End Sub

Sub TurnOnZeros()
ActiveWindow.DisplayZeros = True
End Sub