Selecting multiple items on Listbox

[Rahul_Uk]

Hi,

I am new to MS Excel and need help with the selection of multiple items
on a Listbox (using the Control Toolbox). I have managed to set up a
listbox and it allows me to select more than one item (using
Multiselect in Properties).

I want to output my selections to cells in my worksheet. So if I
select two items from my listbox I will have the values for those items
in Cells: A1 and A2. Essentially I would like a Linkedcell
functionality for multiple selections and not just single selections.

Can anyone help with this.

Thanks

Rahul

 

[Bob Phillips]

Private Sub ListBox1_Change()
Dim i As Long
Dim j As Long
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
End Sub

--
HTH

Bob Phillips

(remove nothere from email address if mailing direct)

 

[Rahul_Uk]

Thanks for the quick response...your help is much appreciated.

I still have the following problems unfortunately.

1. The code worked initially populating Cell A1 with my selection. But
it does not work anymore.

2. When it did work it only managed to populate cell A1 with the first
item selected but did not populate A2 or A3 with the second and third
items selected from the Listbox.