Forum Discussion

Nefe1930

Copper Contributor

Feb 16, 2024

Solved

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 = ...

excel

Formulas and Functions

Macros and VBA

HansVogelaar

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

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?
  - Nefe1930
    Copper Contributor
    Feb 20, 2024
    Got alot! LOL doing up a form