Extracting values from multiselect list box

[Kite3]

Hi Guys,

I have some code to return the values from a multiselect list box when writing the data from a userform to my worksheet. I thought it was working, but have just realised that it is not...

I have 3 list boxes on my userform, and 3 columns that the data is to be written to.

• List box one writes to the designated column (correct)
• List box 2 writes the data from list box 1 & 2 to the designated column (I only want the data from the 2nd list box!)
• List box 3 writes the data from all 3 list boxes into the column! (I only want the data from the 3rd list box!)

I don't know how to fix it! I'm assuming I need to 'clear' it between? Code below. Please help!

    'Return values from multiselect list boxes
 
        'Plan A locations
        Dim listItems As String, i As Long
        With lstPlanALocations
            For i = 0 To .ListCount - 1
                If .Selected(i) Then listItems = listItems & .List(i) & ", "
            Next i
        End With
            If Len(listItems) > 0 Then
            .Offset(RowCount, 58).Value = Left(listItems, Len(listItems) - 2)
        Else
            .Offset(RowCount, 58).Value = ""
        End If


        'Plan B locations
        With lstPlanBLocations
            For i = 0 To .ListCount - 1
                If .Selected(i) Then listItems = listItems & .List(i) & ", "
            Next i
        End With
            If Len(listItems) > 0 Then
            .Offset(RowCount, 115).Value = Left(listItems, Len(listItems) - 2)
        Else
            .Offset(RowCount, 115).Value = ""
        End If
    
    
        'Pre-Trim locations
        With lstPTLocations
            For i = 0 To .ListCount - 1
                If .Selected(i) Then listItems = listItems & .List(i) & ", "
            Next i
        End With
            If Len(listItems) > 0 Then
            .Offset(RowCount, 142).Value = Left(listItems, Len(listItems) - 2)
        Else
            .Offset(RowCount, 142).Value = ""
        End If

      End With
    
Unload Me
 End Sub

[millz]

Add these lines:

    'Return values from multiselect list boxes
 
        'Plan A locations
        Dim listItems As String, i As Long
        With lstPlanALocations
            For i = 0 To .ListCount - 1
                If .Selected(i) Then listItems = listItems & .List(i) & ", "
            Next i
        End With
            If Len(listItems) > 0 Then
            .Offset(RowCount, 58).Value = Left(listItems, Len(listItems) - 2)
        Else
            .Offset(RowCount, 58).Value = ""
        End If

        listItems = ""
        'Plan B locations
        With lstPlanBLocations
            For i = 0 To .ListCount - 1
                If .Selected(i) Then listItems = listItems & .List(i) & ", "
            Next i
        End With
            If Len(listItems) > 0 Then
            .Offset(RowCount, 115).Value = Left(listItems, Len(listItems) - 2)
        Else
            .Offset(RowCount, 115).Value = ""
        End If
    
        listItems = ""
        'Pre-Trim locations
        With lstPTLocations
            For i = 0 To .ListCount - 1
                If .Selected(i) Then listItems = listItems & .List(i) & ", "
            Next i
        End With
            If Len(listItems) > 0 Then
            .Offset(RowCount, 142).Value = Left(listItems, Len(listItems) - 2)
        Else
            .Offset(RowCount, 142).Value = ""
        End If

      End With
    
Unload Me
 End Sub

[Kite3]

Excellent, thanks millz, working now