Button to hide/unhide rows with specific text

[Rick127]

Hi
I have inserted a button using the developer tab.

I want to click the button to hide/unhide rows containing specific text in column G

Can anyone help with the Macro for this?

It starts with Sub Button9_Click( )

Thanks!

 

[Rick127]

Use this for the code of your Button9 to hide rows

Sub Button9_Click()
   
    Dim lastRow As Long, cel As Range
   
    With Sheets("UK 23-24 US 2023")
        lastRow = .Range("G" & .Rows.Count).End(xlUp).Row
        For Each cel In .Range("G2:G" & lastRow)
            If cel = "Sent to HMRC/IRS" Then
                If IsEmpty(cel.Offset(, 5)) Then
                    If IsDate(cel.Offset(, 7)) Then
                        cel.EntireRow.Hidden = True
                    End If
                End If
            End If
        Next cel
    End With
       
End Sub

and add another button (for me it was Button10) to unhide all rows

Sub Button10_Click()
Sheets("UK 23-24 US 2023").Rows.Hidden = False
End Sub

Hope that helps

It works, thank you!

 

[NoSparks]

You're welcome, thanks for letting me know.
Would be appreciated if you would also mark the post that was the solution
Thanks