Run Code from User Form when Check box Clicked

[rpaulson]

I have the following code in my Private Sub UserForm_initialize() section of my user form.

It will programmatically create many check boxes. this part actually works as planned.

r = 1
For c = 2 To 14
    Set chkBox = Me.Controls.Add("Forms.CheckBox.1", "CheckBox_" & c)
    chkBox.Caption = Cells(10, c).Value
    chkBox.Left = 500
    chkBox.Top = 50 + ((r - 1) * 20)
    
    If Columns(c).ColumnWidth = 0 Then chkBox.Value = True 'delaut check boxes to true if data in row 11
    r = r + 1
Next c

the issue is, I do not know how to trigger a click event

The below does not seem to work:

Private Sub CheckBox_3_Click()
MsgBox "Box 3 clicked"
End Sub

any ideas?

Thanks,
Ross

 

[Logit]

If ActiveSheet.Shapes("Check Box 1").ControlFormat.Value = 1 Then

1 is checked
0 is unchecked

 

[rpaulson]

Logit,
not sure we are on the same page.

I think your code returns the value of the control
I would like an event to run as soon as the user clicks or unclicks each individual control.

 

[KevCarter]

Ross,

Please try:

Private Sub CheckBox_3_Change()
MsgBox "Box 3 clicked"
End Sub

 

[rpaulson]

KevCarter,
sorry no Luck

 

[KevCarter]

KevCarter,
sorry no Luck

Hmmm, actually, your original Click should work. Have you double checked the spelling in both the form and the code?

 

[rpaulson]

if I put a check box on my form manually it works just fine.

I think the problem lies in the fact that the check boxes themselves were created with VBA code.

 

[Logit]

If Me.Shapes("Check Box 1").ControlFormat.Value = 1 Then
    'Your macro code here or a call to the macro. Ex: Your Macro
    'is named ThisIsMyMacro. So you would put ...
   
    ThisIsMyMacro
End if

 

[rpaulson]

Logit,

Again, I think you code is getting the value. I'm not looking for that.
I am Looking for the method to trigger an action when the check box is clicked by the user.

 

[Logit]

Let's try it this way .....

Sub CommandButton2_Click()
  If Me.CheckBox6.Value = True Then
    Range("A7").Select
    ActiveCell.Value = "BOX 6"
    Range("A1").Select
    MsgBox "Done"
  End If
End Sub

Download workbook : Amazon Drive