- Katılım
- 14 Ağustos 2009
- Mesajlar
- 13
- Excel Vers. ve Dili
- Microsoft Office 2007- İngilizce
Mehaba,
Oluşturduğum listboxta filtreleme yapmak için SEARCH Textbox ı koydum ama yazdığım kodda (Daha doğrusu alıntı yaptığım ve uyarlamaya çalıştığım kod diyelim ) bir poblem var çözemedim. Kodu buraya yazıyorum ve ilgilenecek arkadaşlar için ayıca dosyayı da ekliyorum. Teşekkürler...
Kod:
Oluşturduğum listboxta filtreleme yapmak için SEARCH Textbox ı koydum ama yazdığım kodda (Daha doğrusu alıntı yaptığım ve uyarlamaya çalıştığım kod diyelim ) bir poblem var çözemedim. Kodu buraya yazıyorum ve ilgilenecek arkadaşlar için ayıca dosyayı da ekliyorum. Teşekkürler...
Kod:
Private Sub TextBox24_Change()
Dim sat, s As Integer
Dim deg1, deg2 As String
With ListBox1
.Clear
.ColumnCount = 21
.ColumnWidths = "20;120;50;1;110;60;60;60;60;60;60;60;60;60;60;60;60;60;60;60;60"
End With
For sat = 2 To Cells(65536, "a").End(xlUp).Row
deg1 = UCase(Replace(Replace(Cells(sat, "b"), "ı", "I"), "i", "İ"))
deg2 = UCase(Replace(Replace(Cells(sat, "c"), "ı", "I"), "i", "İ"))
deg3 = UCase(Replace(Replace(Cells(sat, "d"), "ı", "I"), "i", "İ"))
deg4 = UCase(Replace(Replace(Cells(sat, "e"), "ı", "I"), "i", "İ"))
deg5 = UCase(Replace(Replace(Cells(sat, "f"), "ı", "I"), "i", "İ"))
deg6 = UCase(Replace(Replace(Cells(sat, "g"), "ı", "I"), "i", "İ"))
deg7 = UCase(Replace(Replace(TextBox24, "ı", "I"), "i", "İ"))
If deg1 Like "*" & deg7 & "*" _
Or deg2 Like "*" & deg7 & "*" _
Or deg3 Like "*" & deg7 & "*" _
Or deg4 Like "*" & deg7 & "*" _
Or deg5 Like "*" & deg7 & "*" _
Or deg6 Like "*" & deg7 & "*" _
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, "I")
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")
ListBox1.List(s, 14) = Cells(sat, "O")
ListBox1.List(s, 15) = Cells(sat, "P")
ListBox1.List(s, 16) = Cells(sat, "Q")
ListBox1.List(s, 17) = Cells(sat, "R")
ListBox1.List(s, 18) = Cells(sat, "S")
ListBox1.List(s, 19) = Cells(sat, "T")
ListBox1.List(s, 20) = Cells(sat, "U")
s = s + 1
End If: Next
End Sub
Ekli dosyalar
-
73.5 KB Görüntüleme: 53
Son düzenleme: