button to check checkboxes

[raffa]

Hi everybody,

I have a userform with alot of checkboxes (thinking to change them to optionbuttons ) which must be checked to enter value into the sheet.I want that the checkboxes are always set to false (unchecked)when the userform opens.
My first question :Can i save the checkboxes entry from the user?
Second question: Can I create a button or a checkbox that when clicked the saved entries will appear?
If so can someone help me with this code.thanks alot

 

[Richard U]

Yes, on the click event of the button, enter in this code:

Dim Ctr as integer
Ctr = 1
for each ctl in MyForm.controls
   if TypeName(ctl) = "CheckBox" then
        ctl.value=Cells(Ctr,1) 
        Ctr = Ctr +1
   End If
Next ctl

then when it comes time to save the values....

Dim Ctr as integer
Ctr = 1
for each ctl in MyForm.controls
   if TypeName(ctl) = "CheckBox" then
        Cells(Ctr,1) = ctl.value
        Ctr = Ctr +1
   End If
Next ctl

 

[raffa]

awesome tnx alot Richard U and tnx for the fast reply

 

[Richard U]

yw