listbox multi column problem

[likexl]

Hi,

I am trying to code 7 multi column in listbox, but trapped.

code :
Do Until NumCounta = 1
NumCounta = NumCounta - 1
a = Range("a" & x).Value
b = Range("d" & x).Value
c = Range("e" & x).Value
d = Range("f" & x).Value
e = Range("h" & x).Value
f = Range("i" & x).Value
g = Range("j" & x).Value
x = x + 1

'this gives records in different row.
'want all in one row and aligned.
Me.ListBox1.AddItem a
Me.ListBox1.AddItem e
Me.ListBox1.AddItem f
Me.ListBox1.AddItem g
Me.ListBox1.AddItem b
Me.ListBox1.AddItem c
Me.ListBox1.AddItem d
Loop

using xl 2003, win7
thanks.

 

[wigi]

For instance:

Sub f()
    Do Until NumCounta = 1
        NumCounta = NumCounta - 1
        With Me.ListBox1
            .AddItem Range("A" & x).Value
            .List(.ListCount - 1, 1) = Range("h" & x).Value
            .List(.ListCount - 1, 2) = Range("i" & x).Value
            .List(.ListCount - 1, 3) = Range("j" & x).Value
            .List(.ListCount - 1, 4) = Range("d" & x).Value
            .List(.ListCount - 1, 5) = Range("e" & x).Value
            .List(.ListCount - 1, 6) = Range("f" & x).Value
            x = x + 1
        End With
    Loop
End Sub

 

[likexl]

Re: listbox multi column problem solved

Thanks wigi for quickly reformating the logic of range problem.