VBA click event to Uncheck checkboxes when checking one checkbox

[nmmounir]

Hello Everyone,

I have created 7 Active x-control checkboxes. I would like to uncheck the other 6 checkboxes when the first one is checked.
if I check All Scenarios then Scenario 1, 2, 3, 4, 5 and 6 should become unchecked.

I am not good at VBA bur I tried to write this code but abviously it is not working.

Private Sub CheckBox1_Click()

Dim i As Byte

For i = 2 To Me.OLEObjects.Count

If Me.CheckBox1 = xlOn Then
Me.OLEObjects(i).Value = False

End If

Next i

End Sub

 

[JEC]

Try

Private Sub CheckBox1_Click()
 For j = 2 To 7
   ActiveSheet.OLEObjects("CheckBox" & j).Object = False
 Next
End Sub

 

[Micron]

I think you forgot the If True part? If you set box 1 to false that code will uncheck the others if they are checked. Maybe not what is wanted, but maybe OK anyway because there might be code that won't allow that to happen.

 

[JEC]

I questioned that explanation too...

So

Private Sub CheckBox1_Click()
 With ActiveSheet
   If Not .OLEObjects("CheckBox1").Object Then Exit Sub
   For j = 2 To 7
      .OLEObjects("CheckBox" & j).Object = False
   Next
 End With
End Sub

 

[Micron]

To me it is clear

I would like to uncheck the other 6 checkboxes when the first one is checked

but I have been wrong before. I tend to plan for someone adding controls to a 'group' along the way so I'm more like (untested)

Dim Cbox As Object
If Checkbox1 = True Then
   For Each Cbox In ActiveSheet.OLEObjects
       If Cbox.Name <> "Checkbox1" Then Cbox.Object.Value = False
   Next
End If

EDIT - although the counter is best if x out of the other remaining y checkboxes need changing and not just all of the remaining checkboxes.

 

[JEC]

Adjusted my previous one

Private Sub CheckBox1_Click()
 dim j as long
 If Not CheckBox1 Then Exit Sub
 For j = 2 To 7
    ActiveSheet.OLEObjects("CheckBox" & j).Object = False
 Next
End Sub

 

[nmmounir]

Adjusted my previous one

Private Sub CheckBox1_Click()
 dim j as long
 If Not CheckBox1 Then Exit Sub
 For j = 2 To 7
    ActiveSheet.OLEObjects("CheckBox" & j).Object = False
 Next
End Sub

Thank you very much. It works perfectly. one little issue:
I will need to create another separate click event for the other 6 checkboxes to uncheck all Scenarios when Scenarion1 or 2 or 3 or 4 or 5 or 6 is checked.

do I create a separate click event for each checkbox?

 

[Micron]

AFAIK, that is the only way.

 

[nmmounir]

Thank you JEC and Micron very much. your solutions work perfectly.