Multi Select ListBox does not post 1 selection

kwengerd · #1 (**permalink**) 06-01-06, 10:14

I thought this code was working ok, but 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

norie · #2 (**permalink**) 06-01-06, 13:03

Why do you have 10 in the for statement?

That means you'll start at the 11th (because the listbox is zero-based) item.

MikeTheBike · #3 (**permalink**) 06-02-06, 03:18

Hi

Folowing on from norie's prompt I suspect you need this

Code:

Dim I As Long
Dim X As Long
X = 13
For I = 0 To ListBox10.ListCount - 1
    If ListBox10.Selected(I) Then
        X = X + 1
        Range("M" & X) = ListBox10.List(I)
    End If
Next I

you probable had

For I = 1 To ListBox10.ListCount - 1 ???

HTH

MTB

Internet Services

Web Development

Digital Marketing

Consumer Tech