Change properties of a userform

[Guest]

Hello -
How do you programically change an optionbutton value permenatly. I want
the default value for an option button to be true every time the userform is
ran after the user selects that optionbutton. I thought that you could just
set it to true when it was checked... Like this:

Private Sub OptionButton1_Click()
Me.OptionButton1.Value = True
End Sub

Private Sub OptionButton2_Click()
Me.OptionButton2.Value = True
End Sub

Private Sub OptionButton3_Click()
Me.OptionButton3.Value = True
End Sub

But it always goes back to the one that I set to true in the properties.
It's probably easy, but I can't figure it out (other than storing the
selection on the workbook and referencing it in the initialization event -
pretty sloppy, I know).

 

[Ardus Petus]

Option buttons are mutually exclusive.
There is only one of them you can set to TRUE.


Private Sub UserForm_Activate()
Me.OptionButton1.Value = True
End Sub

HTH

 

[Ivan Raiminius]

Hi Mike,

maybe I didn't understand your question, but you don't need to use:
Private Sub OptionButton1_Click()
Me.OptionButton1.Value = True
End Sub
to change the value of optionbutton. It changes automatically,
including unchecking all the other optionbuttons in the same
form/tab/frame.

If you need to set value of the optionbutton before you show the
userform to the user, use something like this:
with userform
..optionbutton1.value=true 'sets the default = checked optionbutton1
..show
end with

Regards,
Ivan

 

[Guest]

Thanks to both of you for answering. I didn't present my question very
clearly. Basically I want the user to select an optionbutton and then for
that optionbutton to still be true the next time the userform runs.

 

[Ardus Petus]

I reiterate my solution:

Private Sub UserForm_Activate()
Me.OptionButton1.Value = True
End Sub

HTH

 

[Guest]

I must be missing something. How do I know which one to set to true in the
activate event. If the user checked optionbutton3 the last time the form was
ran, I want optiongbutton3 to be true everytime the form is ran until another
optionbutton is checked.
--
Thanks,
Mike

I reiterate my solution:

Private Sub UserForm_Activate()
Me.OptionButton1.Value = True
End Sub

HTH

 

[Ardus Petus]

You must link each optionbutton to a specific cell via ControlSource
property (eg: Sheet1!A1)

This way, Excel will show the current selected optionbutton when you run
Userform1.Show

HTH
--
AP

I must be missing something. How do I know which one to set to true in the
activate event. If the user checked optionbutton3 the last time the form
was
ran, I want optiongbutton3 to be true everytime the form is ran until
another
optionbutton is checked.

 

[Harald Staff]

Hi Mike

You need to remember the selected options somewhere between the userform
sessions. You could write something to an external textfile, to a hidden
worksheet, or to the registry. The latter selections follows the user, not
the application, so it's the preferred "userfriendly" way to do it. Have a
look at SaveSetting and GetSetting in help for registry entries /readings.

HTH. Best wishes Harald

I must be missing something. How do I know which one to set to true in the
activate event. If the user checked optionbutton3 the last time the form was
ran, I want optiongbutton3 to be true everytime the form is ran until another
optionbutton is checked.

 

[Guest]

PERFECT!!!!!!!!
--
Thanks,
Mike

Hi Mike

You need to remember the selected options somewhere between the userform
sessions. You could write something to an external textfile, to a hidden
worksheet, or to the registry. The latter selections follows the user, not
the application, so it's the preferred "userfriendly" way to do it. Have a
look at SaveSetting and GetSetting in help for registry entries /readings.

HTH. Best wishes Harald

 

[Harald Staff]

You implemented it that fast ? Good work! Thanks for the feedback.

Best wishes Harald