Drop down questions with radio buttons

[riedyp]

Hello,
I am trying to complete a form that originally shows 6 questions, each with 3 radio buttons assigned a macro and grouped in a "group box". The macros will reveal a a row to a follow up question that may have another set of radio buttons grouped with a "group box." My issue is that when everything is hidden under its question(or rolled up) the group boxes and radio buttons cluster and then the buttons start to think they are in different group boxes i believe. Is there any way to fix this?

'Radio Button


'Private Sub OptionButton1_Click()
 '   Set Q7 = Worksheets("Radio button").Shapes("OptionButton1")
  '  If Q7.ControlFormat.Value = xlOn Then
   ' Me.Rows("11").Visible = xlRowsHidden
    'Me.Rows("10").Visible = xlRowsVisible
    'Else
    'Me.Rows("11").Visible = xlRowsVisible
    'Me.Rows("10").Visible = xlRowsHidden
    'End If
  
'End Sub



Sub Yes_1() ' Yes Macro for Q1
    Rows("10:10").Hidden = False
    Rows("11:11").Hidden = True
    Rows("12:12").Hidden = True
End Sub
Sub No_1() ' No Macro for Q1
    Rows("10:10").Hidden = True
    Rows("11:11").Hidden = False
    Rows("12:12").Hidden = True
End Sub
Sub NA_1() 'Na Macro for Q1
    Rows("11:11").Hidden = True
    Rows("10:10").Hidden = True
    Rows("12:12").Hidden = False
End Sub
'''''''''''''''''''''''''''''''''''''''''''Q10

Sub Yes_4() ' Yes Macro for Q4
    Rows("19:20").Hidden = False
    Rows("21:23").Hidden = True
    Rows("24:24").Hidden = False
    Rows("25:27").Hidden = True
    Rows("28").Hidden = True
    
    ActiveSheet.Shapes("Option Button 115").Visible = True 'Yes Sub 1
    ActiveSheet.Shapes("Option Button 116").Visible = True 'No  Sub 1
    ActiveSheet.Shapes("Option Button 117").Visible = True 'N/A Sub 1
    
    ActiveSheet.Shapes("Option Button 120").Visible = True 'Yes Sub 2
    ActiveSheet.Shapes("Option Button 121").Visible = True 'No  Sub 2
    ActiveSheet.Shapes("Option Button 122").Visible = True 'N/A Sub 2
End Sub
Sub No_4() ' No Macro for Q4
    Rows("19:20").Hidden = True
    Rows("21:23").Hidden = True
    Rows("24:24").Hidden = True
    Rows("25:27").Hidden = True
    Rows("28").Hidden = True
    
    ActiveSheet.Shapes("Option Button 115").Visible = False 'Yes Sub 1
    ActiveSheet.Shapes("Option Button 116").Visible = False 'No  Sub 1
    ActiveSheet.Shapes("Option Button 117").Visible = False 'N/A Sub 1
    
    ActiveSheet.Shapes("Option Button 120").Visible = False 'Yes Sub 2
    ActiveSheet.Shapes("Option Button 121").Visible = False 'No  Sub 2
    ActiveSheet.Shapes("Option Button 122").Visible = False 'N/A Sub 2
End Sub
Sub NA_4() ' NA Macro for Q4
    Rows("19:20").Hidden = True
    Rows("21:23").Hidden = True
    Rows("24:24").Hidden = True
    Rows("25:27").Hidden = True
    Rows("28").Hidden = False
    
    ActiveSheet.Shapes("Option Button 115").Visible = False 'Yes Sub 1
    ActiveSheet.Shapes("Option Button 116").Visible = False 'No  Sub 1
    ActiveSheet.Shapes("Option Button 117").Visible = False 'N/A Sub 1
    
    ActiveSheet.Shapes("Option Button 120").Visible = False 'Yes Sub 2
    ActiveSheet.Shapes("Option Button 121").Visible = False 'No  Sub 2
    ActiveSheet.Shapes("Option Button 122").Visible = False 'N/A Sub 2
End Sub
'''''''''''''''''''''''''''''''''''''''''''''''Q10 Subquestion 1
Sub Yes_5() ' Yes Macro for Q4 Sub 1
    Rows("21:22").Hidden = False
    Rows("23").Hidden = True
End Sub
Sub No_5() ' No Macro for Q4 Sub 1
    Rows("21:22").Hidden = True
    Rows("23").Hidden = True
End Sub
Sub NA_5() ' NA Macro for Q4 Sub 1
    Rows("21:22").Hidden = True
    Rows("23").Hidden = False
End Sub
'''''''''''''''''''''''''''''''''''''''''''''''Q10 Subquestion 2
Sub Yes_6() ' Yes Macro for Q10 Sub 2
    Rows("25:26").Hidden = False 'Yes
    Rows("27").Hidden = True 'NA
End Sub
Sub No_6() ' No Macro for Q10 Sub 2
    Rows("25:26").Hidden = True 'Yes
    Rows("27").Hidden = True 'NA
End Sub
Sub NA_6() ' NA Macro for Q10 Sub 2
    Rows("25:26").Hidden = True 'Yes
    Rows("27").Hidden = False 'NA
End Sub
'''''''''''''''''''''''''''''''''''''''''''''''Q11
Sub Yes_7() ' NO Macro for Q11
    Rows("31").Hidden = True 'Yes
End Sub
Sub No_7() ' NO Macro for Q11
    Rows("31").Hidden = False 'No
End Sub
Sub NA_7() ' NA Macro for Q11
    Rows("31").Hidden = True 'NA
End Sub
'''''''''''''''''''''''''''''''''''''''''''''''Q12
Sub Yes_8() ' Yes Macro for Q12
    Rows("34").Hidden = False 'Yes
End Sub
Sub No_8() ' No Macro for Q12
    Rows("34").Hidden = True 'No
End Sub
Sub NA_8() ' NA Macro for Q12
    Rows("34").Hidden = True 'NA
End Sub
'''''''''''''''''''''''''''''''''''''''''''''''Hide Group Boxes
Sub ToggleVisible()
Dim myGB As GroupBox
For Each myGB In ActiveSheet.GroupBoxes
myGB.Visible = False
Next myGB
End Sub

 

[John_w]

Did you see my reply in your other thread about not using Group Boxes?

Hiding activex checkboxes

Hello, I am trying to hide/unhide rows and activex checkboxes based off of the value of an existing activex checkbox. I am trying to: - Unhide Rows(18:19,22) when the "Yes" checkbox of row 17 is True. - Unhide Rows(20:21) when the "Yes" checkbox of row 19 is True. - Unhide Rows(23:24) when...

www.mrexcel.com

Instead, set the GroupName property of every Option Button, giving the same GroupName to each group of option buttons.

 

[riedyp]

I did but my issue is that I needed to use Form Control option buttons to have a cell link to another to change its color. I figured out my issue, but is it possible to have a Activex option button control the formatting of another cell?