Hide/Unhide Rows Based on Cell Value using VBA

[hlhelterbrand]

Hello,

So until now I have only viewed answers on this site, but it has helped me sooo many times! I could not find an answer to the question below, so hopeful one of you awesome people can help!

So I have few versions of what I have tried, but I think that a command button would work best. I am trying to use the name in column 2 to determine if the data in that row should be hidden or not. Ideally I would like the button to hide all lines that contain the name, then unhide all of those rows when clicked again.

Below is some code that I came up with, but it isn't working


Private Sub CommandButton1_Click()
BeginRow = 1
EndRow = 250
ChkCol = 2


If CommandButton1.Caption = "Hide Information" Then
ElseIf Cells(RowCnt, ChkCol).Value = "John Smith" Then
Cells(RowCnt, ChkCol).EntireRow.Hidden = True
CommandButton1.Caption = "Show Information" And Cells(RowCnt, ChkCol).Value = "John Smith"
Else
Range("D:G, AF:AG, AJ:AO").EntireRow.Hidden = False
CommandButton1.Caption = "Hide Information"
End If
Next
End If
Next
End Sub

 

[mole999]

use two buttons, that way you aren't trying to make a toggle

 

[hlhelterbrand]

I am trying to make the report user friendly. There are 18 different name buttons and I want each user to be able to select/ unselect their name. I have a master button that hides all, but it is not as natural. I have had two people test it out and they try to select the user button to hide/ unhide the information.