Can't read optionbutton values

[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

 

[Jim Cone]

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

 

[Tom Ogilvy]

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

 

[Jeff Wright]

Thanks, Jim! This did the trick. Your help is truly appreciated.

Sincerely,

Jeff Wright

 

[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