Hide Cells with zero values but blank rows should be ignored

**ckozakos** · 12-20-2011, 06:04 AM

Hi,

I am trying to hide in two columns the cells with zero values using vba but I like to keep the empty rows.

Thank you constantinos

**dilipandey** · 12-20-2011, 06:27 AM

Hi ckozakos,

Use the following code:-

Sub hide()
i = Cells.SpecialCells(xlCellTypeLastCell).Row
Range("a1").Select 'change this with your first column
For a = 1 To i
    If ActiveCell.Value = 0 And ActiveCell.Value <> "" Then
        If ActiveCell.Offset(0, 1).Value = 0 And ActiveCell.Offset(0, 1).Value <> "" Then
        Selection.EntireRow.Hidden = True
        Selection.Offset(1, 0).Select
        End If
    Selection.Offset(1, 0).Select
    Else
    Selection.Offset(1, 0).Select
End If
Next
End Sub

Regards,
DILIPandey

<click on below 'star' if this helps>