Çözüldü Textbox & sabitle Bul & VBA yardım

[Faulkner]

Merhabalar,

5000 adet ten oluşan profil listem var hepsi farklı en-boy ölçülerden ve ürün çeşitleri isimlerinden oluşan bir listedir.

Aşağıdaki resimde de görüldüğü gibi textbox2 40 yazıyorum. textbox3 lama yazıyorum. hemen liste karışıyor. 40 yazdıktan sonra 40'ların sabit kalıp "lama" kelimesini getirmesini istiyorum bu konuda yardımlarınızı bekliyorum.

saygılarımla

textbox1 (profil No arıyor)
textbox2 (ürün isim arıyor)
textbox3 (ürün isim arıyor)



Dosya Link:
Profil Listesi Bakmak.xlsm - 34 KB

 

[DoğanD]

Merhaba,

Aşağıdaki kodu dener misiniz?

Private Sub TextBox2_Change()
    If TextBox2.Text = "" Then
        ActiveSheet.AutoFilterMode = False
    Else
    ActiveSheet.Range("$A$1:$D$" & Range("B" & Rows.Count).End(xlUp).Row).AutoFilter Field:=3, Criteria1:="=*" & Sayfa1.TextBox2.Value & "*", Operator:=xlAnd, Criteria2:="=*" & Sayfa1.TextBox3.Value & "*"
    End If
End Sub

Private Sub TextBox3_Change()
    If TextBox3.Text = "" Then
        ActiveSheet.AutoFilterMode = False
    Else
    ActiveSheet.Range("$A$1:$D$" & Range("B" & Rows.Count).End(xlUp).Row).AutoFilter Field:=3, Criteria1:="=*" & Sayfa1.TextBox2.Value & "*", _
        Operator:=xlAnd, Criteria2:="=*" & Sayfa1.TextBox3.Value & "*"
    End If
End Sub

 

[Faulkner]

Merhaba,

Aşağıdaki kodu dener misiniz?

Private Sub TextBox2_Change()
    If TextBox2.Text = "" Then
        ActiveSheet.AutoFilterMode = False
    Else
    ActiveSheet.Range("$A$1:$D$" & Range("B" & Rows.Count).End(xlUp).Row).AutoFilter Field:=3, Criteria1:="=*" & Sayfa1.TextBox2.Value & "*", Operator:=xlAnd, Criteria2:="=*" & Sayfa1.TextBox3.Value & "*"
    End If
End Sub

Private Sub TextBox3_Change()
    If TextBox3.Text = "" Then
        ActiveSheet.AutoFilterMode = False
    Else
    ActiveSheet.Range("$A$1:$D$" & Range("B" & Rows.Count).End(xlUp).Row).AutoFilter Field:=3, Criteria1:="=*" & Sayfa1.TextBox2.Value & "*", _
        Operator:=xlAnd, Criteria2:="=*" & Sayfa1.TextBox3.Value & "*"
    End If
End Sub

çok teşekkürler oldu.