% Yüzde Filtreleme

[Tarikkk_]

Merhabalar herkese iyi bayramlar dilerim. Filtreleme İçin Kullandığım bu makroda
metinsel değer filtrelemeleri için - Aranan = "*" & Vade_Filtre & "*"
Sayısal değerler filtrelemeleri İçin İse - Aranan = ">=" & Vade_Filtre şeklinde kullanabilmekteyim
% Yüzde filtreleme için gerekli kodu bulamadım tam olarak nasıl bir kod kullanmalıyım acaba yardımlarınız için şimdiden çok teşekkür ederim.

Private Sub Vade_Filtre_Change()
    If Kontrol = 1 Then Exit Sub
    If Vade_Filtre = "" Then
        ActiveSheet.ListObjects("TB_AS").Range.AutoFilter Field:=25
    Else
        Aranan = ">=" & Vade_Filtre
        ActiveSheet.ListObjects("TB_AS").Range.AutoFilter Field:=25, Criteria1:= _
        Aranan
    End If

 

[YUSUF44]

Tam olarak anlamadım ama özünde yüzde de bir sayısal ifadedir. %100 = 1'dir mesela; %10'da 0,1'dir.

 

[Tarikkk_]

buyrun örnek dosya ekledim

 

[YUSUF44]

Aşağıdaki gibi olunca filtreliyor ama virgül yerine nokta kullanmanız gerekiyor:

Private Sub Tarih_Filtre_Change()

If Kontrol = 1 Then Exit Sub
    If Tarih_Filtre = "" Then
        ActiveSheet.Range("b2:b5000").AutoFilter Field:=1
    Else
        aranan = ">=" & Tarih_Filtre & "%"
        ActiveSheet.Range("b2:b5000").AutoFilter Field:=1, Criteria1:= _
        aranan
    End If
End Sub

 

[Tarikkk_]

Aşağıdaki gibi olunca filtreliyor ama virgül yerine nokta kullanmanız gerekiyor:

Private Sub Tarih_Filtre_Change()

If Kontrol = 1 Then Exit Sub
    If Tarih_Filtre = "" Then
        ActiveSheet.Range("b2:b5000").AutoFilter Field:=1
    Else
        aranan = ">=" & Tarih_Filtre & "%"
        ActiveSheet.Range("b2:b5000").AutoFilter Field:=1, Criteria1:= _
        aranan
    End If
End Sub

gayet iş görür çok teşekkür ederim.