Having a macro recognize when an option button has been selected
 

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

Having a macro recognize when an option button has been selected
 

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

Having a macro recognize when an option button has been select
 

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

Having a macro recognize when an option button has been selected
 

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"
crosoft.com wrote in
message ...
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