If OptionButton Checked Then

[CoolAuto]

Trying to have my email generating macro address it based on which radio button is checked on the excel worksheet.

Getting "subscript out of range" on this line

Set ws = ActiveWorkbook.Worksheets.Item("Sheet1")

in below code

[COLOR=#252C2F][FONT=Helvetica]
Sub IfOptionButtonChecked()
Dim ws As Excel.Worksheet
Set ws = ActiveWorkbook.Worksheets.Item("Sheet1")
Dim optBtn1 As Excel.OptionButton
Set optBtn1 = ws.OptionButtons.Item("Option Button 1")
If optBtn1.Value = 1 Then ' it is checked
   Debug.Print "Option Button 1 is checked"
End If
End Sub[/FONT][/COLOR]

 

[Mentor82]

Hi
Try this.

Sub IfOptionButtonChecked()

If Option Button 1.Value = true Then ' it is checked
   Debug.Print "Option Button 1 is checked"
End If
End Sub

 

[Mentor82]

Hi again,
Little fix - I made a mistake because I placed accidently two spaces in option button 1"" whilst there should not be any. Check this out.

Sub IfOptionButtonChecked()

If OptionButton1.Value = true Then ' it is checked
   Debug.Print "Option Button 1 is checked"
End If
End Sub

 

[CoolAuto]

Syntax error If Option Button 1.Value = true Then ' it is checked

Ok, without spaces it gives Run-time error 424 Object required on

If OptionButton1.Value = True Then ' it is checked

 

[Mentor82]

Check this.

Sub IfOptionButtonChecked()
Dim ws as worksheet
Set ws=worksheets("Sheet1")
IF ws.OptionButtons("Option Button 1").Value=1 then
Debug.Print "Option Button 1 is checked"
Set ws=nothing
End Sub
[\CODE]

 

[CoolAuto]

Just had to switch Sheet1 to the custom name from the tab and add End If to your code - now it works. Dzięki

 

[Mentor82]

Hi,
I thought your custom sheet name was "Sheet1" and you're right I did forgot to write "end if" at the end, so sorry for that. Anyway, good to hear it works for you. Happy to help "Proszę" .