Having a macro recognize when an option button has been selected

[Linking to specific cells in pivot table]

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

[Rowan]

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

[Linking to specific cells in pivot table]

Thanks!!

"Rowan" wrote:

> 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

[William Benson]

absolutely unrelated ... but I think you can change your screen name through
Outlook Express (if that is your reader) by going to Tools-->Accounts-->
click on MSNews.Microsoft.com and then click Properties and under User
Information, change the Name there.

Good Luck.

Bill.

...."We now return you to your regularly scheduled Message Thread"...


"Linking to specific cells in pivot table"
<[email protected]> wrote in
message news:[email protected]...
> 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