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



"Jeff Wright" wrote in message
news:JFVge.40816$_K.23846@fed1read03...
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

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


--
Regards,
Tom Ogilvy


"Jeff Wright" wrote in message
news:JFVge.40816$_K.23846@fed1read03...
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

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

Sincerely,

Jeff Wright



"Jim Cone" wrote in message
...
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



"Jeff Wright" wrote in message
news:JFVge.40816$_K.23846@fed1read03...
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

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


"Tom Ogilvy" wrote in message
...
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


--
Regards,
Tom Ogilvy


"Jeff Wright" wrote in message
news:JFVge.40816$_K.23846@fed1read03...
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