BigBadWolf_000
asked on
Run a Sub on Check and Uncheck
Excel 2010
When checkbox is checked I want the first part to run. when unchecked I want the second part to run....is this possible using one checkbox control? Please help.
When checkbox is checked I want the first part to run. when unchecked I want the second part to run....is this possible using one checkbox control? Please help.
Private Sub CommandButton1_Click()
If Value = True Then
Range("C3").Select
ActiveCell.ClearFormats
ActiveCell.NumberFormat = "M/D/YYYY"
Else
Range("C3").Select
Selection.FormatConditions.Add Type:=xlCellValue, Operator:=xlBetween, _
Formula1:="=TODAY()", Formula2:="=TODAY()+15"
Selection.FormatConditions(Selection.FormatConditions.Count).SetFirstPriority
With Selection.FormatConditions(1).Font
.Color = -16777024
.TintAndShade = 0
End With
With Selection.FormatConditions(1).Interior
.PatternColorIndex = xlAutomatic
.ThemeColor = xlThemeColorAccent2
.TintAndShade = 0.799981688894314
End With
Selection.FormatConditions(1).StopIfTrue = False
End if
End Sub
ASKER CERTIFIED SOLUTION
membership
This solution is only available to members.
To access this solution, you must be a member of Experts Exchange.
Is the Checkbox the CommandButton1 itself? Or another control?
ASKER
Yes the CheckBox1_Click() itsself. (CommandButton1 was a typo)
CheckBox1.Value did the trick thank you calacuccia:
CheckBox1.Value did the trick thank you calacuccia:
If Sheets("Sheet1").Shapes("C heck Box 1").DrawingObject.Value = 1 Then
' it is checked
Else
' it is not checked
End if
' it is checked
Else
' it is not checked
End if
ASKER
Thanks for that code snippet too cyberkiwi: