list box help

[Aprez76]

Looking for some help extracting info from a list box into a worksheet.

Right now I have a user form that has a list box set to multi select with check box style. I would like to extract the record(s) selected by the user to a worksheet... say sheet1, cell a1. Can't figure how to do this with the multiselect.

Any help is much appreciated.

Thanks,

Andrew

 

[Scott.C.Lyerly]

Try something like this:

    Dim i As Long
    With Me.ListBox1
        For i = 0 To .ListCount - 1
            If .Selected(i) = True Then
                ActiveSheet.Range("A1").Offset(i, 0).Value = .List(i)
            End If
        Next i
    End With

What you're basically doing is looping through the listbox items and, if they are selected, writing them out to the worksheet.

Modify the listbox name, worksheet, and range as needed.

 

[Aprez76]

That did it. Thanks Scott.