Displaying Multiple Values Selected in a List Box

[smlaff304]

Hi, I have been reading the forum for quite a while now, always finding answers to my problems; thus this is my first post.

I am working on a user form for a college co-op project that I am working on. I have a list of data, which I have used as the input to a list box. I want to use the multiple selection option within the list box and be able to display the items selected.

So far I can only display single values. Does anyone have any suggestions on how I can go about having multiple selections appear in an adjacent column?

Any help would be very greatly appreciated.

 

[jindon]

try somethign like this

Private Sub ListBox1_Click()
Dim i As Long, msg As String
With ListBox1
     If .ListIndex <> -1 Then
          For i = 1 To .ListCount
               If .Selected(i) Then msg = msg & .List(i - 1) & vbLf
          Next
          MsgBox msg
     End If
End With
End Sub

 

[smlaff304]

I'm very new to this, I should just copy/paste this code into the code generator for the List Box? Paste this under where it says:

Sub ListBox1_Change()

Thanks again for the help.

 

[jindon]

1) right click on the sheet tab - [ViewCode]
2) Delete whatever on the right pane
3) Copy my code and paste there