Hide activebox when active box is checked

I'm trying to hide an Activebox when it's checked and visible when not. The code I was trying is this:

Private Sub CheckBox1_Click()
If CheckBox1.Value = True Then
ActiveSheet.CheckBox1.Visible = False
Else
ActiveSheet.CheckBox1.Visible = True
End If

End Sub

Part2

Would like to have when one ActiveBox is checked another will show and if it's not check then the other ActiveBox will be hidden.

Excel

Formulas and Functions

Perhaps like this?

Private Sub CheckBox1_Click()
    Me.CheckBox1.Visible = Not Me.CheckBox1.Value
    Me.CheckBox2.Visible = Me.CheckBox1.Value
    Application.EnableEvents = False
    Me.CheckBox2.Value = Not Me.CheckBox1.Value
    Application.EnableEvents = True
End Sub

Private Sub CheckBox2_Click()
    Me.CheckBox2.Visible = Not Me.CheckBox2.Value
    Me.CheckBox1.Visible = Me.CheckBox2.Value
    Application.EnableEvents = False
    Me.CheckBox1.Value = Not Me.CheckBox2.Value
    Application.EnableEvents = True
End Sub

HansVogelaar

MVP

Feb 16, 2024

Nefe1930

Perhaps like this?

Private Sub CheckBox1_Click()
    Me.CheckBox1.Visible = Not Me.CheckBox1.Value
    Me.CheckBox2.Visible = Me.CheckBox1.Value
    Application.EnableEvents = False
    Me.CheckBox2.Value = Not Me.CheckBox1.Value
    Application.EnableEvents = True
End Sub

Private Sub CheckBox2_Click()
    Me.CheckBox2.Visible = Not Me.CheckBox2.Value
    Me.CheckBox1.Visible = Me.CheckBox2.Value
    Application.EnableEvents = False
    Me.CheckBox1.Value = Not Me.CheckBox2.Value
    Application.EnableEvents = True
End Sub

Nefe1930
Copper Contributor
Feb 20, 2024
HansVogelaar
Ok that works however when box 2 is clicked box 1 reappears. I'd like to have it if box 2 is clicked box 1 is still hidden, box 2 is hidden, and a new box is visible.
- HansVogelaar
  MVP
  Feb 20, 2024
  Nefe1930
  
  How many check boxes do you want to use?

Forum Discussion

Hide activebox when active box is checked

Share

Resources