Check box pop us message question

[Chris Hoek]

I want a popup message to appear when a box is checked, but I don't want the message to appear again when that same check box is clicked again to uncheck it.

I'm currently running this code:

Sub CheckBox582_Click()
rsp = MsgBox("Please provide reason for rejection via email or in the comments section below.", vbOKCancel)
If rsp = vbOK Then
Else
MsgBox ("Cancel button")
End If
End Sub


It works perfectly except I don't want the popup message to appear when the check box is unchecked.

Can someone please point me in the right direction?

Thanks a million in advance.

 

[cerfani]

just check the checkbox checked value it should be a boolean property called Value or Checked...

[COLOR=#333333][FONT=Verdana]Sub CheckBox582_Click()
[/FONT][/COLOR]    If CheckBox582.Checked Then
         'your code
    End If
End Sub

Also I forget if the checked value changes before or after the click event so just add a Not if this is wrong.

 

[Fluff]

Untested, but try adding this as the 1st line of code

If Not CheckBox582 Then Exit Sub

 

[Chris Hoek]

I appreciate the assistance, however after trying multiple combinations of everything both of you suggested, I can't seem to get it to work properly.

This always seems to happen when I'm in a hurry, I'm probably missing something. I've simplified it a little bit to this code:

Sub CheckBox582_Click()
rsp = MsgBox("Please provide reason for rejection via email or in the comments section below.", vbOKCancel)
If rsp = vbOK Then
End If
End Sub

I'm still getting the popup message when I uncheck the box.

 

[Fluff]

This works for me, with both a userform Checkbox & an ActiveX checkbox on a sheet

Sub CheckBox582_Click()
   If Not CheckBox582 Then Exit Sub
   rsp = MsgBox("Please provide reason for rejection via email or in the comments section below.", vbOKCancel)
   If rsp = vbOK Then
   Else
      MsgBox ("Cancel button")
   End If
End Sub

 

[cerfani]

in my code example, the correct property should be Value, not Checked based on the following post... here i will paste it for you...

Sub CheckBox582_Click()
    If CheckBox582 Then
        rsp = MsgBox("Please provide reason for rejection via email or in the comments section below.", vbOKCancel)
        If rsp = vbOK Then
            [COLOR=#008000]'run code that applies to user clicking ok[/COLOR]
        End If
    End If 
End Sub

this code will work if the value is already changed before the click event runs. So you must debug and determine that. If code works then no need to edit.

 

[Chris Hoek]

I did that exactly and there is no popup message when checking or unchecking it now.

 

[cerfani]

put a breakpoint and see the result of this ...

[COLOR=#333333]If CheckBox582 Then

...when u check and uncheck. When you debug it the problem will be obvious[/COLOR]

 

[Chris Hoek]

Thank you everyone.

I couldn't get any of that to do exactly what I needed it to. I don't know enough about breakpoints or debugging to figure it out and I ran out of time to keep trying different things. I did a little more searching and found this which worked:

Assigning the action:

Sub Checkbox_Command()
Dim cb
For Each cb In ActiveSheet.CheckBoxes
If Not Application.Intersect(cb.TopLeftCell, _
ActiveSheet.Range("R:R")) Is Nothing Then
cb.OnAction = "Sheet1.Reject_Reason"


End If
Next cb
End Sub

In the sheet code module:

Sub Reject_Reason()
Dim cb As Checkbox
Set cb = Me.CheckBoxes(Application.Caller)
If cb.Value = 1 Then
MsgBox "Please provide reason for rejection via email or in the comments section below."
End If
End Sub