VBA for 3 choices of option button

[OillyBob55]

Good morning

i have a form with 3 option buttons

Yes
No
Sick/Hol

i can code the yes no using:

Please Login or Register  to view this content.

[cytop]

You need an ElseIf there to check option 2 with the Else to catch Option 3

[OillyBob55]

So like this

IF Opt_OP1 = True Then
Sheets("Data").Range("Data_Start").Offset(1, 3).Value = "Yes"
ElseIf Opt_OP2 = True then
Sheets("Data").Range("Data_Start").Offset(1, 3).Value = "No"
Else
Sheets("Data").Range("Data_Start").Offset(1, 3).Value = "Sick/Hol"
End If

[OillyBob55]

So like this

IF Opt_OP1 = True Then
Sheets("Data").Range("Data_Start").Offset(1, 3).Value = "Yes"
ElseIf Opt_OP2 = True then
Sheets("Data").Range("Data_Start").Offset(1, 3).Value = "No"
Else
Sheets("Data").Range("Data_Start").Offset(1, 3).Value = "Sick/Hol"
End If

No that didn't work that just put No in the box no matter what i had in the options

[cytop]

Sorry for brief initial answer, was on a phone.

The only change I would make to the code you posted would be to not rely on default values but explicitly reference the property you want

Please Login or Register  to view this content.

There is nothing wrong with the syntax of your code as long as the controls OPT_Op1, OPT_Op2 and another exist. Post a sample of your workbook. it's probably something simple...

[OillyBob55]

Should work...

My mistake wrong name used works fine thank you