listboxa veri almak

[memduh]

Arkadaşlar aşağıdaki kodda listboxa veri alırken 10 sutundan itibaren hata veriyor. on error resume next yazdığım zamanda listboxcolomontcount 9 dan sonraki sutunu almıyor. Yardımcı olursanız sevinirim.
KOD:
Private Sub ListBox1_Change()
On Error Resume Next
Dim i
With ListBox3
.Clear
For i = 3 To Sheets("sayfa1").Range("B65536").End(xlUp).Row
If LCase(Sheets("sayfa1").Cells(i, "B")) Like LCase(ListBox1) Then
.AddItem
.List(.ListCount - 1, 0) = Sheets("sayfa1").Cells(i, "B")
.List(.ListCount - 1, 1) = Sheets("sayfa1").Cells(i, "C")
.List(.ListCount - 1, 2) = Sheets("sayfa1").Cells(i, "D")
.List(.ListCount - 1, 3) = Sheets("sayfa1").Cells(i, "E")
.List(.ListCount - 1, 4) = Sheets("sayfa1").Cells(i, "F")
.List(.ListCount - 1, 5) = Sheets("sayfa1").Cells(i, "G")
.List(.ListCount - 1, 6) = Sheets("sayfa1").Cells(i, "H")
.List(.ListCount - 1, 7) = Sheets("sayfa1").Cells(i, "I")
.List(.ListCount - 1, 8) = Sheets("sayfa1").Cells(i, "J")
.List(.ListCount - 1, 9) = Format(CDate(Sheets("sayfa1").Cells(i, "K")), "dd.mm.yyyy")

'bundan sonrasını görmüyor.'

.List(.ListCount - 1, 10) = Sheets("sayfa1").Cells(i, "L")
.List(.ListCount - 1, 11) = Sheets("sayfa1").Cells(i, "M")
End If
Next
End With
End Sub

 

[isakarakus]

CDate(Sheets("sayfa1").Cells(i, "K"))

bu ifadede Sheets("sayfa1").Cells(i, "K")'daki değer tarihe uygun değilse
hata vermesi gerekiyor..

On Error Resume Next
ifadesini kaldırıp hata mesajını seyleyin
veya dosyayı gönderin...

 

[memduh]

Dosya Ektedir

 

[memduh]

makrolarda hata olmuş özür dilerim.
Düzeltilmiş hali.

 

[memduh]

Arkadaşlar yukarıdaki dosyada listboxa süz işlemiylede aldırmak mümkünse veya başka bir alternatifi varsa. yardım lütfen.

 

[isakarakus]

tuhaf ama şimdi program hata vermeden çalışıyor.

 

[memduh]

Sayın isakarakus bey ilgin için teşekkürler. Bende çalışmıyor neden kaynaklanabilir? sorun ne olabilir? Saygılar.

 

[isakarakus]

süzme ile ilgili bir deneme,

 

[memduh]

Sayın isakarakus bey teşekkürler tam istediğim gibi ellerinize sağlık. Birde listbox1 ri tıklayınca form hangi sayfada açılsa veri sayfasına gitmeden süz işlemini yapabilirmiyiz. Saygılar.

 

[zafer]

Merhaba

Sayın İsa bey'in cevabının dışında

ilk kodlarınızdaki hatanın sebebi
additem ile listbox'a 10 kolondan daha fazla veri alamazsınız.
kolon nosu 0 dan başladığına göre 9 'a kadar alabilirsiniz.


Saygılarımla