listboxtan döngü ile a ve b sütunlarına aktarma

[chakistes]

merhaba arkadaşlar ekteki tabloda olduğu gibi ilk 10 kaydı döngü ile a1 - b1 - a2-b2 sütunlarına 10.kayıttan sonrakilerini döngü d1-e1 den başlayarak nasıl aktarabilirim.
kullandığım örnek döngü kodu aşağıdaki gibidir.
Dim sayi
sayi = 1


For ii = 0 To ListBox2.ListCount - 1
Q = sayi + 20
Range("G" & Q) = sayi

Range("A" & Q) = ListBox2.Column(0, (ii))

sayi = sayi + 1
Next

 

[Muzaffer Ali]

Merhaba.
Aşağıdaki kod ile yapabilirsiniz.

Sub Test()
    Dim Bak As Integer
    Dim Kolon As Integer
    Dim Satir As Integer
    Kolon = 1
    Satir = 1
    For Bak = 1 To ListBox2.ListCount Step 2
        If Bak > 10 Then Kolon = 4
        If Satir > 5 Then Satir = 1
        Cells(Satir + 1, Kolon) = ListBox2.List(Bak - 1)
        Cells(Satir + 1, Kolon + 1) = ListBox2.List(Bak)
        Satir = 1 + Satir
    Next
End Sub

 

[chakistes]

teşekkür ederim işe yaradı