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
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