How to relate. OPTION BUTTONS

[_movenblvck_]

I've got a project about Excel.. In userform I need to have a group of option buttons .. Lets say 2 groups of optionbutton. Group1 has a 2 Option button and Group 2 has four.so i need to relate the group to have one ouput.

for example in Group1 a user chooses "ClassA" option button and that button would relate to the group2 option button and calculate a given formula


sorry for bad english.

[_movenblvck_]

Lets say:
In Category I choose 10mm and in Class ui chhose Class A
so
10mm and Class A = Area * Formula1
10 mm and class B = Area * Formula 2
.
.
25mm and Class A = Area * Formula7
25mm and class B = Area * Formula 8
so how to relate each options

[Paul_Hossler]

I think I understand the question

One way. You'll have to integrate your own logic / formula. I just used 's' to show the selections



Option Explicit
Private Sub CommandButton1_Click()
Dim s As String
With Me
If .OptionButton1 Then
If .OptionButton4 Then
s = "Selected " & OptionButton1.Caption & "-" & OptionButton4.Caption
ElseIf .OptionButton5 Then
s = "Selected " & OptionButton1.Caption & "-" & OptionButton5.Caption
End If
ElseIf .OptionButton2 Then
If .OptionButton4 Then
s = "Selected " & OptionButton2.Caption & "-" & OptionButton4.Caption
ElseIf .OptionButton5 Then
s = "Selected " & OptionButton2.Caption & "-" & OptionButton5.Caption
End If
ElseIf .OptionButton3 Then
If .OptionButton4 Then
s = "Selected " & OptionButton3.Caption & "-" & OptionButton4.Caption
ElseIf .OptionButton5 Then
s = "Selected " & OptionButton3.Caption & "-" & OptionButton5.Caption
End If
End If
End With


MsgBox s

End Sub

Private Sub UserForm_Initialize()
With Me
.OptionButton1 = True
.OptionButton4 = True
End With
End Sub