Listbox döngüsü hk.

[chakistes]

Merhaba aşağıda listboxta kulladığım döngüyü excel sayfasına attıktan sonra 15.kayıttan sonrasını excel sayfasında alt alt atmak yerine range değeri F,G,H olarak nasıl döngüyü çevirebilirim. listboxta kullandığım koş aşağıa ve örnek resim ektedir.

Dim sayi
If Target.Column = 1 Then
sayi = 1


For ii = 0 To ListBox2.ListCount - 1
q = sayi + 2
Range("A" & q) = sayi
Range("C" & q) = ListBox2.Column(0, (ii))
Range("D" & q) = ListBox2.Column(2, (ii))
sayi = sayi + 1