Conditional hiding of rows

[K. Georgiadis]

Could you help me with the VBA syntax to accomplish the following:


On Sheet1 there will be an option button, with the instruction "click here if this is a multilevel calculation"
If the user clicks the option button, rows A5:A8 in Sheet2 are unhidden. Otherwise they remain hidden
Thanks.

KG

[mdmackillop]

Try the following
MD



Sub Macro1()
Sheets("Sheet2").Rows("5:8").Hidden = False
End Sub

[K. Georgiadis]

if this was meant to be a macro assigned to the option button, it did not do the trick for me.

[mdmackillop]

Try setting up a second option button. The following works for me.



Private Sub OptionButton1_Click()
Macro1
End Sub

Private Sub OptionButton2_Click()
Macro2
End Sub

Sub Macro1()
Sheets("Sheet2").Rows("5:8").Hidden = False
End Sub

Sub Macro2()
Sheets("Sheet2").Rows("5:8").Hidden = True
End Sub

[Ken Puls]

If it's an option, I personally prefer to use a checkbox, since you can't "unselect" and option button unless you have a second one.

With a checkbox, you can put all your code in one sub:


Private Sub CheckBox1_change()
Select Case CheckBox1.Value
Case Is = True
Sheets("Sheet2").Rows("5:8").Hidden = False
Case Is = False
Sheets("Sheet2").Rows("5:8").Hidden = True
End Select
End Sub

HTH,

[mdmackillop]

Agreed, The code will only run once with a single option button.
MD