muilti-select listbox choices back into worksheet

[Chris Davison]

how do I get, say, 10 choices made on a multi-choice 4-column listbox from a userform back onto a worksheet - say cells A1:D10 ?

thanks
Chris

 

[Andrew Poulsom]

Example:

Private Sub CommandButton1_Click()
    Dim i As Integer
    Dim r As Integer
    r = 0
    Worksheets("Sheet1").Cells(1, 1).Resize(65536, 4).ClearContents
    With ListBox1
        For i = 0 To .ListCount - 1
            If .Selected(i) Then
                r = r + 1
                Worksheets("Sheet1").Cells(r, 1).Value = .Column(0, i)
                Worksheets("Sheet1").Cells(r, 2).Value = .Column(1, i)
                Worksheets("Sheet1").Cells(r, 3).Value = .Column(2, i)
                Worksheets("Sheet1").Cells(r, 4).Value = .Column(3, i)
            End If
        Next i
    End With
End Sub

 

[Chris Davison]

ahhh...

it was the .selected(i) bit I was unaware of...

that's cool - thanks Andrew