Listbox2 de 15.kayıttan sonraki excelde istenilen sütuna aktarma

[chakistes]

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

15.kayıttan sonra nasıl yapabilirim düngüyü kuramadım
Range("E" & q) = sayi
Range("F" & q) = ListBox2.Column(0, (ii))
Range("G" & q) = ListBox2.Column(2, (ii))

 

[PLİNT]

Merhaba
Şöyle işinize yararmı?

q = 2: x = 2
For ii = 0 To ListBox2.ListCount - 1
If ii < 15 Then
Range("A" & q) = sayi
Range("C" & q) = ListBox2.Column(0, (ii))
Range("D" & q) = ListBox2.Column(2, (ii))
q = q + 1
Else
Range("E" & x) = sayi
Range("F" & x) = ListBox2.Column(0, (ii))
Range("G" & x) = ListBox2.Column(2, (ii))
x = x + 1
End If
Next