ListBox görünüm

[oydemir]

Aşağıdaki formda bulduğum kot çalışıyor
ben b kolonundan e kolonunu kadar filtre yapıyorum
b kolonunda bulunan değere göre ListBox (a,b,c,d kolonları geliyor)satırları tam getiriyor
c kolonunda bulunan değere göre ListBox (b,c,d kolonları geliyor)satırları tam getiriyor
d kolonunda bulunan değere göre ListBox (c.d kolonları geliyor)satırları tam getiriyor
hangi yerde bulursa bulsun ListBox a dan e kadar kolonları göstere bilir mi.

Private Sub TextBox16_Change()
Dim Son As Long, Say As Long, Veri As Range, Aranan, Kriter

If TextBox16 = "" Then
Son = Sheets("ekbs").Range("A" & Rows.Count).End(3).Row
ListBox1.ColumnCount = 16
ListBox1.ColumnWidths = "35;35;70;40;40;40"
ListBox1.RowSource = "ekbs!A2" & Son
Else
Son = Sheets("ekbs").Range("A" & Rows.Count).End(3).Row
ListBox1.RowSource = ""
ListBox1.Clear
ListBox1.ColumnCount = 16
ListBox1.ColumnWidths = "35;35;70;40;40;40"
For Each Veri In Sheets("ekbs").Range("b2:d" & Son)
Aranan = UCase(Replace(Replace(TextBox16, "ı", "I"), "i", "İ"))
' Aranan = UCase(Replace(Replace(TextBox17, "ı", "I"), "i", "İ"))
Kriter = UCase(Replace(Replace(Left(Veri, Len(TextBox16)), "ı", "I"), "i", "İ"))
If Kriter = Aranan Then
ListBox1.AddItem
ListBox1.List(Say, 0) = Veri.Offset(1, -1).Value
ListBox1.List(Say, 1) = Veri.Value
ListBox1.List(Say, 2) = Veri.Offset(0, 1).Value


Say = Say + 1
End If
Next
End If
End Sub