Add an alert message to a radio button in a group

**Data2link** · 11-11-2011, 01:43 PM

I have a self-assesment worksheet that has Yes/No radio buttons. What I want to do is make it so if they click the "No" radio button instead of "Yes" a message will pop up and tell them to explain how they are going to come into comliance. Any help would be greatly appreciated.

**pike** · 11-11-2011, 08:59 PM

Hi Data2link

Welcome to the forum

try...

Private Sub OptionButton1_Click()
If OptionButton1.Value Then MsgBox "Help"
End Sub

**Data2link** · 11-14-2011, 02:58 PM

Originally Posted by pike

Hi Data2link

Welcome to the forum

try...

Private Sub OptionButton1_Click()
If OptionButton1.Value Then MsgBox "Help"
End Sub

Ok thanks- I will try that...I put it as a macro and just asignd the macro to the "No" toggle button right? Or if not- where do I put that code?

Thanks for the help

- and thanks for the welcome!

**pike** · 11-14-2011, 03:17 PM

hi Data2link
No new to quote back as its just clutter. can you post the workbook?

**Data2link** · 11-14-2011, 05:06 PM

I wish I could post it but I can't- It's security related- I made a generic one though to show you what I'm looking for - I want a message to pop up if any of the NO buttons are clicked

Thanks again

**pike** · 11-14-2011, 05:37 PM

OK Radio buttons always confusing - option button
the assign maro will be like

Sub OptionButton_No_()
If Worksheets("Sheet1").Range("A2").Value = 2 Then MsgBox "Help"
End Sub

**Data2link** · 11-21-2011, 12:39 PM

Thanks for the code. For some reason when I add this macro, when I go in to assign it to the NO option button it's not there?

**pike** · 11-22-2011, 12:29 AM

hmmm. it works for me
see attachment

Sub OptionButton_No_Two()
If Worksheets("Sheet1").Range("A3").Value = 2 Then MsgBox "Help Two"
Worksheets("Sheet1").Range("A3").Value = 1
End Sub
Sub OptionButton_No_One()
If Worksheets("Sheet1").Range("A2").Value = 2 Then MsgBox "Help One"
Worksheets("Sheet1").Range("A2").Value = 1
End Sub