Printable View
[vba]Dim cbo As OLEObject
Dim ws As Worksheet
Set ws = Worksheets("Boiler")
If OLEObjects("ComboBox1").Object.Value = "Boiler4" Then
Set OLEObjects("CheckBox2").Object.Value = True
Else
Set OLEObjects("CheckBox2").Object.Value = False
End If[/vba]
Can you tell me whats wrong and how to fix it please, i am trying to make it so that when ComboBox1 says "Boiler4" the checkbox autommatically ticks itself.
thanks in advance
Attachment 6455
[vba]
Dim cbo As OLEObject
Dim ws As Worksheet
Set ws = Worksheets("Boiler")
If OLEObjects("ComboBox1").Object.Value = "Boiler4" Then
OLEObjects("CheckBox2").Object.Value = True
Else
OLEObjects("CheckBox2").Object.Value = False
End If[/vba]
Its not working it says sub or function not defined and highlights OLEObjects
Post the workbook please.
uploadedQuote:
Originally Posted by xld
Where?
in the question at the endQuote:
Originally Posted by xld
Didn't expect it up there!
That code wasn't in the workbook, but add item worked fine. If I added that code to the combobox change event, that worked fine too. I can't see any problems.
ok thanks i was putting it into a module rather that the combobox code... Derp :P thanks again for the helpQuote:
Originally Posted by xld
That shouldn't stop it working, it would just mean that you have to trigger the code rather than be automatically triggered when the selection in the comboox is made.