Hide Row if "H" found

[The Animal]

Hi.
I would like to create a toggle button that hides all rows if the letter "H" in found in the "A" column.

Any help with a formula that I can attach to a text box button would be great.

Thanks Stephen

 

[DanteAmor]

Put the following code in your ToggleButton. I guess it's a togglebutton ActiveX

Private Sub ToggleButton1_Click()
    
    Application.ScreenUpdating = False
    Cells.EntireRow.Hidden = False
    
    For i = 2 To Range("A" & Rows.Count).End(xlUp).Row
        If Cells(i, "A").Value = "H" Then
            Rows(i).EntireRow.Hidden = ActiveSheet.ToggleButton1
        End If
    Next
    
End Sub

 

[The Animal]

Thanks so much.
Was just going to assign to a text box

 

[DanteAmor]

I do not understand, do you want the code for the togglebutton?
What do you want the textbox for?

 

[The Animal]

Hi.

I normally use a text box and just assign the formula to that text box that way I have control of all properties of the box. For example below may be applied to a text box to hide/unhide rows.

Sub ToggleCurrentMYOB()
ActiveSheet.Unprotect
Range("BF:BO").Columns.Hidden = Not Range("BF:BO").Columns.Hidden
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True _
, AllowFormattingCells:=True, AllowFormattingColumns:=True, _
AllowFormattingRows:=True, AllowInsertingColumns:=True, AllowInsertingRows _
:=True, AllowFiltering:=True
End Sub

So was enquiring what formula would look like if I was doing above.

 

[DanteAmor]

text box? or commandbutton?

Could you upload an image of your sheet to the cloud for what you have and what do you call textbox?

 

[The Animal]

Hi

Cannot upload ATM

But yes Insert>Text Box, draw the Text Box and then assign or create the macro to the text box.

I just need a macro that hides and unhides the full rows if "H" is found in A4:A1500

Thanks

 

[DanteAmor]

Like this:

Private Sub TextBox1_GotFocus()
    Application.ScreenUpdating = False
    For i = 2 To Range("A" & Rows.Count).End(xlUp).Row
        If Cells(i, "A").Value = "H" Then
            Rows(i).EntireRow.Hidden = Not Rows(i).EntireRow.Hidden
        End If
    Next
End Sub

 

[The Animal]

Thanks

 

[DanteAmor]

You're welcome