Uncheck CheckBoxes if one is checked

[YasserKhalil]

Hi everybody
How are you doing today?

I have five checkboxes on the worksheet ..
I'd like to untick the other four checkboxes if CheckBox1.Value=True
I wrote a code but I got an error
Please help me fix this code

Private Sub CheckBox1_Change()
If CheckBox1.Value = True Then
For X = 2 To 5
Me.Controls("CheckBox" & X).Value = False
Next X
End If
End Sub

[Bob Phillips]

Private Sub CheckBox1_Change()
Dim x As Long
If Me.CheckBox1.Value Then
        For x = 2 To 5
            Me.OLEObjects("CheckBox" & x).Object.Value = False
        Next x
    End If
End Sub

[YasserKhalil]

Perfect Mr. xld
Excellent dear

What if I want to do the same with other CheckBoxes .. In another words, when a checkbox is checked the others will be unchecked??
Is that code will be copied with other checkboxes change event?? or there's an easy way to do so??
Thanks a lot for your great help
You 're always helpful

[Bob Phillips]

Private Sub CheckBox1_Change()
    SetCheckBoxes 1
End Sub

Private Sub CheckBox2_Change()
    SetCheckBoxes 2
End Sub

Private Sub CheckBox3_Change()
    SetCheckBoxes 3
End Sub

Private Sub CheckBox4_Change()
    SetCheckBoxes 4
End Sub

Private Sub CheckBox5_Change()
    SetCheckBoxes 5
End Sub


Private Function SetCheckBoxes(CBIndex As Long)
Dim x As Long
If Me.OLEObjects("CheckBox" & CBIndex).Object.Value Then
    For x = 1 To 5
        If x <> CBIndex Then
            Me.OLEObjects("CheckBox" & x).Object.Value = False
        End If
    Next x
    End If
End Function

[YasserKhalil]

Mr. xld
I can't believe myself
It works perfect..
Thank you very much from now till the end or even beyond the end of my life

[drm51]

Hi xld,
The code you showed above and I listed below again, works great for checkboxes 1-5 alone, but I have many groups of checkboxes with 3 to 5 checkboxes in them that I would like to be independent of each other. If you check a checkbox in one group the other checkboxes in that group will be unchecked, but it would not affect the other groups of checkboxes.

I have tried the code you presented as below:

Private Sub CheckBox1_Change() 
    SetCheckBoxes 1 
End Sub 
 
Private Sub CheckBox2_Change() 
    SetCheckBoxes 2 
End Sub 
 
Private Sub CheckBox3_Change() 
    SetCheckBoxes 3 
End Sub 
 
Private Sub CheckBox4_Change() 
    SetCheckBoxes 4 
End Sub 
 
Private Sub CheckBox5_Change() 
    SetCheckBoxes 5 
End Sub 
 
 
Private Function SetCheckBoxes(CBIndex As Long) 
    Dim x As Long 
If Me.OLEObjects("CheckBox" & CBIndex).Object.Value Then 
            For x = 1 To 5 
                    If x <> CBIndex Then 
            Me.OLEObjects("CheckBox" & x).Object.Value = False 
                    End If 
            Next x 
    End If 
End Function

Like I stated, this code works great for just ONE group of checkboxes. How do I change it to work independently for multiple groups of checkboxes.

Thank you very much for any help you can provide.

drm51

[drm51]

Hi,
I am referring back to a post “Solved: Uncheck Checkboxes if one is checked”, but have additional questions for this post. I am not familiar as how to reopen a “Solved” post, so I will post a new one.

The code showed above popst and I listed below again, works great for checkboxes 1-5 alone, but I have many groups of checkboxes with 3 to 5 checkboxes in them that I would like to be independent of each other. If you check a checkbox in one group the other checkboxes in that group will be unchecked, but it would not affect the other groups of checkboxes.

I have listed the code presented as below:

Private Sub CheckBox1_Change() 
SetCheckBoxes 1 
End Sub 

Private Sub CheckBox2_Change() 
SetCheckBoxes 2 
End Sub 

Private Sub CheckBox3_Change() 
SetCheckBoxes 3 
End Sub 

Private Sub CheckBox4_Change() 
SetCheckBoxes 4 
End Sub 

Private Sub CheckBox5_Change() 
SetCheckBoxes 5 
End Sub 


Private Function SetCheckBoxes(CBIndex As Long) 
Dim x As Long 
If Me.OLEObjects("CheckBox" & CBIndex).Object.Value Then 
    For x = 1 To 5 
        If x <> CBIndex Then 
            Me.OLEObjects("CheckBox" & x).Object.Value = False 
        End If 
    Next x 
End If 
End Function

Like I stated, this code works great for just ONE group of checkboxes. How do I change it to work independently for each group of checkboxes for multiple groups of checkboxes.

Thank you very much for any help you can provide.

drm51

[SamT]

DRM51,

Welcome to VBA Express.

This thread is solved, only people who want to see how it was solved will see your question.

Start a new thread, maybe titled, "Uncheck boxes in one group only."