Excel - kopírování dat z jednoho souboru do druhého pomocí VBA

[simstriks]

Nemám nic proti radě. Ale potřebuji radu, nebo nejlépe pomocníka, jak program udělat... Ne rady ve stylu "nauč se programovat" nebo "kup si programátora"... na to snad mnoholetotou praxi ani nepotřebuješ ...

Jinak aktuální zadaní je nyní ze včerejška (26.9.2017)... Tak jak jsem to popsal v příspěvku

[Reklama]

[MePExG]

Dobrý deň. Toto je podľa mňa riešiteľné iba Power-nástrojmi. Predpokladám, že PowerPivot Váš Excel neobsahuje, preto som to vytvoril v PowerBI. Môžete si to pozrieť na tejto adrese:
NEEXISTUJE
Stačí klikať (na hodnoty) a analýzy tabuľka a grafy sa filtrujú resp. použiť filtre nad grafmi. Môžem Vám poskytnúť aj zdrojovú aplikáciu s popisom. PBI (- desktop, ktorý sa používa na tvorbu) je voľne dostupný na stránke powerbi.com. Ako zdroj údajov som použil jednotlivé Excel-súbory January_2017.xlsx, ... Tieto súbory stačí zadať do zdrojového adresára a aktualizovať PBI. Je to chvíľková zaležitosť - všetky údaje a grafy sa zmenia.

[simstriks]

Ahoj MePExG.

Díky moc za reakci, podívám se na to. Určitě netrvám na tom, aby to bylo řešené přes VBA :). Pokud existuje elegantnější řešení a i lépe editovatelné, tím lépe. Jinak mám excel 2016. Tam si myslím, že powerPivot je.

EDIT:

myslíš, že by šla celá aplikace poslat v jednom souboru? Normální .xlsx nebo jiná koncovka? Aby to nejelo na netu?

Díky.

[MePExG]

Tu je link. NEEXISTUJE. Podstatný (všetko) je Porovnaní.pbix.

[simstriks]

Díky, ale soubor je zaheslovaný.

[MePExG]

Ja viem.
MePExG

[simstriks]

Ahoj,

díky moc. Jen jsem si myslel, ze ten BI je automaticky součástí excelu 2016. Pravděpodobně není a musí se doinstalovat. Ve firmě by jsi ale muselo tuto funkci přiinstalovat asi 800 lidí :(. A navíc to musí jít přes IT. Což je běh na dlouhou trať... Odkaz na internet je super, jenže "šéf" to chce v normálním souboru a ne na internetu... :(... Není jiná možnost, jak takto grafy jednoduše zobrazit bez potřeby VBA, ale aby se daly grafy zobrazit bez doinstalovávání nějakého balíčku?

Díky

[MePExG]

Prikladám riešenie pomocou Excelu a (v ňom použitom) PowerPivotu.

[simstriks]

Vypadá to dost dobře :) Jenom mám pár dotazů, co se týče funkčnosti:

1) Jak se bude aplikace chovat, když nastane tato situace:

v Lednu máme 17000 druhů výrobků (každý řádek ve vzorových datech je jeden výrobek. Máme tedy 17000 řádků). V únoru, bude ale těch výrobků třeba 23000 a z toho bude 16000 těch, které byly i v lednu. To znamená, že v únoru bude navíc 7000 výrobků, které ale nesmějí být do sumy započítány. Musím porovnávat pouze ty výrobky, které byly v obou měsících vyrobeny (ať mohu u těch dvou výrobků porovnat čas - jestli byl vyroben rychleji nebo pomaleji v lednu, nebo v únoru). Program mi nyní ukáže sumu u týmů, nad_týmů a celých divizí, cože je přesně to, co pro vedení potřebuji. Ukázat oba dva měsíce, vybrat si třeba tým TT1 a porovnat výrobu těch samých výrobků a říct, zda jsme se zlepšili, nebo ne.

Může ale nastat situace, kdy ten výrobek který NEbyl v lednu ale BYL v únoru, bude zase v Březnu. proto když zvolím Únor a Březen, tam se již porovnání provede, protože daný výrobek byl vyroben v únoru i březnu.

mám obavy, že aplikace proste sečte všechno co je u jednotlivých týmů a udělá z toho graf. Neporovná si, zda ty výrobky byly (nebo naopak nebyly) vyrobeny v obou měsících, které jsem si zvolil. Poté jsou data samozřejmě nepřesné, protože za únor bude sečtených 23k hodnot a za leden jen 17k.

2) Nevím si rady, jak tam dostanu vzorová data. První list se jmenuje - nastav a je tam kolonka pro cestu. Ale jakou? Konkrétního měsíce, nebo složky kde budou všechny měsíce postupně? A čím výběr cesty potvrdím?

Co se týče přehlednosti a možnosti volby grafů, je to super. Pokud bude aplikace fungovat a mít takový vzhled a to ještě bez použití VBA byla by to perfektní výhra.

Díky moc.

[MePExG]

Vstup údajov a aktualizáciu zabezpečuje PowerQuery, ktorý je nastavený, že spojí všetky údaje z Excl-ov z adresára (z 1. listu), ktorý je potrebné nastaviť ako cestu. Vzor vstupných som dal do pbi adresá data (siahnutie z Ulozto; Názvy súborov musia byť v zadanej štruktúre). Aktualizácia po nastavení cesty stačí v Data-Refresh All (Ctrl+Alt+F5). Potom už len stačí prepínať filtre.
Na to počítanie jednotlivého tovaru som pozabudol. Zatiaľ je to presné (porovnanie), iba v tabuľke, kde je vynesená dimenzia key (spojenie 6 znakov a čísla tovaru). Skúsim dorobiť. Mimo to v grafoch sú vynesené aj podiely, ktoré stačí dať na inú os, alebo vedľa urobiť kopiu grafov a vyhodiť dimenziu z legendy a nechať iba podiel.

[simstriks]

Zdravím,

omlouvám se, jestli jsem natvrdlý , ale nerozumím té cestě a názvu, jaký musí jednotlivé měsíce mít. Řekněme, že mám data zde (daty myslím jednotlivé měsíce, které se jmenují třeba 01_January, 02_february ...) - C:\temp\data (jen pro představu). Tak tuto cestu vložím do prvního listu do cesty... resp. pod buňku hodnota. Dám aktualizovat a hotovo? Protože když toto udělám, tak se nic neděje a data se tam nenahrají. Respektive chvilku to šrotuje a pak to hodí hlášku - viz obrázek.

A Pokud mohu poprosit... Nevím jak by to bylo náročné na vysvětlení. Ale šlo by (třeba v odrážkách), nebo možná by bylo úplně nejsnazší udělat video, jak si to vytvořil. Jak si udělal tu cestu, jak si udělal, že se data uložili do dalšího listu a pak ty grafy? Vypadá to fakt super a možná, by se to dalo použít i pro další analýzy, které zde děláme nyní ručně, nebo složitěji. To už bych si samozřejmě udělal sám. Jen nyní nevím, jak si to vytvořil.

Díky moc za pomoc )

[MePExG]

Dobrý deň.
K obrázku. Stačí vybrať v ponuke vpravo (v combe) prístup k údajom významovo PUBLIC-asi verejné a kliknúť na uložiť. Potom by už ďalej malo platiť (ak máte PowerPivot [mal by mať záložku]), to čo som písal (prikladám obrázok ako to má vypadať).
Postup, ako som to vytvoril? Sorry nie. Použil som všetky moje znalosti pozberané asi z 25 ročnej praxe. Ak máte záujem môžeme sa dohodnúť na ohodnotenej spolupráci (súkromne, alebo pre firmu). Môžete ma kontaktovať súkromnou správou.