ExcelBanter

ExcelBanter (https://www.excelbanter.com/)
-   Excel Programming (https://www.excelbanter.com/excel-programming/)
-   -   radio button help (https://www.excelbanter.com/excel-programming/430745-radio-button-help.html)

Sam

radio button help
 

Hi All,

I have designed a user form in excel with radio buttons. I am trying to make
those radio buttons mandatory. Here is my code, But it doesnt work!
What happens is, If user forgets to select a radio button it pops a message
asking to select one, Once I click OK on the msgbox and then select a radio
button , It still displays the same message.

' Fee Radio button: Yes
If FeeYes.Value = True Then
ws.Cells(iRow, 17).Value = "Yes"
End If

' Fee Radio button: No
If FeeNo.Value = True Then
ws.Cells(iRow, 17).Value = "No"
End If

'check if a values is selected for Fee
If FeeYes.Value = False & FeeNo.Value = False Then
MsgBox "Please select if Fee is Reimbursed or not"
Exit Sub
End If

Please Help.



Thanks in Advance.

Jacob Skaria

radio button help
 
AND instead of &

If FeeYes.Value = False AND FeeNo.Value = False Then
MsgBox "Please select if Fee is Reimbursed or not"
Exit Sub
End If

If this post helps click Yes
---------------
Jacob Skaria


"sam" wrote:

Hi All,

I have designed a user form in excel with radio buttons. I am trying to make
those radio buttons mandatory. Here is my code, But it doesnt work!
What happens is, If user forgets to select a radio button it pops a message
asking to select one, Once I click OK on the msgbox and then select a radio
button , It still displays the same message.

' Fee Radio button: Yes
If FeeYes.Value = True Then
ws.Cells(iRow, 17).Value = "Yes"
End If

' Fee Radio button: No
If FeeNo.Value = True Then
ws.Cells(iRow, 17).Value = "No"
End If

'check if a values is selected for Fee
If FeeYes.Value = False & FeeNo.Value = False Then
MsgBox "Please select if Fee is Reimbursed or not"
Exit Sub
End If

Please Help.



Thanks in Advance.


Per Jessen

radio button help
 

Hi

You are very close, replace the '&' sign with the 'And' operator:

If FeeYes.Value = False And FeeNo.Value = False Then

Best regards,
Per

"sam" skrev i meddelelsen
...
Hi All,

I have designed a user form in excel with radio buttons. I am trying to
make
those radio buttons mandatory. Here is my code, But it doesnt work!
What happens is, If user forgets to select a radio button it pops a
message
asking to select one, Once I click OK on the msgbox and then select a
radio
button , It still displays the same message.

' Fee Radio button: Yes
If FeeYes.Value = True Then
ws.Cells(iRow, 17).Value = "Yes"
End If

' Fee Radio button: No
If FeeNo.Value = True Then
ws.Cells(iRow, 17).Value = "No"
End If

'check if a values is selected for Fee
If FeeYes.Value = False & FeeNo.Value = False Then
MsgBox "Please select if Fee is Reimbursed or not"
Exit Sub
End If

Please Help.



Thanks in Advance.



Dave Peterson

radio button help
 

Just another thought...

If you're only allowing two choices for this option, you may want to replace the
pair of optionbuttons with a single checkbox (nicely labeled).

If you have multiple choices for this, you could always preselect (in the
userform_initialize procedure) the optionbutton that is used the most.

In either case, you'll know something was chosen--even if it was by default.

sam wrote:

Hi All,

I have designed a user form in excel with radio buttons. I am trying to make
those radio buttons mandatory. Here is my code, But it doesnt work!
What happens is, If user forgets to select a radio button it pops a message
asking to select one, Once I click OK on the msgbox and then select a radio
button , It still displays the same message.

' Fee Radio button: Yes
If FeeYes.Value = True Then
ws.Cells(iRow, 17).Value = "Yes"
End If

' Fee Radio button: No
If FeeNo.Value = True Then
ws.Cells(iRow, 17).Value = "No"
End If

'check if a values is selected for Fee
If FeeYes.Value = False & FeeNo.Value = False Then
MsgBox "Please select if Fee is Reimbursed or not"
Exit Sub
End If

Please Help.

Thanks in Advance.


--

Dave Peterson


All times are GMT +1. The time now is 10:31 PM.

Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
ExcelBanter.com