Check box VBA write a value

[bgcm12]

Hello everyone,

This is very basic, but just learning...

I have a checkbox that hides a range of columns when deselected and unhides the range when checked. I also want the code to write a value (1) to a cell when hidden and change the value to another value (0) when unhidden.

The range is hidden and unhidden perfectly, but the value "1" is written and doesn't change regardless of whether it is hidden/unhidden. (the value flicks momentarily to "0" when unchecking).

Thanks for any help.

Private Sub cbTermPrev1_Click()
If cbTermPrev1.Value = True Then Range("Term_Prev1").EntireColumn.Hidden = False
                                 Range("HiddenValPrev1").Value = 0
 
 
If cbTermPrev1.Value = False Then Range("Term_Prev1").EntireColumn.Hidden = True
                                  Range("HiddenValPrev1").Value = 1
End Sub

 

[JamesW]

Hi,

The reason is because both Range("HiddenValPrev1").Value are not included in the IF part, and so it will always write 1 regardless of that checkbox state.

Try:

Private Sub cbTermPrev1_Click()
    If cbTermPrev1.Value = True Then
        Range("Term_Prev1").EntireColumn.Hidden = False
        Range("HiddenValPrev1").Value = 0
    End If
     
     
    If cbTermPrev1.Value = False Then
        Range("Term_Prev1").EntireColumn.Hidden = True
        Range("HiddenValPrev1").Value = 1
    End If
End Sub

 

[bgcm12]

Ah!

That makes sense. Thank you very much!

Ben