Aktif Hücredeki Sayısal Değeri Filtreleme

[y.selim]

Merhaba,

Aşağıdaki kodlar aktif hücrede sadece metinsel değerleri filtreliyor.

Bunu her türlü içeriği (metinsel / sayısal / tarih) filtreleyecek şekilde nasıl revize edebiliriz ?

İyi çalışmalar dilerim.

Sub Filtre()

    On Error Resume Next
    ActiveSheet.Range("$A$1:$D$20").AutoFilter Field:=ActiveCell.Column, _
    Criteria1:=ActiveCell.Value
    
End Sub

 

[Levent Menteşoğlu]

Sadece metinler için aşağıdaki gibi deneyebilirsiniz.

ActiveSheet.Range("$A$1:$D$20").AutoFilter Field:=ActiveCell.Column, _
Criteria1:=">=a"

Sadece sayısal veriler içinde aşağıdaki gibi olabilir. Ancak tarihte sayısal bir veri olduğu için onu da filtre içine dahil edecektir. Sadece tarih için nasıl bir kriter olabilir onu bende merak ediyorum.

ActiveSheet.Range("$A$1:$D$20").AutoFilter Field:=ActiveCell.Column, Criteria1:="<0", _
        Operator:=xlOr, Criteria2:=">=0"

 

[Levent Menteşoğlu]

Aşağıdaki kodlar aktif hücrede sadece metinsel değerleri filtreliyor.

Bunu her türlü içeriği (metinsel / sayısal / tarih) filtreleyecek şekilde nasıl revize edebiliriz ?

Sorunuzu ilk cevabımda yanlış anlamış olabilirim. Eğer kasdettiğiniz her türlü veri tipini aynı anda filtrelemesi ise bu zaten filtre yapılmaması anlamına gelmiyor mu?

 

[y.selim]

Merhaba Levent bey ,

Normalde herhangi bir hücrenin üstündeyken şu şekilde yapıyoruz; “sağ tuş > filtrele > seçili hücrenin değerine göre filtre uygula “

Ben bunun makrosunu yapıp eklenti olarak kullanmak istiyorum. O hücrenin bulunduğu sütun tarih sütunuysa aktif hücrenin tarihini, ilgili sütun metinlerden oluşuyorsa aktif sütundaki metni, sütun da küsüratlı-küsüratsız sayısal değerler varsa aktif sütundaki ilgili tutarı filtrelemeli.

 

[y.selim]

Merhaba,

Daha anlaşılır olması için örnek dosyada anlattım.

Kod metin içeren hücreleri filtrelerken sayısal veri içeren hücreleri filtrelemiyor.

Hem metinsel hem sayısal ve tarihsel verileri filtrelemesini nasıl sağlayabiliriz ?

 

[Levent Menteşoğlu]

Aşağıdaki gibi deneyin. Value yerine Text kullanın.

ActiveSheet.Range("$A$1:$D$20").AutoFilter Field:=ActiveCell.Column, _
    Criteria1:=ActiveCell.Text

 

[y.selim]

Bu kadar kolay mıydı

Çok teşekkürler.