Please can someone help. I have a user form with two list boxes on it. One on
the left and one on the right. The LH box has a list of choices and the RH
box is empty. I want a user to highlight a choice or choices in the left box
and by clicking a button with an arrow on it pointing to the RH box it will
populate the RH box with this choice. Having created a list of choices in the
RH box I then want to create a space seperated string of these choices.

Anyone done something similar before?

Make sure you set your multiselect option to select multiple or extended,
then put this in the buttons click event.

For i = 0 To ListBox1.ListCount - 1
On Error Resume Next
If ListBox1.Selected(i) = True Then
ListBox2.AddItem ListBox1.List(i)
End If
Next i

--
-John
Please rate when your question is answered to help us and others know what
is helpful.


"JLR-Mart" wrote:

Please can someone help. I have a user form with two list boxes on it. One on
the left and one on the right. The LH box has a list of choices and the RH
box is empty. I want a user to highlight a choice or choices in the left box
and by clicking a button with an arrow on it pointing to the RH box it will
populate the RH box with this choice. Having created a list of choices in the
RH box I then want to create a space seperated string of these choices.

Anyone done something similar before?

Thanks John, nearly there. If I wanted the selection to 'move' from one box
to the other rather than 'copy' how would that work? So if I've selected it
and put it in the box on the RH side it's no longer an option in the LH side?

"John Bundy" wrote:

Make sure you set your multiselect option to select multiple or extended,
then put this in the buttons click event.

For i = 0 To ListBox1.ListCount - 1
On Error Resume Next
If ListBox1.Selected(i) = True Then
ListBox2.AddItem ListBox1.List(i)
End If
Next i

--
-John
Please rate when your question is answered to help us and others know what
is helpful.


"JLR-Mart" wrote:

Please can someone help. I have a user form with two list boxes on it. One on
the left and one on the right. The LH box has a list of choices and the RH
box is empty. I want a user to highlight a choice or choices in the left box
and by clicking a button with an arrow on it pointing to the RH box it will
populate the RH box with this choice. Having created a list of choices in the
RH box I then want to create a space seperated string of these choices.

Anyone done something similar before?

For i = 0 To ListBox1.ListCount - 1
On Error Resume Next
If ListBox1.Selected(i) = True Then
ListBox2.AddItem ListBox1.List(i)
ListBox1.RemoveItem i
End If
Next i


hth

Keith

just add the line i have commented
Private Sub CommandButton1_Click()

For i = 0 To ListBox1.ListCount - 1
On Error Resume Next
If ListBox1.Selected(i) = True Then
ListBox2.AddItem ListBox1.List(i)
ListBox1.RemoveItem (i) 'add this
End If
Next i

End Sub

--
-John
Please rate when your question is answered to help us and others know what
is helpful.


"JLR-Mart" wrote:

Thanks John, nearly there. If I wanted the selection to 'move' from one box
to the other rather than 'copy' how would that work? So if I've selected it
and put it in the box on the RH side it's no longer an option in the LH side?

"John Bundy" wrote:

Make sure you set your multiselect option to select multiple or extended,
then put this in the buttons click event.

For i = 0 To ListBox1.ListCount - 1
On Error Resume Next
If ListBox1.Selected(i) = True Then
ListBox2.AddItem ListBox1.List(i)
End If
Next i

--
-John
Please rate when your question is answered to help us and others know what
is helpful.


"JLR-Mart" wrote:

Please can someone help. I have a user form with two list boxes on it. One on
the left and one on the right. The LH box has a list of choices and the RH
box is empty. I want a user to highlight a choice or choices in the left box
and by clicking a button with an arrow on it pointing to the RH box it will
populate the RH box with this choice. Having created a list of choices in the
RH box I then want to create a space seperated string of these choices.

Anyone done something similar before?

Thanks for the responses...much appreciated

"John Bundy" wrote:

just add the line i have commented
Private Sub CommandButton1_Click()

For i = 0 To ListBox1.ListCount - 1
On Error Resume Next
If ListBox1.Selected(i) = True Then
ListBox2.AddItem ListBox1.List(i)
ListBox1.RemoveItem (i) 'add this
End If
Next i

End Sub

--
-John
Please rate when your question is answered to help us and others know what
is helpful.


"JLR-Mart" wrote:

Thanks John, nearly there. If I wanted the selection to 'move' from one box
to the other rather than 'copy' how would that work? So if I've selected it
and put it in the box on the RH side it's no longer an option in the LH side?

"John Bundy" wrote:

Make sure you set your multiselect option to select multiple or extended,
then put this in the buttons click event.

For i = 0 To ListBox1.ListCount - 1
On Error Resume Next
If ListBox1.Selected(i) = True Then
ListBox2.AddItem ListBox1.List(i)
End If
Next i

--
-John
Please rate when your question is answered to help us and others know what
is helpful.


"JLR-Mart" wrote:

Please can someone help. I have a user form with two list boxes on it. One on
the left and one on the right. The LH box has a list of choices and the RH
box is empty. I want a user to highlight a choice or choices in the left box
and by clicking a button with an arrow on it pointing to the RH box it will
populate the RH box with this choice. Having created a list of choices in the
RH box I then want to create a space seperated string of these choices.

Anyone done something similar before?