Hide Entire Row based on cell equalling "Zero" using a Command Button

[D_Spark]

Can someone please assist?

i have a very large workbook with some 200+ rows, (column c4:c220) contain a numberic value.

I want a commandbutton when clicked to hide any row where the c column value for that particular row equals zero

eg

If

c4=1
c5=0
c6=2
c7=0
c8=12
c9-11
c10=1
c12=0

when CommandButton1_Click() rows (5,7,and 12) will all be hidden

I also want a code so that when CommandButton2_Click() is pressed all rows c4:c200 are unhidden

 

[VoG]

Try

Private Sub CommandButton1_Click()
Dim c As Range
For Each c In Range("C4:C200")
    c.EntireRow.Hidden = c.Value = 0
Next c
End Sub

Private Sub CommandButton2_Click()
Rows("4:200").Hidden = False
End Sub

 

[maclachlan]

VOG Thanks for the code that works great. How would I modify the code to use a named range instead of specific row numbers. This way the vba will grow as the user adds new rows into the range.
Thanks
Rob

 

[VoG]

VOG Thanks for the code that works great. How would I modify the code to use a named range instead of specific row numbers. This way the vba will grow as the user adds new rows into the range.
Thanks
Rob

Try like this

Private Sub CommandButton1_Click()
Dim c As Range
For Each c In Range("MyRange")
    c.EntireRow.Hidden = c.Value = 0
Next c
End Sub

Private Sub CommandButton2_Click()
Range("MyRange").EntireRow.Hidden = False
End Sub