Drugi problem su kriterijum u obliku ">=E6". Ovako napisano ne upoređuje sa sadržajem ćelije E6 nego sa nizom karaktera "E6"!
Takođe, mislim da opseg za filtriranje treba da počne od A9 jer ćeš ovako ćeliju A10 ostaviti van filtera.
Dakle nakon što si promenio formata ispisa datuma u obliku mm/dd/yyyy (mada je to moglo i u kodu) tvoj makro bi mogao da izgleda ovako
Code:
Sub Filter()
Application.ScreenUpdating = False
' Sheets("KPR").Range("A9:A9999").Select
' Selection.AutoFilter
Range("A9:A9999").AutoFilter Field:=1, Criteria1:=">=" & Range("E6").Text, Operator:=xlAnd, Criteria2:="<=" & Range("G6").Text
' Range("A5").Select
End Sub
Primeti da ti selekcija nije neophodana. Kad snimiš makro ona se neminovno pojavljuje u snimljenom obliku, ali je lako možeš eliminisati.
Nije to loše Rembrante, samo što ne bi dodao još malo boje?