2 kriterli filtre

[GursoyC]

Merhaba,
bir düğme ile tarih sütununda filtre yapmak istiyorum.
Filtre kriterleri sütunda boş olanlar ve bugün tarihi yazanlar.

makro ile kaydettim ve aşağıdaki şekilde uyarladım ancak çalışmadı. yardım eder misiniz.

ActiveSheet.Range("$A$1:$H$4996").AutoFilter Field:=6, Criteria1:="="
ActiveSheet.Range("$A$1:$H$4987").AutoFilter Field:=6, Criteria1:= _
        xlFilterToday, Operator:=xlFilterDynamic

 

[GursoyC]

Şu şekilde de çalışmadı. Sadece boş olanları getiriyor, bugün tarihli yazanları getirmiyor.

ActiveSheet.Range("$A$1:$H$4987").AutoFilter Field:=6, Criteria1:= _
        xlFilterToday, Operator:=xlOr, Criteria2:="=", Operator:=xlFilterDynamic

 

[Beyribey]

Benim kaydettiğim makro aşağıda, umarım işine yarar.

Range("Q1").Select
    Selection.AutoFilter
    ActiveSheet.Range("$O$1:$Q$11").AutoFilter Field:=3, Criteria1:=Array("=") _
        , Operator:=xlFilterValues, Criteria2:=Array(2, "9/29/2017")

 

[GursoyC]

Filtre içerisinde =today() kullanarak yapmaya çalışıyordum. Ancak sizin cevabınız bana bir konuda fikir verdi, o şekilde hallettim.
Teşekkür ederim.