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.

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
------------------------------------------------------------------------
royUK's Profile: http://www.thecodecage.com/forumz/member.php?userid=15
View this thread: http://www.thecodecage.com/forumz/sh...ad.php?t=24881

It's the Control Source property.

HTH. Best wishes Harald

"Les G" wrote in message
...
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.

Oops, missed the "or numerouse". This needs coding, sorry.

"Harald Staff" wrote in message
...
It's the Control Source property.

HTH. Best wishes Harald

"Les G" wrote in message
...
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.

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

"royUK" wrote:


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
------------------------------------------------------------------------
royUK's Profile: http://www.thecodecage.com/forumz/member.php?userid=15
View this thread: http://www.thecodecage.com/forumz/sh...ad.php?t=24881