sub tampiltgl()
    Columns("A:C").Select
    Selection.AutoFilter
    ActiveSheet.Range("$A:$C").AutoFilter Field:=3, Criteria1:= _
        ">=32874", Operator:=xlAnd, Criteria2:="<=33238"
end sub


angka 32874 adalah value dari 1/1/1990, dan angka 33238 adalah value dari 
31/12/1990. smoga bisa membantu

Kirim email ke