Listbox Multiselect - Help with Output

[Ryan Fisher]

I have a listbox set up with multiselect that is populated with information from cells A2:A10. If a user selects more than one item, I want each item to show up in a different cell. For example if they select items 1,4, and 6, then I would like item 1 to show up in cell B2, item 2 to show up in cell B3, and item 3 to show up in cell B4.

Thanks for the help!

 

[Domenic]

How about using a command button to execute the code? Once the items have been selected from the listbox, the command button can be clicked, and the selected items will be copied to Column B, starting at B1, of the acitve sheet. If so, create a command button, and place the following code in the module for the userform...

Private Sub CommandButton1_Click()
    Dim r As Long
    Dim i As Long
    With Me.ListBox1
        r = 1
        For i = 0 To .ListCount - 1
            If .Selected(i) Then
                Cells(r, "B").Value = .List(i)
                r = r + 1
            End If
        Next i
    End With
End Sub

Change the name of the command button, accordingly.

 

[Ryan Fisher]

Thanks Domenic!

That is exactly what I needed! I'm putting together a dashboard for a financial institution and this is the missing piece.

 

[X_The_Owl]

Hi Domenic,

I tired using this setup and code for a similar situation, but only the first item selected from the multi-select box is returned to the first cell in the output range. What am I doing wrong?

Thanks