Windows 8.1??? Atyaég!
Az Excel viszont 2016-os. Ezt a kódot 2010-es verzión sokat futtattam, aztán 2013-on és 2016-on, végül 365-ön is.
Nem tudom, hogy mi a baja, valószínű, hogy valami regionális beállítás issue.
találtam egy fórum bejegyzést, ahol ugyanez a baj, ott sem tudták megoldani. Tehát legalább nem vagy egyedül a világegyetemben 🙂
https://www.ozgrid.com/forum/index.php?thread/1229157-recorded-autofilter-macro-using-array-with-date/&pageNo=1
Nálad ez nem fog menni, hacsak valami beállítást nem sikerül megtalálni.
Őszintén szólva már vártam ezt a hibát, mert kicsit illékonynak érzem ezt az Array-es megközelítést.
Ennek ellenére kb. 10 év alatt nem jött ki
Mást kell csinálni, úgy felvenni, hogy 2007 május 1 és 2007 május 31 közöttiekre szűrjön.
Felvettem úgy, hogy az autofilter lenyitásakor „Két érték között”-et választottam, és megadtam 2007 május 1 és 31-et.
Ezt vette fel:
ActiveSheet.Range("$A$1:$I$81").AutoFilter Field:=1, Criteria1:= _
">=2007.05.01", Operator:=xlAnd, Criteria2:="<=2007.05.31"Ezt futtatva nem működött. Nem dobott hibát, de üres fejléc maradt a szűrésnél.
Cseréltem erre:
ActiveSheet.Range("$A$1:$I$81").AutoFilter Field:=1, Criteria1:= _
">=5/01/2007", Operator:=xlAnd, Criteria2:="<=5/31/2007"Ezzel jó.
Nálam.
Ha nálad hiba lesz, akkor játszogass a hónap/nap/év sorrendekkel.
Imre
