Textbox'taki kritere göre Listbox'a Listeleme

[Ridan]

merhaba,

TextBoxa yazılacak kelimeye göre listboxta listeleme yapılması. Örneğin; DOLAP yazıldığında H sütunundaki hücrelerde "dolap" kelimesi geçen hücrelerin hepsi listboxta listelensin.

örnek dosya ilişiktedir.

 

[Korhan Ayhan]

Selamlar,

Forumda konuyla ilgili çok sayıda örnekler mevcuttur. Aşağıdaki kodu denermisiniz.

Not: AddItem yöntemi ile kayıtları listelediği için biraz yavaş çalışacaktır. Hızlandırmak için yardımcı bir sayfa ve filtreleme yöntemi kullanılabilir.

Ayrıca konuyla ilgili aşağıdaki linkide inceleyebilirsiniz.

http://www.excel.web.tr/showthread.php?t=23062

Private Sub TextBox1_Change()
    If TextBox1 = "" Then
    ListBox1.ColumnCount = 7
    ListBox1.ColumnWidths = "25;20;20;20;20;20;80"
    ListBox1.RowSource = "TÜMÜ!B2:H" & [TÜMÜ!A65536].End(3).Row
    Else
    Kriter = Evaluate("=UPPER(" & """" & TextBox1 & """" & ")")
    ListBox1.RowSource = ""
    ListBox1.ColumnCount = 7
    ListBox1.ColumnWidths = "25;20;20;20;20;20;80"
    For X = 5 To [H65536].End(3).Row
    Hücre = Evaluate("=UPPER(" & """" & Cells(X, 8) & """" & ")")
    If Hücre Like "*" & Kriter & "*" Then
    ListBox1.AddItem
    ListBox1.List(SATIR, 0) = Cells(X, 2)
    ListBox1.List(SATIR, 1) = Cells(X, 3)
    ListBox1.List(SATIR, 2) = Cells(X, 4)
    ListBox1.List(SATIR, 3) = Cells(X, 5)
    ListBox1.List(SATIR, 4) = Cells(X, 6)
    ListBox1.List(SATIR, 5) = Cells(X, 7)
    ListBox1.List(SATIR, 6) = Cells(X, 8)
    SATIR = SATIR + 1
    End If
    Next
    End If
End Sub

 

[Ridan]

evet, kodlar yavaş çalışıyor ama...işimi gördü...teşekküler.

 

[mnz]

Merhaba,
Aşağıdaki kod için teşekkürler.
Bu kodu ilk harf kriterine göre nasıl düzenleyebiliriz?

ÖRN:
Textbox a Ö girildiğinde Ömer, Ömür, ... vs. gibi

Selamlar,

Forumda konuyla ilgili çok sayıda örnekler mevcuttur. Aşağıdaki kodu denermisiniz.

Not: AddItem yöntemi ile kayıtları listelediği için biraz yavaş çalışacaktır. Hızlandırmak için yardımcı bir sayfa ve filtreleme yöntemi kullanılabilir.

Ayrıca konuyla ilgili aşağıdaki linkide inceleyebilirsiniz.

http://www.excel.web.tr/showthread.php?t=23062

Private Sub TextBox1_Change()
    If TextBox1 = "" Then
    ListBox1.ColumnCount = 7
    ListBox1.ColumnWidths = "25;20;20;20;20;20;80"
    ListBox1.RowSource = "TÜMÜ!B2:H" & [TÜMÜ!A65536].End(3).Row
    Else
    Kriter = Evaluate("=UPPER(" & """" & TextBox1 & """" & ")")
    ListBox1.RowSource = ""
    ListBox1.ColumnCount = 7
    ListBox1.ColumnWidths = "25;20;20;20;20;20;80"
    For X = 5 To [H65536].End(3).Row
    Hücre = Evaluate("=UPPER(" & """" & Cells(X, 8) & """" & ")")
    If Hücre Like "*" & Kriter & "*" Then
    ListBox1.AddItem
    ListBox1.List(SATIR, 0) = Cells(X, 2)
    ListBox1.List(SATIR, 1) = Cells(X, 3)
    ListBox1.List(SATIR, 2) = Cells(X, 4)
    ListBox1.List(SATIR, 3) = Cells(X, 5)
    ListBox1.List(SATIR, 4) = Cells(X, 6)
    ListBox1.List(SATIR, 5) = Cells(X, 7)
    ListBox1.List(SATIR, 6) = Cells(X, 8)
    SATIR = SATIR + 1
    End If
    Next
    End If
End Sub