Need More Help on Stuffing Checkbox control

  • Thread starter Thread starter Guest
  • Start date Start date
G

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

Jason Morin said:
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
Click to expand...
Was this post helpful to you
 
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
 
Git it,

Thanks

peter said:
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
Click to expand...
 
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
 
Back
Top