Makro - filtrace dat Vyřešeno

[Aquila]

Dobrý den,
prosím chytré halvy fóra o pomoc s následujícím problémem.

Potřebuji rozfiltrovat tabulku s objednavkama podle jednotlivych dodavatelu na několik dalších tabulek (Ty pak jako .csv importuju do systemu).
Představuju si nějaké šikovné makro, ale na to nestačím.
Teď to několikrát denně pomocí autofiltru kopíruju do zvláštních tabulek a je to docela pruda.

Moc diky za jakoukoliv pomoc.

[Reklama]

[navstevnik]

Obecny postup, nejspis takto:
VBA procedurou na listu s daty vygenerovat unikatni seznam dodavatelu (Rozsireny filtr) a podle tohoto seznamu pak filtrovat data a exportovat do csv souboru dle dodavatelu.
Pro konkretni reseni je vhodne prilozit testovaci soubor s fiktivnimi daty, urcit jake maji byt nazvy csv souboru,....

[Aquila]

Diky...
... ale obecny postup nedokazu zrealizovat :-)
V priloze testovaci tabulka

[navstevnik]

V priloze je soubor, pracovni verze.
Ve VBA v procedure FiltrovatDoCsv() upravit cestu pro ulozeni souboru *.csv, spustit tlacitkem na listu1

[Aquila]

Upravil jsem cestu a posunul nektere bunky (v orig. souboru jsou trosku jinde) a filtr funguje skvele.

Problem prisel pri ukladani do SAPu. System tohle csv neumi precist. Kdyz jsem data zkopiroval z csv do xls a ulozil znovu jako csv uz to bylo v pohode. Nevim co je za problem. Nazvy, mezery, vse vypada totozne.

[navstevnik]

Problem spociva nejspise v odlisne hlavicce souboru vytvoreneho jinak.
V priloze je upravena procedura (je vyrazne pomalejsi), kde soubor *.csv je vytvoren ulozenim excelovskeho sesitu jako csv.
Uprav cestu pro ulozeni souboru *.csv a adresy bunek dle potreby.
Pokud bude reseni vyhovovat, lze pripravit definitivni verzi.

[Aquila]

Cele dopoledne jedu podle toho a je to super, moc diky.

Napodlo me jeste, jestli je mozne mit treba na dalsim liste jen nahled na vsechny rozfiltrovane objednavky pro kontrolu. Obcas se objednavka spatne nascenuje a OCR nacte spatny znak (napr. 8razilie misto Brazilie). V rozfiltrovanem prehledu se chyby odhali snaze.

Jeste jednou diky

[navstevnik]

K problemu chyb v naskenovanych objednavkach:
Pokud nastane popsany pripad, pak to bude dalsi dodavatel a prislusny soubor csv.
Pokud to vyhovi, je mozne filtraci rozdelit, nejprve vygenerovat pro kazdeho dodavatele novy list v sesite se vstupnimi daty a po kontrole teprve generovat soubory csv.
Zatim je v priloze optimalizovana verze dosavadni koncepce, na listu start vlozit udaje a spustit filtraci tlacitkem, predem opet upravit v procedure adresy nekterych bunek podle skutecneho souboru (bylo vhodne prilozit soubor odpovidajici skutecnosti, at neni nutne pokazde upravovat adesy bunek).

[Aquila]

Posledni verze je nadhera. Navstevniku si profik.

Data jsou v originalnim souboru posunuty, zacatek (prvni dodavatel) je na B4 misto A2 ve vzoru, datum C4 atd. Pak jsem jeste musel prejmenovat "list1" na "sheet1", ale to s posledni verzi jiz neni treba - urcim rovnou v zadani - proste dokonale.

Chyba pri cteni skenu se dopoledne stala, vytvoril se dalsi csv. Ale do ciloveho adresare jsem se nepodival driv nez jsem objednavky importoval v SAPu. Moje chyba. U jedne objednavky tak chybel jeden radek, ktery je vlastne nahrazen dalsim csv s chybnym jmenem. Muzou se ale pokazit a spatne nacist i dalsi udaje - mnozstvi (asi nedohledatelne), material .... Z praxe vim ze se objednavka spatne naskenuje cca 1-2x tydne. A v tom mnozstvi se to tezko hlida. Pro SAP je to potom neprekonatelny problem.

[navstevnik]

Adresovani bunek ve zdrojovem souboru je upraveno dle naznaceneho posunu, pripadne jeste upravit. Cinnost je rozdelena do dvou fazi - filtrace a po kontrole vyfiltrovanych formatovanych dat export nebo opakovani filtrace po oprave zdrojovych dat na zdrojovem listu.
Otestovat, zda vyhovuje standardu "Trottelfest und idiotensicher"!

[Aquila]

Velmi sofistikovane, standardu vyhovuje.
Diky