Optionbutton

[olio39]

Hi

I have a userform and the optionbutton in it. When I click (with the mouse) on it, it becomes CHOOSEN. If I click it again, it shoud become NOT CHOOSEN, but it is not so.
How to make it?

[corinereyes]

Hi olio39,

Why not use the check box instead or if you want you can paste this code in the userform.

Private Sub UserForm_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
     OptionButton1.Value = 0
End Sub

If you double click the userform, option 1 will unselect.

[olio39]

Hi Corinereyes

Thanks for the advise, you are right, checkbox will be the right solution for my case.

Have a nice day

[RobynC]

If you did want to use a command button you could always use something like the following to change the caption

Private Sub CommandButton1_Click()
    With CommandButton1
        If .Caption = "Not Chosen" Then
           .Caption = "Chosen"
        Else
            .Caption = "Not Chosen"
        End If
    End With
End Sub

That way you would be able to toggle the caption on the button and then write different code depending on the button's caption

[RobynC]

Oops sorry ignore that, I'm not talking about option buttons at all am I?! Sorry it's early I'm still half asleep, will remember to read posts properly before replying in future.

Sorry

[antoka05]

I think you need to use checkbox.

Regards,
Antonio