< návrat zpět

MS Excel


Téma: Prace s "datumem" v makru rss

Zaslal/a 6.2.2020 15:36

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ěď >

#045789
avatar
Příloha nebude? 1

Soubor s makrem se musí nejdříve sbalit.citovat
#045798
avatar
..doprč... No, takže až v pondělí, sorry nevšim sem si.citovat
#045830
avatar
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: zip45830_filtering.zip (35kB, staženo 20x)
citovat
#045831
avatar
pretoze ste premenovali sheet:

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

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
#045833
avatar
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
#045834
avatar
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
#045852
avatar

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

Uživatelské menu

Nejste přihlášen(a)
avatar\n

Menu

On-line nástroje

Formulář Faktura

Formulář Faktura IV

Oblíbený formulář Faktura byl vylepšen a rozšířen.
Více se dočtete zde.

Aktivní diskuse

odpocet a storno tl.

PavDD • 28.3. 8:53

odpocet a storno tl.

Začátečník • 26.3. 14:39

odpocet a storno tl.

PavDD • 26.3. 10:22

odpocet a storno tl.

elninoslov • 26.3. 7:50

odpocet a storno tl.

PavDD • 26.3. 7:26

odpocet a storno tl.

elninoslov • 25.3. 22:34

odpocet a storno tl.

Začátečník • 25.3. 15:09