listboxtaki tüm veriyi aktarma

[muratozmenler]

Merhabalar;
Listboxta var olan tüm veriyi exceldeki sayfanın c10 nundan başlayarak c15 te son bulacak şekilde nasıl aktarırız ve ayrıca listboxta sıralanan verilerin sadece 5 tanesini buraya aktaracak kalan veriyi d10dan d15 e aktarmaya devam edecek?

 

[ÖmerBey]

Örnek dosya yüklerseniz daha somut yardımlar alabilirsiniz.
Şimdilik tahmini olarak aşağıdaki kodu oluşturdum.

sat = 10
süt = 3
For a = 0 To ListBox1.ListCount - 1
    Cells(sat, süt) = ListBox1.Column(0, a)
    sat = sat + 1
    If sat > 15 Then sat = 10: süt = süt + 1
Next

 

[muratozmenler]

Örnek dosya yüklerseniz daha somut yardımlar alabilirsiniz.
Şimdilik tahmini olarak aşağıdaki kodu oluşturdum.

sat = 10
süt = 3
For a = 0 To ListBox1.ListCount - 1
    Cells(sat, süt) = ListBox1.Column(0, a)
    sat = sat + 1
    If sat > 15 Then sat = 10: süt = süt + 1
Next

Öncelikler teşekkürler;
kod çalışıyor bu kısım tamam, ayrıca diyelim listboxta 10 tane veri var bunun 5 tanesini dizdi kalan 4 tanesinide d sütununa 10. satırdan devam etmesi gerekiyor

 

[ÖmerBey]

Tamam, 15. satıra kadar dizer sonra da d sütunundan devam eder problem nedir? Anlayamadım.

 

[muratozmenler]

Tamam, 15. satıra kadar dizer sonra da d sütunundan devam eder problem nedir? Anlayamadım.

Kusura bakmayın doğru söylüyorsunuz bende hata işlem tamam teşekkür ederim.