How to populate cell contents based on ActiveX checkbox?

[Ayugma]

Hi all, how would I populate a specific cell when a checkbox is checked? I tried the code below, but it doesnt change the cell value automatically. Any help would be appreciated.

Private Sub CommandButton9_Click()
If CheckBox1.Value = True Then
    Range("A109").Value = "ZJ2"
ElseIf CheckBox1.Value = False Then
    Range("A109").ClearContents
    If CheckBox2.Value = True Then
    Range("A109").Value = "ZJ3"
ElseIf CheckBox2.Value = False Then
    Range("A109").ClearContents
End If
End If

End Sub

 

[Fluff]

Do you mean you want it to work when you click the checkbox?

 

[Ayugma]

Do you mean you want it to work when you click the checkbox?

Yes that's what I'm hoping to do if its possible.

 

[Fluff]

How about

Private Sub CheckBox1_Click()
   Range("A109").Value = IIf(Me.CheckBox1, "ZJ2", "")
End Sub

& the same for the other checkbox

 

[Ayugma]

How about

Private Sub CheckBox1_Click()
   Range("A109").Value = IIf(Me.CheckBox1, "ZJ2", "")
End Sub

& the same for the other checkbox

Could you please explain what llf is? I haven't seen that yet.

 

[Fluff]

It's a VBA function.

IIf function (Visual Basic for Applications)

Office VBA reference topic

docs.microsoft.com

 

[Ayugma]

It's a VBA function.

IIf function (Visual Basic for Applications)

Office VBA reference topic

docs.microsoft.com

Also, I wanted a command button to perform this. Like I would hit the command button and it would do it.

 

[Fluff]

You already have a command button, but you said you wanted it to happen when the check box is clicked.

 

[Ayugma]

You already have a command button, but you said you wanted it to happen when the check box is clicked.

I am so bad at explaining things lol.

Okay so at the start I would have the option for a checkbox. When I hit the command button it would check if the checkbox has been clicked or not and display the results as well.

 

[Fluff]

In that case what is wrong with your code?