listboxa 14 sütundan veri almada hata...

[muratozmenler]

selamlar..
listboxa veriler aldırıyorum fakat 10 sütundan fazla veri olduğu için hata veriyor veri alma sayısını 10 tanenin altına düşürdüğümde sorun yok ama 14 e çıkanca hata veriyor ...
bu sorunu nasıl halldebilirim..

 

[Korhan Ayhan]

Selamlar,

Forumda bu konuyla ilgili daha önce örnekler verildi. Arama kutusuna "listbox" yazıp aradığımda aşağıdaki linke ulaştım. İncelermisiniz.

http://www.excel.web.tr/f48/listboxdaki-kolon-say-s-n-n-adeti-t45999.html

 

[muratozmenler]

o linki inceledim ve ona göre düzeltmeye çalıştım ama hata verdi ve düzeltemedim

Private Sub TextBox3_Change()
Dim sat, s As Integer
Dim deg1, deg2 As String
With ListBox1
.Clear
.ColumnCount = 14
.ColumnWidths = "18,100,50,50,50,50,50,50,50,50,50,50,50,50"
End With
Sheets("JENARATÖR").Select
For sat = 2 To Cells(65536, "b").End(xlUp).Row
deg1 = UCase(Replace(Replace(Cells(sat, "b"), "ı", "I"), "i", "İ"))
deg2 = UCase(Replace(Replace(TextBox3, "ı", "I"), "i", "İ"))
If deg1 Like "*" & deg2 & "*" Then
ListBox1.AddItem
ListBox1.List(s, 0) = Cells(sat, "a")
ListBox1.List(s, 1) = Cells(sat, "b")
ListBox1.List(s, 2) = Cells(sat, "c")
ListBox1.List(s, 3) = Cells(sat, "d")
ListBox1.List(s, 4) = Cells(sat, "e")
ListBox1.List(s, 5) = Cells(sat, "f")
ListBox1.List(s, 6) = Cells(sat, "g")
ListBox1.List(s, 7) = Cells(sat, "h")
ListBox1.List(s, 8) = Cells(sat, "ı")
ListBox1.List(s, 9) = Cells(sat, "j")
ListBox1.List(s, 10) = Cells(sat, "K")
ListBox1.List(s, 11) = Cells(sat, "L")
ListBox1.List(s, 12) = Cells(sat, "M")
ListBox1.List(s, 13) = Cells(sat, "N")


s = s + 1
End If: Next
End Sub

burada hata veriyor ve hata 10 veriden fazla almamla alakalı

 

[muratozmenler]

bu konuda bilgisi olan yokmu..??