sub tampiltgl()
Columns("A:C").Select
Selection.AutoFilter
ActiveSheet.Range("$A:$C").AutoFilter Field:=3, Criteria1:= _
">=32874", Operator:=xlAnd, Criteria2:="<=33238"
end subangka 32874 adalah value dari 1/1/1990, dan angka 33238 adalah value dari 31/12/1990. smoga bisa membantu

