Select multiple values

[Atencorps]

Hello all,

I'm trying to see if it's possible to create a list box where I can select
multiple values. For example, if a create a list box with the values, "ant",
"dog", and "cat". Is it possible for me to give the user the option to
choose, "ant" and "cat"?

Thanks in advance.

 

[Daniel.C]

Hello.
Use the Multiselect property of the listbox.
To retrieve the selected items, use (case of a worksheet listbox :

With Sheet1.ListBox1
For i = 0 To .ListCount - 1
If .Selected(i) Then
'code
End If
Next i
End With

HTH
Daniel

 

[Gary''s Student]

Explicitly list them. Just like a data validation list:

ant
dog
cat
ant and dog
ant and cat
dog and cat
ant and dog and cat

 

[Atencorps]

Hi

Your answer seems the best way to do it but ive not used if statements in
Excel before so require abit of guidance.

So how and where would I place the code.

Right now I have a excel file called -Document process
within the file I have two worksheets - 1.document , 2. Data.

I have placed in 2.data a column (A) called animals and populated that with
my animal options for my list.

In 1.Document I place a column (B) called animal choices.

How would I use the if statement to populate in 1.document cell (B2) with
multiple choices made.

Thanks in advance

 

[Daniel.C]

Select sheet 1.document
click on menus : View, Toolbars, Controls toolbox. Click on listbox,
draw it on the sheet. Click on properties, change the multiselect
property to 1 or 2. find the "listfillrange" property and enter :
'2.Data'!A1:A10
where A1:A10 is your list of animals.
(if you expect to add or delete entries in the list, please tell it, i
shall modify this).
Add a command button. Change the Caption property to "OK" or whatever
you want.
Close the properties window and click on "view code".
Between "Private Sub CommandButton1_Click()" and "End Sub, paste the
following code :

'clear cell B2
[B2] = ""
'every element beginning with a dot refers to
'Sheets("1.document").ListBox1
With Sheets("1.document").ListBox1
'loops through the listbox element
For i = 0 To .ListCount - 1
'when selected
If .Selected(i) Then
[B2] = [B2] & .List(i) & " "
.Selected(i) = False
End If
Next i
End With

Your workbook should look like mine :
http://www.filedropper.com/atencorps
Daniel