Çözüldü ListBoxı TextBox ile süzme

[Sunaycakirr]

Merhabalar
Dosyada "Tüm Firmalar" düğmesine basıldığında açılan UserForm üzerinde ListBox içinde bulunan verileri 2 TextBox ile ayrı ayrı olacak şekilde arama yapmak istiyorum. TextBox'ın biri ile Firma Adı yazarak, diğer TextBox ile de Vergi Numarası yazarak ve ben değer yazdıkça harf harf veya sayı sayı çıkararak arama yapmasını nasıl sağlayabilirim.

Dosya link:
http://dosya.co/fv788zjvz3yd/Proje.rar.html

 

[veyselemre]

Userform3 kodlarını değiştirin,

Dim lst()

Private Sub TextBox_Firma_Arama_Change()
    Call listele
End Sub

Private Sub TextBox_Vergi_No_Arama_Change()
    Call listele
End Sub

Private Sub UserForm_Initialize()

    son = Sheets("Firmalar").Cells(Rows.Count, 1).End(3).Row
    lst = Sheets("Firmalar").Range("A2:F" & son).Value
    ListBox1.RowSource = ""
    ListBox1.ColumnWidths = "25;200; 100;100; 100; 100"
    
    Call listele
    
End Sub

Sub listele()
    ListBox1.Clear
    key1 = "*" & TextBox_Firma_Arama.Text & "*|*" & TextBox_Vergi_No_Arama.Text & "*"

    For i = 1 To UBound(lst)
        If UCase(lst(i, 2) & "|" & lst(i, 4)) Like UCase(key1) Then
            ListBox1.AddItem lst(i, 1)
            For ii = 2 To 6
                ListBox1.List(ListBox1.ListCount - 1, ii - 1) = lst(i, ii)
            Next ii
        End If
    Next
End Sub

 

[Sunaycakirr]

veyselemre Hocam

Ellerin dert görmesin. Çok teşekkür ederim.

 

[power468]

Örnek: İşinize yarar sanırım
https://www.dosyaupload.com/a9fa

 

[Tural777]

Örnek: İşinize yarar sanırım
https://www.dosyaupload.com/a9fa

Merhaba oncelikle cok rica ederim yardim ederseniz cok sevinirim sizin yuklemish oldugunuz ornek dosyanin kodlarini kullanarak formumda kullandim, mushteriler sayfasinda formu acarsaniz gorursunuz, shimdi olay bu ben bu formda 3 cu siradan bashlayarak suzme yapmak istiyorum, bir birine bagli olacak shekilde, ama ondan sonraki kutucukda suzme yagtigimda ondan onceki kutucukda (yani textboxda) yazilani gormuyor, yalnizca sonuncu yazilan textbox icini suzuyor tum listede , rica etsem yardim ede bilirmisiniz?

 

[Tural777]

Örnek: İşinize yarar sanırım
https://www.dosyaupload.com/a9fa

dosyayi buraya yukluyemedim , kisaca olarak boyle anlatayim, sizin hazirlamish oldugunuz ornek dosyada sadece 2 tane textbox var ve bir birine bagli shekilde suzuyor, benim hazirlamish oldugum projede 10 tane textbox var ve bunlarin bir birina bagli shekilde suzmesini istiyorum, yardim ede bilirmisiniz rica etsem?