How do I enable multiple selection of items in user form list box and transfer the data to another sheet?

[karmaLee]

I have a user form that contains list box. I want to be able to select multiple items from my list box and when I click the "OK" command button in the user form, I want the items selected to be transferred to another worksheet in the same workbook. I have attempted a code but my code only enabled the last item selected to be transferred. I want all items selected to be transferred.

Here is my code:
Dim i
With Sheet5
.Cells(newRow, 5) = ListBox1
For i = 0 To ListBox1.ListCount - 1
If ListBox1.Selected(i) Then
.Cells(newRow, 5) = ListBox1.List(i)
End If

Next i
End With

 

[bebo021999]

If ListBox1.Selected(i) Then
k=k+1
.Cells(newRow, 5) = ListBox1.List(k)

 

[Fluff]

Are you trying to put all the selected items into one cell, or multiple cells?

 

[karmaLee]

Are you trying to put all the selected items into one cell, or multiple cells?

hi, I am trying to place all selected items into 1 cell

 

[karmaLee]

If ListBox1.Selected(i) Then
k=k+1
.Cells(newRow, 5) = ListBox1.List(k)

Hello, I tested out your code but it still does not place all selected items into the cell.

 

[Fluff]

How about

.Cells(newRow, 5) = .Cells(newRow, 5) & ", " & ListBox1.List(i)

 

[karmaLee]

How about

.Cells(newRow, 5) = .Cells(newRow, 5) & ", " & ListBox1.List(i)

Hello Fluff, thank you for your code. The code works perfectly and just as I had intended. I appreciate your help! Have a great week ahead!

 

[Fluff]

Glad to help & thanks for the feedback.