Use the Option box value in a module

[Tempy]

Hi all, i hope i explain this correctly. I have 3 option boxes on a form
that you can select one of them. I then go into the module code and need
to know which option button is true and not being a programmer i am not
sure how to do it. Could somebody please help?

Tempy

*** Sent via Developersdex http://www.developersdex.com ***

 

[RonaldF]

'UserForm1 is the name of the form
'OptionButton1 is the name of the first button

If UserForm1.OptionButton1.Value = True Then MsgBox "OptionButton1 selected"
If UserForm1.OptionButton2.Value = True Then MsgBox "OptionButton2 selected"
If UserForm1.OptionButton3.Value = True Then MsgBox "OptionButton3 selected"

 

[Tom Ogilvy]

Dim i as Long, j as Long
Dim obx as MSControls.OptionButton
for i = 1 to 3
if userform1.Controls("OptionButton" & i).Value then
j = i
exit for
end if
Next
set obx = userform1.Controls("OptionButton" & j)