ListView ile Filtreleme ve Arama

ListView ile Filtreleme ve Arama, ilgili işlemlerin nasıl yapılacağını öğreten bir Excel VBA kodu içermektedir.

UserForm ve ListView Nesnelerini Hazırlama​

Öncelikle, daha önce oluşturduğunuz UserForm ve ListView nesnelerinin mevcut olduğundan emin olun. Ancak eğer henüz oluşturmadıysanız, bir UserForm ekleyin ve ListView nesnesini Toolbox’tan seçerek UserForm üzerine yerleştirin.

Filtreleme ve Arama İşlevini Ekleyin​

ListView’de filtreleme ve arama işlevi eklemek için bir TextBox (Metin Kutusu) ve bir CommandButton (Komut Düğmesi) ekleyeceğiz. Kullanıcı arama kriterini TextBox’a girecek ve CommandButton’a tıklayarak arama yapacaktır.

Adımlar:​

1. UserForm üzerine bir TextBox (Metin Kutusu) ve bir CommandButton (Komut Düğmesi) ekleyin.
2. CommandButton’un adını “Ara” olarak değiştirin.
3. CommandButton’a çift tıklayın ve aşağıdaki VBA kodunu ekleyin:

ListView ile Filtreleme ve Arama – VBA Kodu:​

Private Sub CommandButton1_Click()
    Dim ws As Worksheet
    Dim rng As Range
    Dim cell As Range
    Dim itm As ListItem
    Dim searchValue As String
 
    ' Arama değerini al
    searchValue = TextBox1.Value
 
    ' Veri kaynağını belirleyin
    Set ws = ThisWorkbook.Sheets("Sheet1")
    Set rng = ws.Range("A2:C10") ' Veri aralığı
 
    ' ListView'i temizle
    ListView1.ListItems.Clear
 
    ' Veri aralığındaki her satırı kontrol edin ve filtreye uygun olanları ekleyin
    For Each cell In rng.Rows
        If InStr(1, cell.Cells(1, 1).Value, searchValue, vbTextCompare) > 0 Then
            Set itm = ListView1.ListItems.Add(, , cell.Cells(1, 1).Value)
            itm.ListSubItems.Add , , cell.Cells(1, 2).Value
            itm.ListSubItems.Add , , cell.Cells(1, 3).Value
        End If
    Next cell
End Sub

Bu kod, CommandButton1 tıklanıldığında çalışacak ve TextBox1’de girilen arama kriterine göre ListView’deki verileri filtreleyecektir.

UserForm’u Çalıştırma​

Oluşturduğunuz UserForm’u çalıştırmak için VBA geliştirme ortamında aşağıdaki kodu kullanabilirsiniz. Çünkü bu kod, UserForm’u görüntüler ve ListView’e verilerin eklenmesini sağlar.

VBA Kodu:​

Sub ShowUserForm()
UserForm1.Show
End Sub

Bu kodu bir modüle ekleyin ve çalıştırın. Bu sayede UserForm açılacak ve ListView nesnesine verilerin dinamik olarak eklendiğini göreceksiniz. TextBox1’e bir arama kriteri girip CommandButton1’e tıkladığınızda, ListView’deki veriler bu kritere göre filtrelenecektir.

ListView ile Filtreleme ve Arama – Sonuç​

Bu adımları izleyerek, ListView nesnesinde belirli kriterlere göre arama ve filtreleme yapma işlevini ekleyebilirsiniz. Ayrıca bu yöntem, kullanıcıların büyük veri setleri içinde hızlı ve etkili bir şekilde arama yapmalarını sağlar. Böylece,  aranan bilgilere kolayca ulaşmalarını sağlar.

Yararlanılması temennisiyle.