PDA

View Full Version : Toggle to Hide Rows



rbell22
01-17-2017, 12:31 PM
Hi All,

Thanks in advance for your help. I hope this will be fairly easy, but I have spent quite a bit of time on this, and I couldn't quite get it.

I need a Toggle code that if I click on it, rows 8:126 will be hidden no matter their value and the rest of the rows will be shown. And if I click again, rows 128:129 will be hidden no matter their value and the rest of the rows will be shown.

Thanks again,

Rob

JKwan
01-17-2017, 03:30 PM
Add a ToggleButton to your sheet and put the following code in

Private Sub ToggleButton1_Click()
Select Case Rows("8:126").Hidden
Case True
Rows("128:129").Hidden = True
Rows("8:126").Hidden = False
Me.ToggleButton1.Caption = "128 - 129 Hidden"

Case False
Rows("8:126").Hidden = True
Rows("128:129").Hidden = False
Me.ToggleButton1.Caption = "8 - 126 Hidden"
End Select
End Sub

rbell22
01-18-2017, 07:19 AM
This is perfect. Thank you so much




Add a ToggleButton to your sheet and put the following code in

Private Sub ToggleButton1_Click()
Select Case Rows("8:126").Hidden
Case True
Rows("128:129").Hidden = True
Rows("8:126").Hidden = False
Me.ToggleButton1.Caption = "128 - 129 Hidden"

Case False
Rows("8:126").Hidden = True
Rows("128:129").Hidden = False
Me.ToggleButton1.Caption = "8 - 126 Hidden"
End Select
End Sub