VBA loop help

[dave8]

Please help me explain this loop problem.

Checkbox2_click()
If Checkbox1.value = false then
msgbox "something..."
'clear the check box
Checkbox2.value = false
exit sub
end if
End Sub

It seems like this is looping twice. How do I get out of this loop by clicking 'OK' once? I have to click 'OK' twice.

Thank you to help me resolve this simple problem.

 

[Jogender singh]

you need to change it

Private Sub CheckBox2_Click()

If CheckBox1.Value = False Then
MsgBox "something..."
'clear the check box
Exit Sub
CheckBox2.Value = False
End If
End Sub

 

[dave8]

The problem with this is the Checkbox2.value is not getting cleared. But I can click on 'Ok' once.

 

[Fluff]

How about

Private Sub CheckBox2_Click()
   Static Flg As Boolean
   
   If Flg Then Exit Sub
   If CheckBox1.Value = False Then
      Flg = True
      MsgBox "something..."
      'clear the check box
      CheckBox2.Value = False
      Flg = False
   End If
End Sub

 

[dave8]

YES!!! Thank you. Works the way I want. I can now understand why a flag is needed. I was also trying to call a sub procedure and clearing the CheckBox2 and exiting Sub upon the return
and still didn't work.

 

[Fluff]

If you change the value of the checkbox, then it triggers the click event, so the flag simply stops that.