İKİ TARİH ARASINDAKİ VERİLERİ SÜZMEK

[gamsizgani]

ÝKÝ TARÝH ARASINDAKÝ VERÝLERÝ SÜZMEK

Merhaba

İstediğim soru ve örnek ekte mevcut. Yardımcı olursanız sevinirim

Teşekkür Ederim.... :kafa:

 

[selections]

Range("a1").AutoFilter
    t = Range("a2").Value
    t1 = Range("b2").Value
    t2 = Range("c2").Value
    Range("A4").Select
    Selection.AutoFilter
    Selection.AutoFilter Field:=2, Criteria1:=">=" & t1, Operator:=xlAnd
    Selection.AutoFilter Field:=3, Criteria1:="<=" & t2, Operator:=xlAnd
    Selection.AutoFilter Field:=1, Criteria1:=t & " * "