LLL
03-30-2009, 12:33 PM
Hello,
I have user forms I have created with checkboxes. As the items are checked off, I have it set to save the information. But what would be the code to have the checkboxes uncheck if you choose to clear all. BUT only clear when the button is clicked. Thanks
Here is an example of code for the checkboxes
Private Sub UserForm_Initialize()
Application.EnableEvents = False
Set r = ActiveCell
For i = 1 To 1
If r.Offset(, 88 + i) <> "" Then
Me.Controls("Checkbox" & i) = True
End If
Next
Application.EnableEvents = True
End Sub
'@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
Private Sub CheckBox1_AfterUpdate()
AddX Me.CheckBox1, r.Row, 103
End Sub
I have user forms I have created with checkboxes. As the items are checked off, I have it set to save the information. But what would be the code to have the checkboxes uncheck if you choose to clear all. BUT only clear when the button is clicked. Thanks
Here is an example of code for the checkboxes
Private Sub UserForm_Initialize()
Application.EnableEvents = False
Set r = ActiveCell
For i = 1 To 1
If r.Offset(, 88 + i) <> "" Then
Me.Controls("Checkbox" & i) = True
End If
Next
Application.EnableEvents = True
End Sub
'@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
Private Sub CheckBox1_AfterUpdate()
AddX Me.CheckBox1, r.Row, 103
End Sub