Hi,

In a userform I use three optionbuttons. One of them must be selected by the
user. How can let VBA check if this is done?

Regards, Gert-Jan

Hi Martin,

Thanks, but I know what I have to do. Isn't there a way to do this simple
and fast (not depending on the number of optionbuttons)?

Gert-Jan

"Martin Fishlock" schreef in bericht
...
Hi,

You need to check each of the buttons for true.

Another way is to seta default for button1 to true in the form design (or
at
initialization).

--
Hope this helps
Martin Fishlock, Bangkok, Thailand
Please do not forget to rate this reply.


"Gert-Jan" wrote:

Hi,

In a userform I use three optionbuttons. One of them must be selected by
the
user. How can let VBA check if this is done?

Regards, Gert-Jan

maybe something like this, change userform1 to your userform name

Dim optionbuttom As Control
For Each OptionButton In UserForm1.Controls
If OptionButton.Value = True Then
MsgBox OptionButton.Caption & " = True"
End If
Next

--


Gary


"Gert-Jan" wrote in message
.. .
Hi Martin,

Thanks, but I know what I have to do. Isn't there a way to do this simple and
fast (not depending on the number of optionbuttons)?

Gert-Jan

"Martin Fishlock" schreef in bericht
...
Hi,

You need to check each of the buttons for true.

Another way is to seta default for button1 to true in the form design (or at
initialization).

--
Hope this helps
Martin Fishlock, Bangkok, Thailand
Please do not forget to rate this reply.


"Gert-Jan" wrote:

Hi,

In a userform I use three optionbuttons. One of them must be selected by the
user. How can let VBA check if this is done?

Regards, Gert-Jan

sorry, there is a typo in the first line:
Dim Optionbutton As Control


--


Gary


"Gary Keramidas" <GKeramidasATmsn.com wrote in message
...
maybe something like this, change userform1 to your userform name

Dim optionbuttom As Control
For Each OptionButton In UserForm1.Controls
If OptionButton.Value = True Then
MsgBox OptionButton.Caption & " = True"
End If
Next

--


Gary


"Gert-Jan" wrote in message
.. .
Hi Martin,

Thanks, but I know what I have to do. Isn't there a way to do this simple and
fast (not depending on the number of optionbuttons)?

Gert-Jan

"Martin Fishlock" schreef in bericht
...
Hi,

You need to check each of the buttons for true.

Another way is to seta default for button1 to true in the form design (or at
initialization).

--
Hope this helps
Martin Fishlock, Bangkok, Thailand
Please do not forget to rate this reply.


"Gert-Jan" wrote:

Hi,

In a userform I use three optionbuttons. One of them must be selected by
the
user. How can let VBA check if this is done?

Regards, Gert-Jan

I don't believe that the group or frame properties allow for the
identificaiton of the option button that is true.

The solution is to write a generic function that returns the name to the
optionbutton that is true in a group.

Not much help.
--
Hope this helps
Martin Fishlock, Bangkok, Thailand
Please do not forget to rate this reply.


"Gert-Jan" wrote:

Hi Martin,

Thanks, but I know what I have to do. Isn't there a way to do this simple
and fast (not depending on the number of optionbuttons)?

Gert-Jan

"Martin Fishlock" schreef in bericht
...
Hi,

You need to check each of the buttons for true.

Another way is to seta default for button1 to true in the form design (or
at
initialization).

--
Hope this helps
Martin Fishlock, Bangkok, Thailand
Please do not forget to rate this reply.


"Gert-Jan" wrote:

Hi,

In a userform I use three optionbuttons. One of them must be selected by
the
user. How can let VBA check if this is done?

Regards, Gert-Jan

I see what you want to do, but this is not what I want (and it also doesn't
work). In my userform I have three option buttons. Final operation: check if
one of the optionbuttons is clicked. If not: msgbox "please select an option
first"

Gert-Jan

"Gary Keramidas" <GKeramidasATmsn.com schreef in bericht
...
maybe something like this, change userform1 to your userform name

Dim optionbuttom As Control
For Each OptionButton In UserForm1.Controls
If OptionButton.Value = True Then
MsgBox OptionButton.Caption & " = True"
End If
Next

--


Gary


"Gert-Jan" wrote in message
.. .
Hi Martin,

Thanks, but I know what I have to do. Isn't there a way to do this simple
and fast (not depending on the number of optionbuttons)?

Gert-Jan

"Martin Fishlock" schreef in
bericht ...
Hi,

You need to check each of the buttons for true.

Another way is to seta default for button1 to true in the form design
(or at
initialization).

--
Hope this helps
Martin Fishlock, Bangkok, Thailand
Please do not forget to rate this reply.


"Gert-Jan" wrote:

Hi,

In a userform I use three optionbuttons. One of them must be selected
by the
user. How can let VBA check if this is done?

Regards, Gert-Jan

if you only have 3 option buttons:

If Me.OptionButton1.Value = False And Me.OptionButton2.Value = False And _
Me.OptionButton3.Value = False Then MsgBox " you must select an option
button"


--


Gary


"Gert-Jan" wrote in message
.. .
I see what you want to do, but this is not what I want (and it also doesn't
work). In my userform I have three option buttons. Final operation: check if
one of the optionbuttons is clicked. If not: msgbox "please select an option
first"

Gert-Jan

"Gary Keramidas" <GKeramidasATmsn.com schreef in bericht
...
maybe something like this, change userform1 to your userform name

Dim optionbuttom As Control
For Each OptionButton In UserForm1.Controls
If OptionButton.Value = True Then
MsgBox OptionButton.Caption & " = True"
End If
Next

--


Gary


"Gert-Jan" wrote in message
.. .
Hi Martin,

Thanks, but I know what I have to do. Isn't there a way to do this simple
and fast (not depending on the number of optionbuttons)?

Gert-Jan

"Martin Fishlock" schreef in bericht
...
Hi,

You need to check each of the buttons for true.

Another way is to seta default for button1 to true in the form design (or
at
initialization).

--
Hope this helps
Martin Fishlock, Bangkok, Thailand
Please do not forget to rate this reply.


"Gert-Jan" wrote:

Hi,

In a userform I use three optionbuttons. One of them must be selected by
the
user. How can let VBA check if this is done?

Regards, Gert-Jan

if OptionButton1.Value or OptionButton2.Value or _
OptionButton3.Value then
' one button is selected
else
msgbox "please select an option first"
end if


--
Regards
Tom Ogilvy

"Gert-Jan" wrote in message
.. .
I see what you want to do, but this is not what I want (and it also doesn't
work). In my userform I have three option buttons. Final operation: check
if one of the optionbuttons is clicked. If not: msgbox "please select an
option first"

Gert-Jan

"Gary Keramidas" <GKeramidasATmsn.com schreef in bericht
...
maybe something like this, change userform1 to your userform name

Dim optionbuttom As Control
For Each OptionButton In UserForm1.Controls
If OptionButton.Value = True Then
MsgBox OptionButton.Caption & " = True"
End If
Next

--


Gary


"Gert-Jan" wrote in message
.. .
Hi Martin,

Thanks, but I know what I have to do. Isn't there a way to do this
simple and fast (not depending on the number of optionbuttons)?

Gert-Jan

"Martin Fishlock" schreef in
bericht ...
Hi,

You need to check each of the buttons for true.

Another way is to seta default for button1 to true in the form design
(or at
initialization).

--
Hope this helps
Martin Fishlock, Bangkok, Thailand
Please do not forget to rate this reply.


"Gert-Jan" wrote:

Hi,

In a userform I use three optionbuttons. One of them must be selected
by the
user. How can let VBA check if this is done?

Regards, Gert-Jan

Thanks, this works fine for this moment.

Gert-Jan

"Gary Keramidas" <GKeramidasATmsn.com schreef in bericht
...
if you only have 3 option buttons:

If Me.OptionButton1.Value = False And Me.OptionButton2.Value = False And _
Me.OptionButton3.Value = False Then MsgBox " you must select an option
button"


--


Gary


"Gert-Jan" wrote in message
.. .
I see what you want to do, but this is not what I want (and it also
doesn't work). In my userform I have three option buttons. Final
operation: check if one of the optionbuttons is clicked. If not: msgbox
"please select an option first"

Gert-Jan

"Gary Keramidas" <GKeramidasATmsn.com schreef in bericht
...
maybe something like this, change userform1 to your userform name

Dim optionbuttom As Control
For Each OptionButton In UserForm1.Controls
If OptionButton.Value = True Then
MsgBox OptionButton.Caption & " = True"
End If
Next

--


Gary


"Gert-Jan" wrote in message
.. .
Hi Martin,

Thanks, but I know what I have to do. Isn't there a way to do this
simple and fast (not depending on the number of optionbuttons)?

Gert-Jan

"Martin Fishlock" schreef in
bericht ...
Hi,

You need to check each of the buttons for true.

Another way is to seta default for button1 to true in the form design
(or at
initialization).

--
Hope this helps
Martin Fishlock, Bangkok, Thailand
Please do not forget to rate this reply.


"Gert-Jan" wrote:

Hi,

In a userform I use three optionbuttons. One of them must be selected
by the
user. How can let VBA check if this is done?

Regards, Gert-Jan

or how about something like this? just add your code instead of the message
boxes

Private Sub CommandButton1_Click()
Select Case True
Case Me.OptionButton1
MsgBox "optionbutton1 selected"
Case Me.OptionButton2
MsgBox "optionbutton2 selected"
Case Me.OptionButton3
MsgBox "optionbutton3 selected"
Case Else
MsgBox "no optionbutton selected"
End Select
End Sub



--


Gary


"Gert-Jan" wrote in message
.. .
Thanks, this works fine for this moment.

Gert-Jan

"Gary Keramidas" <GKeramidasATmsn.com schreef in bericht
...
if you only have 3 option buttons:

If Me.OptionButton1.Value = False And Me.OptionButton2.Value = False And _
Me.OptionButton3.Value = False Then MsgBox " you must select an option
button"


--


Gary


"Gert-Jan" wrote in message
.. .
I see what you want to do, but this is not what I want (and it also doesn't
work). In my userform I have three option buttons. Final operation: check if
one of the optionbuttons is clicked. If not: msgbox "please select an option
first"

Gert-Jan

"Gary Keramidas" <GKeramidasATmsn.com schreef in bericht
...
maybe something like this, change userform1 to your userform name

Dim optionbuttom As Control
For Each OptionButton In UserForm1.Controls
If OptionButton.Value = True Then
MsgBox OptionButton.Caption & " = True"
End If
Next

--


Gary


"Gert-Jan" wrote in message
.. .
Hi Martin,

Thanks, but I know what I have to do. Isn't there a way to do this simple
and fast (not depending on the number of optionbuttons)?

Gert-Jan

"Martin Fishlock" schreef in bericht
...
Hi,

You need to check each of the buttons for true.

Another way is to seta default for button1 to true in the form design (or
at
initialization).

--
Hope this helps
Martin Fishlock, Bangkok, Thailand
Please do not forget to rate this reply.


"Gert-Jan" wrote:

Hi,

In a userform I use three optionbuttons. One of them must be selected by
the
user. How can let VBA check if this is done?

Regards, Gert-Jan