Soru Textbox ile filtre

[NADİR YILDIZ]

sorunumla ilgili örnek dosyada açıklama yaptım.yardım edecek arkadaşlara şimdiden teşekkür ederim

 

[NADİR YILDIZ]

arkadaşlar bunun çözümü varmı ?

 

[NADİR YILDIZ]

Arkadaşlar textbox ile flitreme yapılıyor.örnek dosyamda bir tanesine makro kodunu yazdım ancak sonuç alamadım nerede eksik var.

 

[NADİR YILDIZ]

arkadaşlar bu konuda çözüm önerisi olan kimse yok mu ?

 

[NADİR YILDIZ]

arkadaşlar günaydın açıklama kısmında textbox ile süzme işlemini sonunda gerçekleştirebildim

kırmızı textboxtaki muh.kodunu idris serdar üstadın kodlarından yararlanarak yazdım ama sonuç alamadım.eksik olan bişey var.kırmızı textboxa 120 yazınca makro kodları bölümünde metin4 e uyarı veriyor neden acaba ?

 

[Korhan Ayhan]

İlk olarak filtrenizi B4:E4 hücrelerine uygulayın.

Sonra aşağıdaki kodları deneyin.

Private Sub TextBox1_Change()
    Dim Aranan As String, Bul As Range
    Aranan = TextBox1.Value
    Set Bul = Range("D5:D" & Rows.Count).Find(What:=Aranan)
    If Not Bul Is Nothing Then
        Application.Goto Reference:=Range(Bul.Address), Scroll:=False
        Selection.AutoFilter Field:=3, Criteria1:="*" & Aranan & "*"
    End If
    If Aranan = "" Then Selection.AutoFilter Field:=3
End Sub

Private Sub TextBox2_Change()
    Dim Aranan As String, Bul As Range
    Aranan = TextBox2.Value
    Set Bul = Range("C5:C" & Rows.Count).Find(What:=Aranan)
    If Not Bul Is Nothing Then
        Application.Goto Reference:=Range(Bul.Address), Scroll:=False
        Selection.AutoFilter Field:=2, Criteria1:="*" & Aranan & "*"
    End If
    If Aranan = "" Then Selection.AutoFilter Field:=2
End Sub

 

[NADİR YILDIZ]

Korhan bey teşekkür ederim
iyi çalışmalar