View Single Post
  #2   Report Post  
Posted to microsoft.public.excel.programming
peter peter is offline
external usenet poster
 
Posts: 29
Default Need More Help on Stuffing Checkbox control

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


"Sandy" wrote:

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" wrote:

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


"Sandy" wrote:

I have a user form with 20 check boxes. I want to loop through them stuffing
the captions with various text retrieved from a worksheet.

The checkboxes are consecutively named checkbox1 to checkbox 20.

for i = 1 to 20 step 1

what goes here?

next i

Thanks,

Sandy

Was this post helpful to you