RE: Having a macro recognize when an option button has been selected

Tech-Archive recommends: Fix windows errors by optimizing your registry

You may need to edit the option button name but something like:

With Sheets("2nd Level Sources & Conv")
If .OptionButtons("Option Button 1") = 1 Then
.Range("F27").Value = "Equivalent kwh/yr"
Else
.Range("F27").Value = "Actual kwh/yr"
End If
End With

Hope this helps
Rowan

"Linking to specific cells in pivot table" wrote:

> Hi,
>
> I'm trying to an IF THEN statement which is based on which one of two option
> buttons was last selected. I have two option buttons ("OptionButton1" and
> "OptionButton2" -- both from the 'Forms' menu) -- basically I'm trying to
> create a macro that will look at which button is currently selected (this
> button will already have it's radio button showing as being selected) and
> will then execute code specific to which button it finds as being last
> selected. Basically, I want the following:
>
> 'If 'OptionButton1' is slected, then:
>
> Sheets("2nd Level Sources & Conv").Range("F27").Value = "Equivalent kwh/yr"
>
> Else
>
> Sheets("2nd Level Sources & Conv").Range("F27").Value = "Actual kwh/yr"
>
> End If
>
>
> Thanks for your help!
>
> Rob
.

Quantcast