Hide and unhide rows

[Moluccanmom]

Hello,<o></o>
<o></o>
I have a button that hides rows with value 0 incolumn A.<o></o>
<o></o>

[SIZE=3][COLOR=#000000][FONT=Calibri]Sub HideRows()<o:p></o:p>[/FONT][/COLOR][/SIZE]
<o:p></o:p>
[SIZE=3][COLOR=#000000][FONT=Calibri]LastRow = 400 <o:p></o:p>[/FONT][/COLOR][/SIZE]
[SIZE=3][COLOR=#000000][FONT=Calibri]For i = 1 To LastRow <o:p></o:p>[/FONT][/COLOR][/SIZE]
<o:p></o:p>
[SIZE=3][COLOR=#000000][FONT=Calibri]If Range("A" & i) = 0 Then Rows(i).EntireRow.Hidden = True<o:p></o:p>[/FONT][/COLOR][/SIZE]
[SIZE=3][COLOR=#000000][FONT=Calibri]Next<o:p></o:p>[/FONT][/COLOR][/SIZE]
<o:p></o:p>
[SIZE=3][COLOR=#000000][FONT=Calibri]End Sub[/FONT][/COLOR][/SIZE]

<o></o>
<o></o>
Is there a way to unhide all rows by clicking the button a second time?<o></o>
<o></o>
Thank you!<o></o>

 

[Joe4]

One way is to use some unused cell on your sheet (like AZ1) to store whether or not the rows are hidden/unhidden, and then use an IF statement.
Something like:

Sub HideRows()

    Dim LastRow As Long
    Dim i As Long
    Dim Status As String
    
    LastRow = 400
    
'   Get status from cell AZ1
    Status = Range("AZ1")
    
'   Check status
    If Status = "Hidden" Then
'       Unhide all rows
        Rows("1:" & LastRow).Hidden = False
'       Update status
        Range("AZ1") = "Unhidden"
    Else
'       Go through hide process
        For i = 1 To LastRow
            If Range("A" & i) = 0 Then Rows(i).EntireRow.Hidden = True
        Next i
'       Update status
        Range("AZ1") = "Hidden"
    End If
    
End Sub

 

[Moluccanmom]

Thank you so much, this works great!!

 

[Joe4]

You are welcome!
Glad I was able to help!