Hiding check boxes

[lukemeyer]

I am using standard form check boxes and radio buttons and not activeX boxes. Is there a way to link the boxes so when I click box 1 I get box 2 and 3 to show up. If I click box 4, box 5 and 6 show up. Is this possible with standard form options or do I have to do this with activeX controls?

 

[AlphaFrog]

Assign these macros to Check Box 1 and Check Box 4

Sub CheckBox1_Click()
    ActiveSheet.CheckBoxes("Check Box 2").Visible = ActiveSheet.CheckBoxes("Check Box 1").Value = 1
    ActiveSheet.CheckBoxes("Check Box 3").Visible = ActiveSheet.CheckBoxes("Check Box 1").Value = 1
End Sub

Sub CheckBox4_Click()
    ActiveSheet.CheckBoxes("Check Box 5").Visible = ActiveSheet.CheckBoxes("Check Box 4").Value = 1
    ActiveSheet.CheckBoxes("Check Box 6").Visible = ActiveSheet.CheckBoxes("Check Box 4").Value = 1
End Sub

 

[jasonb75]

Maybe

With ActiveSheet
    .Shapes("Box2").Visible = (.Shapes("Box1").ControlFormat.Value = xlOn)
    .Shapes("Box3").Visible = (.Shapes("Box1").ControlFormat.Value = xlOn)
    .Shapes("Box5").Visible = (.Shapes("Box4").ControlFormat.Value = xlOn)
    .Shapes("Box6").Visible = (.Shapes("Box4").ControlFormat.Value = xlOn)
End With

 

[lukemeyer]

Thank you both for your response. Alpha, yours works perfect, Thank you so much for your help.

 

[lukemeyer]

ok, I am not as average as I thought I was.

Alpha your code worked great for check boxes. I tried to modify it to work on option buttons. (1 option button turns on 2 and 3 the other turns on 4 and 5).

I got this to work fine, but when I go from option 7 to 8 it does not turn off the other cells. What do I have to change for the option buttons to work as check boxes?

My code is below. It is just slightly modified from what Alpha posted.

Sub OptionButton7_Click()
ActiveSheet.CheckBoxes("Check Box 2").Visible = ActiveSheet.OptionButtons("Option Button 7").Value = 1
ActiveSheet.CheckBoxes("Check Box 3").Visible = ActiveSheet.OptionButtons("Option Button 7").Value = 1
End Sub
Sub OptionButton8_Click()
ActiveSheet.CheckBoxes("Check Box 5").Visible = ActiveSheet.OptionButtons("Option Button 8").Value = 1
ActiveSheet.CheckBoxes("Check Box 6").Visible = ActiveSheet.OptionButtons("Option Button 8").Value = 1
End Sub

 

[AlphaFrog]

Sub OptionButton7_Click()
    ActiveSheet.CheckBoxes("Check Box 2").Visible = True
    ActiveSheet.CheckBoxes("Check Box 3").Visible = True
    ActiveSheet.CheckBoxes("Check Box 5").Visible = False
    ActiveSheet.CheckBoxes("Check Box 6").Visible = False
End Sub

Sub OptionButton8_Click()
    ActiveSheet.CheckBoxes("Check Box 2").Visible = False
    ActiveSheet.CheckBoxes("Check Box 3").Visible = False
    ActiveSheet.CheckBoxes("Check Box 5").Visible = True
    ActiveSheet.CheckBoxes("Check Box 6").Visible = True
End Sub