Multiselect with Combo / List boxes

L

Les G

I am trying to use a combo or list box that uses "rowsource" to populate the
control with selections. I then want the user to be able to select one or
numerouse values and these values must be 'written' to either a cell in the
workbook or a variable.

I cannot seem to get the control to 'write' the selected values.
 
R

royUK

Try

Code:
--------------------

Private Sub CommandButton1_Click()
Dim lSelected As Long
Dim sSelected As String

For lSelected = 0 To ListBox1.ListCount - 1
If ListBox1.Selected(lSelected) = True Then
If sSelected = Empty Then
sSelected = ListBox1.List(lSelected)
Else: sSelected = sSelected & ListBox1.List(lSelected)
End If
'this line will write to consecutive cells in sheet 2
' Sheet2.Cells(Rows.Count).End(xlUp).Offset(1, 0) = ListBox1.List(lSelected)
ListBox1.Selected(lSelected) = False
End If
Next
MsgBox sSelected
End Sub

--------------------


--
royUK

Hope that helps.

RoyUK
 
L

Les G

Hey Roy... Thanks you are a star. I will work on this, as it consistently
writes to the last column, but I will get it right from now. If I have a
problem I will come back to
 
Top