Filtreleme (Bugün)

[leonadies]

Üstadlar basit bir yardım gerekmekte. Bazı şeyler denedim ama olmadı.

A sütununda tarihlerim var. Makro yardımı ile bugünün tarihi ile eşleşenleri (Yani bugünü) filtrelemek istiyorum. İnternette böyle bir örnek bulamadım

 

[Muzaffer Ali]

Merhaba.
Aşağıdaki kodları deneyin.

Sub TarihFiltrele()
    Dim Tarih As String
    Tarih = Now
    Tarih = Month(Tarih) & "/" & Day(Tarih) & "/" & Year(Tarih)
    ActiveSheet.Range("A:A").AutoFilter Field:=1, Operator:=xlFilterValues, Criteria2:=Array(2, Tarih)
End Sub

 

[leonadies]

@dalgalikur teşekkür ederim. Kodu kendime göre revize ettim ancak en alt satırda hata veriyor. A2 den filtre yapsın diye makroda ayar yapmaya çalıştım olmadı. Tarih formatım 10.05.2020 şeklinde

Sub TarihFiltrele()
    Dim Tarih As String
    Tarih = Now
    Tarih = Day(Tarih) & "." & Month(Tarih) & "." & Year(Tarih)
    ActiveSheet.Range("A2:A").AutoFilter Field:=1, Operator:=xlFilterValues, Criteria2:=Array(2, Tarih)
End Sub

 

[Muzaffer Ali]

Benim verdiğim kodlar işe yaramadı mı neden Tarih = Month(Tarih) & "/" & Day(Tarih) & "/" & Year(Tarih) satırını değiştirdiniz?
Değiştirmemelisiniz.
Örnek dosya eklerseniz daha iyi olur.

 

[leonadies]

Ben "/" formatı sorun olur deyip değiştirmiştim. Aynen dediğiniz gibi değiştirmemem lazımmış Teşekkür ederim @dalgalikur

 

[Muzaffer Ali]

A2 den itibaren filtre yapmak istediğinizi söylemiştiniz aşağıdaki kodu kullanın.

Sub TarihFiltrele()
    Dim Tarih As String
    Tarih = Now
    Tarih = Month(Tarih) & "/" & Day(Tarih) & "/" & Year(Tarih)
    ActiveSheet.Range("A2:A" & ActiveSheet.cells(rows.count,"A").end(xlup).row).AutoFilter Field:=1, Operator:=xlFilterValues, Criteria2:=Array(2, Tarih)
End Sub

 

[leonadies]

Tamamdır. Teşekkür ederim