Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming,microsoft.public.office.developer.vba
|
|||
|
|||
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. |
#2
Posted to microsoft.public.excel.programming,microsoft.public.office.developer.vba
|
|||
|
|||
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 |
#3
Posted to microsoft.public.excel.programming,microsoft.public.office.developer.vba
|
|||
|
|||
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 |
#4
Posted to microsoft.public.excel.programming,microsoft.public.office.developer.vba
|
|||
|
|||
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 |
#5
Posted to microsoft.public.excel.programming,microsoft.public.office.developer.vba
|
|||
|
|||
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 |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
checkbox in a protected worksheet | Excel Worksheet Functions | |||
Checkbox to open another worksheet | Excel Discussion (Misc queries) | |||
checkbox and worksheet | Excel Discussion (Misc queries) | |||
error accessing a protected worksheet | Excel Worksheet Functions | |||
Accessing Cells in Separate Worksheet | Excel Discussion (Misc queries) |