Suggested is that you make your variables Public and
declare them in a standard module. Use the UF Terminate
event to format the variable values.

In the UF code module:
Private Sub UserForm_Terminate()
f1 = OptionButton1.Value
f2 = OptionButton2.Value
f3 = OptionButton3.Value
End Sub

In a standard module:
Public f1 As Boolean
Public f2 As Boolean
Public f3 As Boolean

Sub GetOptBtnVals()
UserForm1.Show
MsgBox f1 & vbCr & f2 & vbCr & f3
End Sub

Regards,
Greg


-----Original Message-----
I have user form with three option button so that the
user can select
one of the options.
How can I store the returned value in a variable?


Sub test()
Dim f1, f2, f3 As Boolean
UserForm1.Show
f1 = UserForm1.OptionButton1.Value
f2 = UserForm1.OptionButton2.Value
f3 = UserForm1.OptionButton3.Value
MsgBox f1 & f2 & f3
End Sub


Evertime I run this procedure I always get False, False,
False (ie the
value set the properties section of the optionbutton).
I found a way to return the True if I select an option
and false when I
didn't but setting the ControlSource option of the
properties section
to cell.
Is there a way I could get True when I select the
optionand False when
I don't wihtout setting the ControlSource to a cell,
since then I have
to have another Sheet that contains only the values from
these
optionsbuttons.


---
Message posted from http://www.ExcelForum.com/

.