How to have Checkbox A uncheck with checked Checkbox B

[Texas Aggie]

I had the same issue. I wanted to use a checkbox and not option button
because option button control ever option button on the sheet. This is how I
was able to use checkboxes and have it when box A is check, box B become
unchecked.

Using a Forms Checkbox

Link your two checkboxes to their respective cells.
Checkbox A with A1
Checkbox B with B1

Then on Checkbox A us this code:

Option Explicit
Sub Checkbox_A()
Dim myCBX As CheckBox
Set myCBX = ActiveSheet.CheckBoxes(Application.Caller)

If myCBX.Value = xlOn Then
myCBX.TopLeftCell.Offset(0, 1).Value = False
End If

End Sub


Then on Checkbox B us this code:

Option Explicit
Sub Checkbox_B()
Dim myCBX As CheckBox
Set myCBX = ActiveSheet.CheckBoxes(Application.Caller)

If myCBX.Value = xlOn Then
myCBX.TopLeftCell.Offset(0, -1).Value = False
End If

End Sub


This will do the trick. I was tired of everyone telling me to use option
button so I did it myself.

p.s. - to not see the "TRUE/FALSE" under the checkboxed, just change the
color of the text to match the background

~Ryan

 

[Jim Thomlinson]

Why not just place your option buttons inside of frame controls. Then the
option buttons within one frame control have no effect on the option buttons
in other frame controls? Just a thought...

 

[Texas Aggie]

Mainly because every has told me to use option buttons and I prefer
checkboxes. I wanted to let everyone know that it can be done, and for the
reason I wanted to do something not a lot of people are willing to do nor
help with.

 

[Jim Thomlinson]

To each his own. Most users are familar with CheckBoxes being multi select
while option buttons are mutually exclusive select but if you like check
boxes then more power to you.