yesimgurol
Altın Üye
- Katılım
- 8 Aralık 2011
- Mesajlar
- 950
- Excel Vers. ve Dili
- Excel 2016,32bit
- Altın Üyelik Bitiş Tarihi
- 18-11-2024
Merhabalar,listview de kullandığım arama kodlarında küçük bir düzeltme gerekiyor sanırım.Örneklerden bakarak kendime uyarlamaya çalıştım tekxtbox a yazdığım değere göre listeleme yapıyor fakat listede textboxa yazdığım harf geçen bütün verileri listeliyor.Mesela,textbox a "H" yazdım diyelim,listview de içinde H olan bütün verileri sıralıyor. H yazdı isem listede sadece H ile başlayan veriler listelense yani ilk harfden başlayarak listemele yapmak amacım...Textbox kodlarım söyle;
Kod:
Private Sub TextBox1_Change()
ListView2.ListItems.Clear
On Error Resume Next
evn = UCase(Replace(Replace(TextBox1, "?", "I"), "i", "I."))
For i = 2 To Sayfa176.Range("a65536").End(3).Row
If UCase(Replace(Replace(Sheets("met").Cells(i, 3).Value, "?", "I"), "i", "I.")) _
Like "*" & evn & "*" Then 'Harflerin Büyük veya Küçük ayrım yapılmaksızın _
aranması için burada UCase ile harfler büyütülüyor
With Sayfa176
Set liste = ListView2.ListItems.Add(, , .Cells(i, 1).Value)
liste.SubItems(1) = .Cells(i, 2).Value
liste.SubItems(2) = .Cells(i, 3).Value
liste.SubItems(3) = .Cells(i, 4).Value
liste.SubItems(4) = .Cells(i, 5).Value
liste.SubItems(5) = .Cells(i, 6).Value
liste.SubItems(6) = .Cells(i, 7).Value
liste.SubItems(7) = .Cells(i, 8).Value
liste.SubItems(8) = .Cells(i, 9).Value
liste.SubItems(9) = .Cells(i, 10).Value
liste.SubItems(10) = .Cells(i, 11).Value
liste.SubItems(11) = .Cells(i, 12).Value
liste.SubItems(12) = .Cells(i, 13).Value
liste.SubItems(13) = .Cells(i, 14).Value
liste.SubItems(14) = .Cells(i, 15).Value
liste.SubItems(15) = .Cells(i, 16).Value
liste.SubItems(16) = .Cells(i, 17).Value
liste.SubItems(17) = .Cells(i, 18).Value
End With
End If
Next i
End Sub