Textbox Sayı ve Metin Filtreleme

[Tarikkk_]

Merhabalar. textbox ta kullanmış olduğum makroda sayı veya metinsel verileri ayrı ayrı filtreleme yapabiliyorum fakat bir sütunda hem sayı hem metin verileri olduğundan textboxa metin yada sayı yazdığımda filtreleme yapmasını istiyorum. birleştirme gibi birşeyler denedim ama başarılı olamadım sevgili hocalarımdan yardımcı olmalarını rıca edecektim. şimdiden çok teşekkür ederim

metinsel verilerde kullandığım kod

    Private Sub Pay_Filtre_Filtre_Change()
   
    If Kontrol = 1 Then Exit Sub
   
       ActiveSheet.Unprotect
    If Pay_Filtre = "" Then
       ActiveSheet.ListObjects("TB_AS").Range.AutoFilter Field:=8
    Else
       Aranan = "*" & Pay_Filtre & "*"
       ActiveSheet.ListObjects("TB_AS").Range.AutoFilter Field:=8, Criteria1:= _
       Aranan
    End If
End Sub

sayısalda kullandığım filtre

Private Sub Pay_Filtre_Change()

    If Kontrol = 1 Then Exit Sub

    If Pay_Filtre = "" Then
        ActiveSheet.ListObjects("TB_AS").Range.AutoFilter Field:=8
    Else
        Aranan = "=" & Pay_Filtre
        ActiveSheet.ListObjects("TB_AS").Range.AutoFilter Field:=8, Criteria1:= _
        Aranan
    End If
End Sub

 

[ÖmerFaruk]

Böyle birleştirebilirsiniz

If Isnumeric (Pay_Filtre.Value) Then
   Aranan= "=" & Pay Filtre
Else
   Aranan = "*" & Pay_Filtre & "*"
End if

 

[Tarikkk_]

Böyle birleştirebilirsiniz

If Isnumeric (Pay_Filtre.Value) Then
   Aranan= "=" & Pay Filtre
Else
   Aranan = "*" & Pay_Filtre & "*"
End if

Teşekkürler hocam çok işime yaradı