Lİstboxtan sayfaya yazdırmak

[celine]

Selam arkadaşlar, "Sayfaya Yazdır" butonuna

Private Sub CommandButton2_Click()
Worksheets("FirmayaGöreRapor").Cells.ClearContents
bo = ListBox1.ListCount
For b = 2 To bo + 1
Worksheets("FirmayaGöreRapor").Range("A" & b) = ListBox1.Column(0, b - 2)
Worksheets("FirmayaGöreRapor").Range("B" & b) = ListBox1.Column(1, b - 2)
Worksheets("FirmayaGöreRapor").Range("C" & b) = ListBox1.Column(2, b - 2)
Worksheets("FirmayaGöreRapor").Range("D" & b) = ListBox1.Column(3, b - 2)
Worksheets("FirmayaGöreRapor").Range("E" & b) = ListBox1.Column(6, b - 2)
Worksheets("FirmayaGöreRapor").Range("F" & b) = ListBox1.Column(17, b - 2)

Next
If MsgBox(ListBox1.ListCount & " kayıt FirmayaGöreRapor sayfasına aktarıldı" & Chr(10) & "Görmek ister misiniz?", vbYesNo) = vbNo Then Exit Sub

Worksheets("FirmayaGöreRapor").Activate
Unload Me
End Sub

yukarıdaki kodu eklediğimde;

Worksheets("FirmayaGöreRapor").Range("F" & b) = ListBox1.Column(17, b - 2)

Sadece 17. sütuna tekabul eden bilgiler gelmiyor.
Ne yapmalıyım?

 

[Mahmut Kök]

Örnek dosya ekleyebilirseniz daha iyi olur. Aklıma gelen ilk şey, 17. sütunun listtenizde olmama ihtimali. 16. sütun olarak deneyebilirsiniz.

 

[celine]

Sn mesleki çok çok teşekkürler cevap verdiğiniz için, dosya ekte, yalnız 4 rapor var ama firmaya göre raporda yapıyorum bütün denemeleri.

 

[Mahmut Kök]

Liste kutusunda 8 sütun tanımlı, haliyle 17. satır bulunmadığından taşıyamıyorsunuz. Eğer veri sayfasındaki 17. sütunu kasdediyorsanız, bu durumda veriyi liste kutusundan sayfaya aktarmak yerine doğrudan sayfadan diğer sayfaya taşıyabilirsiniz veya listview nesnesini daha kullanışlı olarak kullanabilirsiniz.