state of option button

[crapit]

I have 2 option button. How do I get the state of the option button? (The
optionbutton is not on the userform)

 

[Chip Pearson]

If the button is from the Forms toolbar, use code like

Debug.Print ActiveSheet.OptionButtons(1).Value

If the button is from the Controls toolbar, use code like

Debug.Print ActiveSheet.OLEObjects("OptionButton1").Object.Value


--
Cordially,
Chip Pearson
Microsoft MVP - Excel
Pearson Software Consulting, LLC
www.cpearson.com

 

[crapit]

I'm using forms toolbar. Does the "optionsbutton(1)" refer to the name of
the optionbutton or something else?

 

[Chip Pearson]

The "optionbuttons(1)" refers to the first (earliest created)
option button on the sheet. Alternatively, you can use the name
of the option button. E.g.,

Debug.Print ActiveSheet.OptionButtons("TheButton").Value


--
Cordially,
Chip Pearson
Microsoft MVP - Excel
Pearson Software Consulting, LLC
www.cpearson.com

 

[crapit]

Do I put the code within the sub function itself? E.g the groupname of the
2 optionbutton is "Group19"
Sub group19_click()
<Should the code be put here?>
End sub

 

[Chip Pearson]

Yes, put the code in the sub itself.

--
Cordially,
Chip Pearson
Microsoft MVP - Excel
Pearson Software Consulting, LLC
www.cpearson.com

 

[crapit]

but how do i get it to store to a variable?

Yes, put the code in the sub itself.

--
Cordially,
Chip Pearson
Microsoft MVP - Excel
Pearson Software Consulting, LLC
www.cpearson.com

 

[Chip Pearson]

Do something like

Dim V as Long
V = ActiveSheet.OptionButtons(1).Value
If V = 1 Then
' button is true
Else
' button is false
End If


--
Cordially,
Chip Pearson
Microsoft MVP - Excel
Pearson Software Consulting, LLC
www.cpearson.com

 

[crapit]

is there a way to trace which optionbutton is insert 1st?

 

[Chip Pearson]

Your best bet is to give specific names to your option buttons
rather than rely on index numbers.

 

[crapit]

I get this error "Unable to get OptionButtons property of the worksheet
class"

 

[Chip Pearson]

You'll get this error if you attempt to use a name that doesn't
exist. Be sure you are using the correct name of the option
button.


--
Cordially,
Chip Pearson
Microsoft MVP - Excel
Pearson Software Consulting, LLC
www.cpearson.com

 

[crapit]

I still got the error!
The following are the codes:
Sub Group1119_Click()
x = ActiveSheet.OptionButtons("optionbutton1").Value

If x = 1 Then
Range("e1").Select
ActiveCell.Value = "Remove"
Else
Range("e1").Select
ActiveCell.Value = "Insert"
End If

End Sub