Listboxta kaç sütunu listeleyebiliyoruz ?

[Civan Jack]

Lisatboxta kaç sütunu listeleyebiliyoruz acaba ?
Bir çalışma yapmaya çalışıyorum, ayları yatay bir şekilde yazdım.
O aylara ailt ödemelerimi de yazdım.
Comboboxtan ödemeyi seçtiğimde,
listboxta bu kod satırından sonra ListBox2.List(Liste, 9) = odeme.Offset(0, 9) hata veriyor.
Yarıdmcı olursanız sevinirim.

Kodlar
For Each isim In Range("a2:a" & Range("a200").End(xlUp).Row)
If UCase(LCase(isim)) Like UCase(LCase(ComboBox1)) & "*" Then
Liste = ListBox2.ListCount
ListBox2.AddItem
ListBox2.List(Liste, 0) = odeme
ListBox2.List(Liste, 1) = odeme.Offset(0, 1)
ListBox2.List(Liste, 2) = odeme.Offset(0, 2)
ListBox2.List(Liste, 3) = odeme.Offset(0, 3)
ListBox2.List(Liste, 4) = odeme.Offset(0, 4)
ListBox2.List(Liste, 5) = odeme.Offset(0, 5)
ListBox2.List(Liste, 6) = odeme.Offset(0, 6)
ListBox2.List(Liste, 7) = odeme.Offset(0, 7)
ListBox2.List(Liste, 8) = odeme.Offset(0, 8)
ListBox2.List(Liste, 9) = odeme.Offset(0, 9)
ListBox2.List(Liste, 10) = odeme.Offset(0, 10)
ListBox2.List(Liste, 11) = odeme.Offset(0, 11)
ListBox2.List(Liste, 12) = odeme.Offset(0, 12)

 

[Civan Jack]

'ListBox2.List(Liste, 10) = isim.Offset(0, 10)
'ListBox2.List(Liste, 11) = isim.Offset(0, 11)
'ListBox2.List(Liste, 12) = isim.Offset(0, 12)

satırlarını sildiğimde listeliyor ama ekim kasım ve aralık aylarını listelemiyor.

 

[Orion1]

add item yöntemi ile en fazla 10 sütun listeleyebilirisiniz
Bunun yerine row source veya dizi yöntemini kullanınız.
Add item çok hantal.
küçük boyularda listeler için kullanabilirsiniz,ama büyük veri yığınlarında rowsource veya dizi yöntemi iyidir.

 

[Civan Jack]

Anladım Evren bey, teşekkür ederim.
Bende bir kaç araştırma yaptım add item ile fazla bir veri listelenemiyormuş.

Ama comboboxtan seçilen bir veriye göre listboxta listeleme olayının nasıl gerçekleştirebileceğimi bilmiyorum. Kodlarda ne gibi bir revizyon yapmak gerekir acaba ? Yardım edebilir misiniz ?

 

[Civan Jack]

Listviewle sorunumu çözdüm teşekkür ederim.