megoldást keresek erre a problémára
-
Tyco73 #2282 Szia Delila!
Makróval kapcsolatos kérdésem lenne. Adott egy táblázat aminek az egyik oszlopában dátumok vannak ráadásul óra-percel egyeütt (pl: 2017.01.23 14:45:12) az oszlop dátumra van formázva ilyen formátumban: 2017.01.23 Ezt az oszlopot szeretném makróval szűrni egy konkrét dátumra.
Ez a kód így működik de ha csak egy dátumot adok meg és "=" írok a kritériumhoz akkor nem működik:
Sub datum_t()
Dim datum As Date
Dim ad As String
datum = Date - 3
datum2 = Date - 1
'
ad = Format(datum, "mm\/dd\/yyyy\")
ad2 = Format(datum2, "mm\/dd\/yyyy\")
usor = .Range("I" & .Rows.Count).End(xlUp).Row
ActiveSheet.Range("$A$2:$AA$" & usor).AutoFilter Field:=18, _
Criteria1:=">" & ad, Operator:=xlAnd, Criteria2:="<" & ad2
End Sub