Need More Help on Stuffing Checkbox control

[Guest]

Jasons suggseted code below worked for the Caption. Likewise how would I set
the .Value for each Checkbox to True or False? I tried changing
..Caption to .Value in his code but that didn't work.

Thank you,

Sandy

Sandy-

Try this for starters:

Sub Fill_Captions()
Dim ctrl As MSForms.Control
Dim i As Integer
i = 1
For Each ctrl In UserForm1.Controls
If TypeOf ctrl Is MSForms.CheckBox Then
ctrl.Caption = Sheets(1).Cells(i, "A")
i = i + 1
End If
Next
End Sub

---
This assumes the captions you want to use in cells A1:A20 in the first sheet
of your workbook.

HTH
Jason
Atlanta, GA

Was this post helpful to you

 

[Guest]

Hi,
ctrl.value = "true" works just fine.
for some reason vb does not seem to allow auto fill when you
type ctrl. with value. But if you forse it in, it worked for me.

peter

 

[Guest]

Git it,

Thanks

Hi,
ctrl.value = "true" works just fine.
for some reason vb does not seem to allow auto fill when you
type ctrl. with value. But if you forse it in, it worked for me.

peter

 

[Doug Glancy]

peter,

Fyi, the "ctrl" variable Intellisense doesn't autofill "value" because it
could be a control without one, like a button. Try intellisense with this
meaningless code and you'll see that "chkbox" autofills "Value" but "ctrl"
doesn't. That's because intellisense knows chkbox is a checkbox and that
they have a "Value" property. With "ctrl" it just takes your word for it
and if your right it compiles.

Dim ctrl As MSForms.Control
Dim chkbox As MSForms.CheckBox

ctrl.Value = False
chkbox.Value = False

For a similar reason, I think, "Activesheet" doesn't have intellisense, but
"ws" dimensioned as a worksheet does. Activesheet could be a chart sheet or
a worksheet, so it doesn't offer you the choices for either, I think.

Not that you asked, but sometimes it helps me to think out loud about these
things.

Doug