How do I use a multiselect listbox

[Guest]

Hello
I can create a multiselect list box using either the forms or control
toolbox. I can click on multiple items to select them but thats it. How do
I take the selection and do something useful with it (Preferably with forms).
How can I make the selections appear as a list on the worksheet? Do I have
to do it with VB? If so how?
Many thanks
Neil

 

[Nigel]

The selection is stored in an array, who's dimension is the same as the list
item count. Each selected item is set True.
Use a loop to read all items in the control testing the Selected property
for this value.

for i = 0 to ListBox.ListCount - 1
if ListBox.Selected(i) Then _
' act on the selected value e.g. ListBox.List(i)
next i

 

[Bob Phillips]

With Me.ListBox1
For i = 0 To .ListCount - 1
If .Selected(i) Then
j = j + 1
Cells(j,"A").Value = .List(i)
End If
Next i
End With



--
HTH

Bob Phillips

(replace somewhere in email address with gmail if mailing direct)