Toggle Button VBA - hide rows based on cell value

[mark9988]

Hello,

I have two worksheets in my workbook.

Cell A1 in Sheet1 has a validation box that allows values 1,2,3 to be selected

There is a toggle button in Sheet2.

• If the toggle button is clicked while cell A1 contains value "1", I need rows 10 through 30 hidden in Sheet2
• If the toggle button is clicked while cell A1 contains value "2", I need rows 15 through 30 hidden in Sheet2
• If the toggle button is clicked while cell A1 contains value "3", I need rows 20 through 30 hidden in Sheet2

Thank you very much!!

 

[My Aswer Is This]

Why are you using a Toggle button?
Normally a Toggle button is used to do one thing if Toggle button= True and another thing if Toggle button= False

Toggle Buttons are always True or False.

Are you trying to hide or unhide the rows?

 

[mark9988]

Why are you using a Toggle button?
Normally a Toggle button is used to do one thing if Toggle button= True and another thing if Toggle button= False

Toggle Buttons are always True or False.

Are you trying to hide or unhide the rows?

Yes, I'm trying to hide rows

 

[My Aswer Is This]

Yes, I'm trying to hide rows

So you're not wanting to unhide any rows?

Then Try This:

Private Sub ToggleButton1_Click()
'Modified  6/30/2022  5:38:53 PM  EDT
Select Case Sheets(1).Cells(1, 1).Value

Case 1: Sheets(2).Rows("10:30").Hidden = True
Case 2: Sheets(2).Rows("15:30").Hidden = True
Case 3: Sheets(2).Rows("20:30").Hidden = True

End Select

End Sub

 

[My Aswer Is This]

Modify sheet names if needed.
Sometimes when people say Sheet1
It may mean first sheet created
Or first sheet on Task bar

I like it when people say sheet named "Alpha" Or "Bravo" or such.

 

[mark9988]

Modify sheet names if needed.
Sometimes when people say Sheet1
It may mean first sheet created
Or first sheet on Task bar

I like it when people say sheet named "Alpha" Or "Bravo" or such.

works great, thank you!

 

[My Aswer Is This]

works great, thank you!

Glad I was able to help you.
Come back here to Mr. Excel next time you need additional assistance.