accessing CheckBox on Worksheet
 

create a command button
go into design mode
double click on the command button
paste this code:

Private Sub CommandButton1_Click()
If CheckBox1.Value = True Then
CheckBox1.Value = False
Else
CheckBox1.Value = True
End If

End Sub

exit design mode
click the command button



"German" <german.koninin@crm-worldwideDOTnet wrote in message
...
Hi.
I have a checkbox on one of the worksheets.
How can I access this checkbox programmatically in Excel?
Thanks a lot. I'm going to be crazy with this task.

accessing CheckBox on Worksheet
 

It says "Unable to get OLEObject property of Worksheet class".


"Keith Willshaw" wrote in message
...

"Mike Tomasura" wrote in message
...
create a command button
go into design mode
double click on the command button
paste this code:

Private Sub CommandButton1_Click()
If CheckBox1.Value = True Then
CheckBox1.Value = False
Else
CheckBox1.Value = True
End If

End Sub


I dont think thats what he was asking though

From a VBA procedure you can get the value as follows

Dim MyFlag As Boolean
If ActiveSheet.OLEObjects("CheckBox1").Object.Value = True Then
MyFlag = True
End If
MsgBox MyFlag


Keith

accessing CheckBox on Worksheet
 

Keith's code works for a checkbox from the control toolbox toolbar.

Perhaps you have a control from the Forms toolbar. If so
Dim MyFlag As Boolean
If ActiveSheet.Checkboxes("Check Box 1").Value = 1 Then
MyFlag = True
End If
MsgBox MyFlag

--
Regards,
Tom Ogilvy

"German" <german.koninin@crm-worldwideDOTnet wrote in message
...
It says "Unable to get OLEObject property of Worksheet class".


"Keith Willshaw" wrote in message
...

"Mike Tomasura" wrote in message
...
create a command button
go into design mode
double click on the command button
paste this code:

Private Sub CommandButton1_Click()
If CheckBox1.Value = True Then
CheckBox1.Value = False
Else
CheckBox1.Value = True
End If

End Sub


I dont think thats what he was asking though

From a VBA procedure you can get the value as follows

Dim MyFlag As Boolean
If ActiveSheet.OLEObjects("CheckBox1").Object.Value = True Then
MyFlag = True
End If
MsgBox MyFlag


Keith

accessing CheckBox on Worksheet
 

"German" <german.koninin@crm-worldwideDOTnet wrote in message
...
It says "Unable to get OLEObject property of Worksheet class".


From a VBA procedure you can get the value as follows

Dim MyFlag As Boolean
If ActiveSheet.OLEObjects("CheckBox1").Object.Value = True Then
MyFlag = True
End If
MsgBox MyFlag


The code worked fine for me which suggests that either
you do not have an ActiveSheet or the code has a typo in
it. Note it must be 'OleObjects' not 'OleObject'

Please post your code here if you still have problems

Keith




"Keith Willshaw" wrote in message
...

"Mike Tomasura" wrote in message
...
create a command button
go into design mode
double click on the command button
paste this code:

Private Sub CommandButton1_Click()
If CheckBox1.Value = True Then
CheckBox1.Value = False
Else
CheckBox1.Value = True
End If

End Sub


I dont think thats what he was asking though



Keith

accessing CheckBox on Worksheet
 

I got it!!
Thanks a lot Keith and Tom!


"Tom Ogilvy" wrote in message
...
Keith's code works for a checkbox from the control toolbox toolbar.

Perhaps you have a control from the Forms toolbar. If so
Dim MyFlag As Boolean
If ActiveSheet.Checkboxes("Check Box 1").Value = 1 Then
MyFlag = True
End If
MsgBox MyFlag

--
Regards,
Tom Ogilvy

"German" <german.koninin@crm-worldwideDOTnet wrote in message
...
It says "Unable to get OLEObject property of Worksheet class".


"Keith Willshaw" wrote in message
...

"Mike Tomasura" wrote in
message
...
create a command button
go into design mode
double click on the command button
paste this code:

Private Sub CommandButton1_Click()
If CheckBox1.Value = True Then
CheckBox1.Value = False
Else
CheckBox1.Value = True
End If

End Sub


I dont think thats what he was asking though

From a VBA procedure you can get the value as follows

Dim MyFlag As Boolean
If ActiveSheet.OLEObjects("CheckBox1").Object.Value = True Then
MyFlag = True
End If
MsgBox MyFlag


Keith