[Yardım]  texbox ile listboxta süz

Verilerinizi listeleyebileceğiniz liste kutusu

texbox ile listboxta süz

İleti#1)  malatyali » 22 Haz 2020 20:50

Kod: Tümünü seç
Private Sub listeM()
    lst = Sheets("Okullar").Range("b2:B" & Sheets("Okullar").Cells(Rows.Count, "B").End(xlUp).Row).Value
    With CreateObject("Scripting.Dictionary")
        For i = 1 To UBound(lst)
            If lst(i, 1) <> "" Then .Item(lst(i, 1)) = Null
        Next i
        ListBox1.List = .keys
    End With
End Sub


Private Sub CommandButton1_Click()
Call listeM
End Sub


B2 sütununda bulunan adları commandbutton ile listeye alıyorum.
Sizlerden ricam TextBox1 e ad yazdığım zaman yazılan ad ne ise o adı taşıyanları listboxta süzmek istiyorum.
Yardımcı olabilmeniz mümkün mü?
Saygı ve hürmetlerimle
Kullanıcı avatarı
malatyali
Siteye Alışmış
 
Adı Soyadı:ilhan YÜKSEL
Kayıt: 20 Kas 2008 10:08
Konum: Malatya
Meslek: Meb ilçe milli eğitim şef
Yaş: 45
İleti: 189
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Malatya / Merkez

Cevap: texbox ile listboxta süz

İleti#2)  onur.var » 14 Eyl 2020 21:50

Merhaba;

Benzer bir konu var. İnceler misiniz?

http://www.excelvba.net/viewtopic.php?f=7&t=4118
Kullanıcı avatarı
onur.var
Yeni Başlamış
 
Kayıt: 16 May 2018 18:16
Meslek: Uçak Teknisyeni
Yaş: 29
İleti: 88
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: İstanbul/ Çatalca


Forum ListBox

Online Kullanıcılar

Bu forumu görüntüleyenler: Kayıtlı kullanıcı yok ve 0 misafir

Bumerang - Yazarkafe