Doubt in setting the value of a checkbox... Urgent 1

[arunmd1]

Hi guys,
I need a help.I am creating a tool in excel using VBA. There i have some checkboxes to initiate some actions. I have also provided a command button( Clear ) to clear that cases. The actions to be performed when the user switch on or switch off the checkbox is different. But if the user click the "CLEAR" button after doing the desired actions it has to uncheck the checkbox .( that is setting its value to false). I tried it using
"Checkbox1.value = false"
But once the value is set false, the control is going to the function "Checkbox1_activate" which brings in unwanted actions. Provide a solution plz. Its urgent.

 

[taupirho]

There's probably a much more elegant way to do this but if you're looking for ideas then why not set a global boolean variable = true when you click the clear button. Now on your checkbox_activate function test for this global variable. If its true do nothing except reset it to false. if its false do what it would normally do.


In order to understand recursion, you must first understand recursion.

 

[arunmd1]

Hi. A changed the logic in my program slightly and amazingly the program is working fine. Anyway thanks a lot for ur ideas Mr.taupirho.

 

[SkipVought]

Hi,

In your ClearCheckboxes procedure, turn OFF Events before clearing and then restore Events.

application.enableevents=false
'do stuff
application.enableevents=true

Skip,
[sub]
Just traded in my old subtlety...
for a NUANCE![/sub]

 

[TonyJollans]

Skip,

Is that correct? Do checkbox events belong to the (Excel) Application?

Enjoy,
Tony

------------------------------------------------------------------------------------
We want to help you; help us to do it by reading this: Before you ask a question.

I'm working (slowly) on my own website

 

[arunmd1]

Hi Skip ,
I think the idea enableevents = false and then do stuff and then enableevents = true is not working.I checked it now .Try this snippet , it is entering an infinite loop.
The control is not at all reaching the line application.enableevents = true.


Private Sub CheckBox1_Click()
If CheckBox1.Value = True Then
MsgBox True
Application.EnableEvents = False
CheckBox1.Value = False
Application.EnableEvents = True
Else
MsgBox False
Application.EnableEvents = False
CheckBox1.Value = True
Application.EnableEvents = True
End If
End Sub

 

[SkipVought]

Try this.

Use a Button to clear all...

Public bEvents As Boolean
Private Sub CheckBox1_Click()
    If bEvents Then
        MsgBox "check 1"
    End If
End Sub

Private Sub CommandButton1_Click()
'uncheck all boxes
    Dim shp As Shape
    If CheckBox2.Value Then
    bEvents = False
        For Each shp In Sheet1.Shapes
            Select Case Left(shp.Name, 5)
                Case "Check"
                    shp.OLEFormat.Object.Object.Value = False
            End Select
        Next
    bEvents = True
    End If
End Sub

Skip,
[sub]
Just traded in my old subtlety...
for a NUANCE![/sub]

 

[SkipVought]

Sorry, I posted the wrong code...

Public bEvents As Boolean
Private Sub CheckBox1_Click()
    If bEvents Then
        MsgBox "check 1"
    End If
End Sub

Private Sub CommandButton1_Click()
'uncheck all boxes
    Dim shp As Shape
    bEvents = False
    For Each shp In Sheet1.Shapes
        Select Case Left(shp.Name, 5)
            Case "Check"
                shp.OLEFormat.Object.Object.Value = False
        End Select
    Next
    bEvents = True
End Sub

Skip,
[sub]
Just traded in my old subtlety...
for a NUANCE![/sub]