MS Excel

Dobrý den
v přiloženém souboru je nahrané makro - použití rozšířeného filtru.
"Ručně" pracuje , po spuštění ne.
Vím o problému s "formátem datumu" ale nevím jak jej elegantně vyřešit. Je to tabulka stažená s netu. Vlastní je podobná - potřebuji filtrovat dle jedné položky a data.
Datum v rozmezi OD-DO, vybraná konkretní "Product" a tuto vyfiltrovanou tabulku zkopírovat na list P-2.
Díky za vaše rady

Zaslat odpověď >

Jiří497(6.2.2020 16:54)#045789

Příloha nebude?

Soubor s makrem se musí nejdříve sbalit.citovat

George-000(6.2.2020 18:01)#045798

..doprč... No, takže až v pondělí, sorry nevšim sem si.citovat

GeorgeK(10.2.2020 10:21)#045830

Vložena příloha.
Netrvám na "rozšířeném filtru".
Vyfiltrovat položku, vyfiltrovat dle data (od-do) a překopirovat na příslušný list.
V realu bude max 2000 řádků a do 10 výběrových položek které se budou kopirovat na vlastní list.
Ale satčí mi menší příklad jak "obejít" problém s datumem.
Děkuji

Příloha: zip

45830_filtering.zip (35kB, staženo 21x)

citovat

Palooo(10.2.2020 10:53)#045831

pretoze ste premenovali sheet:

Range("A1:I222").AdvancedFilter Action:=xlFilterInPlace, CriteriaRange:= _
Sheets("01 SELECTIVE SWITCH ").Range("N1:O2"), Unique:=Falsecitovat

GeorgeK(10.2.2020 11:25)#045832

Palooo napsal/a:

pretoze ste premenovali sheet:

Range("A1:I222").AdvancedFilter Action:=xlFilterInPlace, CriteriaRange:= _
Sheets("01 SELECTIVE SWITCH ").Range("N1:O2"), Unique:=False

Přejmenoval, zapomněl v makru upravit.
Ale TOHLE nemá vliv na nefunkčnost data.
Vám to funguje?citovat

Palooo(10.2.2020 12:26)#045833

ano funguje. Je dost mozne ze makro nespustate z spravneho sheetu tj. P-1.

skuste makro prepisat na:
Sheets("P-1").Range("A1:I222").AdvancedFilter Action:=xlFilterInPlace, CriteriaRange:=Sheets("P-2").Range("N1:O2"), Unique:=Falsecitovat

Palooo(10.2.2020 12:53)#045834

pardon otestoval som to este raz a mate pravdu nerobi to dobre.

pozrel som na nete preco a je to koli tomu ze datum bere ako string udaj a nie ako cislo

ked to upravite do takejto forme tak to pojde:

Sheets("P-1").Range("$A$1:$I$242").AutoFilter Field:=2, Criteria1:=">=" & CDbl(Sheets("P-2").Range("N2")), Operator:=xlAnd, Criteria2:="<=" & CDbl(Sheets("P-2").Range("N3"))
Sheets("P-1").Range("$A$1:$I$242").AutoFilter Field:=3, Criteria1:=Sheets("P-2").Range("O2")

znaky "<=" a ">=" mozte mat tiez v bunke ale v inej ako je datumove pole.

..... hadam som pomoholcitovat

GeorgeK(12.2.2020 11:21)#045852

Palooo napsal/a:

pardon otestoval som to este raz a mate pravdu nerobi to dobre.

..... hadam som pomohol

Díky :-)
funguje, bylo to správné nasměrovánícitovat

Téma: Prace s "datumem" v makru

Uživatelské menu

Menu

Formulář Faktura

Formulář Faktura IV

Helios iNuvio

On-line nástroje