Option Buttons and If statement

In summery I have 2 sets of 2 option button groups, for example;

group 1 has:
Option_Button_A
and
Option_Button_B

Group 2 has:
Option_Button_C
and
Option_Button_D

Depending on which 2 buttons are selected I would like to run a different code. (4 in total)

I tried to use a code along the lines of;

If  Option_Button_A.value = True & Option_Button_C.Value = True Then

[then the specific code]

else If  Option_Button_A.value = True & Option_Button_D.Value = True Then

ECT....

However this does not seem to be working.

Could anybody help out??

not sure if

.value

is correct

never mind. its correct

If OBA.value=true and OBB.value=true then
....

YOur way is correct as long as you list all ways. there should be (4/(4-2)!/2!)=4x3/2=6 ways.

ab ac ad
bc bd
cd

Thanks John the 'and' instead of the '&' did the trick.

Also its 4 ways, ab and cd are in the same set, so you cant select them both at the same time.

OK. didn't no. & isn't a procedure or object. it only works when working with a string such as in a message box

Make sense. I got the idea from the strings in msgbox. Thanks again

Try using the case statement to simplify your code

Dim Pointer As Integer

Private Sub CommandButton1_Click()

Select Case Pointer

Case 0
Dietstate = "Dieting"
Case 1
Dietstate = "Diet Ruined"
Case 2
Dietstate = "Diet Not Ruined"
Case 10
Dietstate = "Starving"
Case 11
Dietstate = "Fasting"
Case 12
Dietstate = "Eating"
Case 20
Dietstate = "Dying"
Case 21
Dietstate = "Last Legs"
Case 22
Dietstate = "Deceased"
Case Else
Dietstate = "Dunno"
End Select

TextBox2.Value = Dietstate
End Sub

Private Sub OptionButton1_Click()
UpdatePointer
End Sub
Private Sub OptionButton2_Click()
UpdatePointer
End Sub
Private Sub OptionButton3_Click()
UpdatePointer
End Sub
Private Sub OptionButton4_Click()
UpdatePointer
End Sub

Private Sub UpdatePointer()
Pointer = 0
If OptionButton1 = True Then Pointer = Pointer + 1
If OptionButton2 = True Then Pointer = Pointer + 2
If OptionButton3 = True Then Pointer = Pointer + 10
If OptionButton4 = True Then Pointer = Pointer + 20
TextBox1.Text = "Pointer Value = " & Pointer
End Sub

Interesting point mehmetcik, but would not be suitable for the particular project I am using.

Hi Leith,

the only reason why I didn't post my workbook is, I am working on a academic project. It would be against my university regulations to post the whole workbook.

Did my advice work?

Yup. thanks