Can't read optionbutton values

  • Thread starter Thread starter Jeff Wright
  • Start date Start date
J

Jeff Wright

Hello all,

I'm trying to read the boolean value of 50 option buttons into column A of a
worksheet so that column A will be, for example
TRUE
FALSE
TRUE
TRUE
.. . . . etc. The following routine does not work, but I don't know why (I
get a runtime error 438):

Sub test()
For i = 1 To 50
Worksheets("Sheet1").Cells(i, 1) = Worksheets("Sheet1").OLEObjects
_("Optionbutton" & i).Value
Next i
End Sub

Later on, I'll want to read the boolean values in column a to change the
value properties of option buttons 1 through 50.

Can anyone help me with this?

Thanks!

Jeff
 
Jeff,

Needs "Object"...

Worksheets("Sheet1").Cells(i, 1).Value = _
Worksheets("Sheet1").OLEObjects("OptionButton" &i).Object.Value

Also, unless the buttons are separated into groups,
there can only be one option button with a value of True.
All others are false when any one is True.

Jim Cone
San Francisco, USA
 
Just to add
Remember this:

For i = 2 to 82 Step 2
Sheets("Data").OleObjects("OptionButton" _
& i).Object.value = true
Next i

to go the other way.

Sub test1()
For i = 1 To 50
Worksheets("Sheet1").OLEObjects("Optionbutton" )
& i).Object.Value = Worksheets("Sheet1").Cells(i, 1).Value
Next i
End Sub
 
Thanks, Jim! This did the trick. Your help is truly appreciated.

Sincerely,

Jeff Wright
 
Tom, thanks again for you help. Your answer (and Jim's answer, too) has
really helped with my work project. This group (with people like you, Jim,
and many others) has proven to be an invaluable resource for me. Many times
I wonder where I'd be without it.

Thanks again,

Jeff Wright
 
Back
Top