Listboxta 11. Sütun sorunu

[turk-x]

Slm.
Combobox aracılığıyla listboxtaki verileri süzüyorum. 10. sutuna kadar sorunsuz süzüyor 11. sutunu da süzmem gerektiği için 11. sutunuda eklediğim zaman hata veriyor. Süzme Kodlarını aşağıda yazıyorum. Yardımcı olacak arkadaşları sabırsızlıkla bekliyorum.

----------------------------------------------------------​

sonsat = Cells(65536, "C").End(xlUp).Row
If sonsat < 4 Then Exit Sub
Liste.RowSource = ""
sat = 0
Set veri = Range("C4:M" & sonsat)
For Each hucre In veri
If LCase(hucre) Like LCase(firmano & "*") Then
Liste.AddItem
Liste.Column(0, sat) = Cells(hucre.Row, "c").Value
Liste.Column(1, sat) = Cells(hucre.Row, "d").Value
Liste.Column(2, sat) = Cells(hucre.Row, "e").Value
Liste.Column(3, sat) = Cells(hucre.Row, "f").Value
Liste.Column(4, sat) = Cells(hucre.Row, "g").Value
Liste.Column(5, sat) = Cells(hucre.Row, "h").Value
Liste.Column(6, sat) = Cells(hucre.Row, "ı").Value
Liste.Column(7, sat) = Cells(hucre.Row, "J").Value
Liste.Column(8, sat) = Cells(hucre.Row, "k").Value
Liste.Column(9, sat) = Cells(hucre.Row, "l").Value
Liste.Column(10, sat) = Cells(hucre.Row, "m").Value
sat = sat + 1
End If
Next

 

[Orion1]

Merhaba.
&#304;&#351;in en kestirme yolu,Bo&#351; bir sayfada verileri listelemek.
Sonrada oradan rowsource y&#246;ntemi ile verileri listbox'a o sayfadan almak.
En kestirme yolu bu.

 

[Ferhat Pazarçevirdi]

Aşağıdaki gibi veri eklemeyi denermisiniz?

 Liste.list(0, sat) = Cells(hucre.Row, 3)

 

[turk-x]

fpc karde&#351;im dedi&#287;in y&#246;ntemlede yapsam 1. sutundan sonraki sutunlar hata veriyor.
Orion2 karde&#351;im bahsetti&#287;in y&#246;ntemle yapmaya kalkarsam &#231;ok hantal bi sistem olucak ve bilgisayar&#305; &#231;ok kasacak. Onun yerine verileri ayn&#305; sayfada s&#252;zd&#252;r&#252;p listboxta listeletmek te &#231;&#246;z&#252;m olabilirdi ama bu i&#351;lemde bilgisayar&#305; &#231;ok kasar. (onbinden fazla kay&#305;ttan s&#246;z ediyorum.)
her ikinizede &#231;ok te&#351;ekk&#252;r ederim. ama sorun hala devam ediyor.

 

[Orion1]

Merhaba.
O zaman Dizi'ye alın.
Dizi'dende listbox'a aktarın.
Listbox1.column=Dizi veya
Listbox1.List=Dizi
Kolay gelsin.

 

[turk-x]

Orion 2 karde&#351;im diziden nas&#305;l alabilirim bununla ilgili kodu yazarsan sevinirim

 

[Haluk]

AddItem yöntemiyle ListBox'a en fazla 10 sütun aktarabilirsiniz.

Ama daha fazla sütun için ve de en hızlı yöntemi arıyorsanız, yukarıda sayın Orion2' un belirttiği gibi bir dizi kullanmalısınız.

Örneğin aşağıdaki gibi;

Private Sub UserForm_Initialize()
    Dim MyArr()
    sonsat = Cells(65536, "C").End(xlUp).Row
    If sonsat < 4 Then Exit Sub
    MyArr = Range("C4:M" & sonsat)
    Liste.List = MyArr
End Sub

Hmmm.... bu arada mesaj sayımız da 4001 olmuş. :mrgreen: