Hi Guys,
I have a listbox that the user can make any number of selections
(multiSelect)then click the cmdSelect button and have it fill another form
with labels from the selections. The following code uses the selections but
on the form i have to have say 10 labels already set up to be filled and i
don't always need 10. I may only need to fill 3 labels with the selections
from the list box. Across from the labels i want to have textbox for the user
to enter a value. Have any ideas or have i confused everyone. Thank you so
much for any help or direction.

Private Sub cmdSelect_Click()
Dim i As Long
Dim SelCount As Long

With ListBox1
For i = 0 To .ListCount - 1
If .Selected(i) = True Then
SelCount = SelCount + 1
UserForm1.Controls("Label" & SelCount).Caption = .List(i)
End If
Next
End With

UserForm1.Show
End Sub
--
Thank you,

Jennifer

You don't need selcount because it is "i + 1" . I believe you can make the
controls visible or not visible.


Private Sub cmdSelect_Click()
Dim i As Long

With ListBox1
For i = 0 To .ListCount - 1
If .Selected(i + 1) = True Then
UserForm1.Controls("Label" & (i + 1)).Caption = .List(i)
UserForm1.Controls("Label" & (i + 1)).visible = True
else
UserForm1.Controls("Label" & (i + 1)).visible = False
End If
Next
End With

UserForm1.Show
End Sub

"Jennifer" wrote:

Hi Guys,
I have a listbox that the user can make any number of selections
(multiSelect)then click the cmdSelect button and have it fill another form
with labels from the selections. The following code uses the selections but
on the form i have to have say 10 labels already set up to be filled and i
don't always need 10. I may only need to fill 3 labels with the selections
from the list box. Across from the labels i want to have textbox for the user
to enter a value. Have any ideas or have i confused everyone. Thank you so
much for any help or direction.

Private Sub cmdSelect_Click()
Dim i As Long
Dim SelCount As Long

With ListBox1
For i = 0 To .ListCount - 1
If .Selected(i) = True Then
SelCount = SelCount + 1
UserForm1.Controls("Label" & SelCount).Caption = .List(i)
End If
Next
End With

UserForm1.Show
End Sub
--
Thank you,

Jennifer