Listbox içinde arama

[xemdarx]

Selamlar,
Listbox ta iki sütuna göre arama yapmak mümkün müdür? Yardımcı olur musnuz?

 

[xemdarx]

Lütfen yardımcı olur musunuz?

 

[cems]

Listbox olanı göstermek için kullanılan pasif bir araçtır. Olan ise ; sayfadadır, sayfada işlem yapılır ve son hal listboxa yansıtılır.

Bu nedenle aramayı sayfa üzerinden düşünün

 

[Mahmut Bayram]

2 sütun yerine bağımsız olan TC den arama yaptırabilirsiniz kanaatindeyim.

 

[Korhan Ayhan]

Önerilere kulak verin.

Ek olarak kullandığınız kodlarda yapı hataları var. Forumdaki örnek çalışmaları incelemeniz gerekiyor.

Arama için aşağıdaki kodu deneyebilirsiniz. ADI sütununa göre arama yapar. İsteğe göre revize edilebilir.

Private Sub ComboBox2_Change()
    Dim Son As Long, Say As Long, Veri As Range, Aranan, Kriter
    
    If ComboBox2 = "" Then
        Son = Sheets("deneme").Range("A" & Rows.Count).End(3).Row
        ListBox1.ColumnCount = 6
        ListBox1.ColumnWidths = "20;40;40;0;0;0"
        ListBox1.RowSource = "deneme!A2:G" & Son
    Else
        Son = Sheets("deneme").Range("A" & Rows.Count).End(3).Row
        ListBox1.RowSource = ""
        ListBox1.Clear
        ListBox1.ColumnCount = 6
        ListBox1.ColumnWidths = "20;40;40;0;0;0"
        For Each Veri In Sheets("deneme").Range("B2:B" & Son)
            Aranan = UCase(Replace(Replace(ComboBox2, "ı", "I"), "i", "İ"))
            Kriter = UCase(Replace(Replace(Left(Veri, Len(ComboBox2)), "ı", "I"), "i", "İ"))
            If Kriter = Aranan Then
                ListBox1.AddItem
                ListBox1.List(Say, 0) = Veri.Offset(0, -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

 

[xemdarx]

Tavsiyeleriniz ve çözümleriniz için teşekkürler...

 

[Mahmut Bayram]

Ekteki dosyayı inceler misiniz?
Programınıza uyarlayabilirseniz aradığınız bu olabilir.

 

[xemdarx]

Allah razı olsun Mahmut Bey. Tam da istediğim çalışma bu... Sizin kadar bilgiye sahip değilim.. Yardımcı olabilir misiniz?

 

[xemdarx]

Yardımcı olur musunuz?

 

[Mahmut Bayram]

Sayın xemdarx malesef yardımcı olamayacağım o kadar engin bilgi sahibi değilim.
Saygılarımla.

 

[xemdarx]

Doğrudur. Benden fazla bilgiye sahip olmanız, engin bilgiye sahip olduğunuz anlamına gelmez...Selametle