Place Data from MultiSelect Listbox

kwengerd · #1 (**permalink**) 05-31-06, 13:14

I am having a brain lapse, apparently... I want to simply place a list of data selected from a multi select listbox, that is run in a VBA form, in a spreadsheet. I will then do a lookup to pull additional data from that list. HELP!

THANK YOU!

Keith

norie · #2 (**permalink**) 05-31-06, 13:35

Keith

Is it on a userform?

Where do you want to put the data?

Code:

Private Sub CommandButton1_Click()
Dim I As Long
Dim X As Long
    For I = 0 To ListBox1.ListCount - 1
        If ListBox1.Selected(I) Then
            X = X + 1
            Range("B" & X) = ListBox1.List(I)
        End If
    Next I
End Sub

kwengerd · #3 (**permalink**) 05-31-06, 14:37

I just want to put it in sheet1, column A, Row 1 then 2, etc.

norie · #4 (**permalink**) 05-31-06, 14:41

Well just chnage B to A in the code I posted.

kwengerd · #5 (**permalink**) 05-31-06, 14:57

Actually, I really want it to go start in row 14... which variable do I change for that? Thanks so much for your help already!

norie · #6 (**permalink**) 05-31-06, 15:07

Just put X = 13 before the loop.

kwengerd · #7 (**permalink**) 05-31-06, 16:05

That works great so far, or so I thought. I just realized that if I select one item or a list of items, the first one is not listed. What am I missing? Here's my code:

Dim I As Long
Dim X As Long
X = 13
For I = 10 To ListBox10.ListCount - 1
If ListBox10.Selected(I) Then

X = X + 1
Range("M" & X) = ListBox10.List(I)
End If
Next I

Internet Services

Web Development

Digital Marketing

Consumer Tech