Příspěvky uživatele
< návrat zpět
tak koukám mně to doma taky nefungovalo 
jenom připomenu , že složka kterou jste poslal je pojmenovaná jako "Download", kde v příkazu jste měl "Downloads", takže teď nevím které je správně.
upravit když tak cestu v řadku viz níže pak už snad bude dobrý
z
cestaSesitu = "C:\Users\OVRotating\Downloads\" & Dir(Sesit)
na
cestaSesitu = "C:\Users\OVRotating\Downloads\" & Dir("C:\Users\OVRotating\Downloads\" & Sesit)
Přidal jsem nové tlačítko s novým makrem.
Pokud bude pokaždé jenom jeden soubor od každého sešitu ve složce "Download" tak by to mělo fungovat.
Ale, pokud se tam průběžné přidávají další s novým datumem a časem, tak to bude chtít řešit jinak. Někde se do sešitu bude muset ukládat názvy posledných kopírovaných souborů, aby makro vědělo které soubory již byly zkopírované. Pak je otázka jestli před kopírováním mazat již uložená data nebo je kopírovat pod ně.
Zdravím,
nevím jestli jsem správně pochopil zadání, mám pár otázek.
- všechny soubory které chcete otevřít máte v jedné složce? "C:\Users\OVRotating\Downloads"
- chcete načíst všechny soubory z této složky od poslední, která byla už načtena, nebo vždy jenom jeden soubor?
- v jakém tvaru je ten den a čas?
- je možnost sem hodit nějaký demo sešit klidně bez dat abych mohl makro upravit?
děkuji
třeba
Range("A1").Select
vložit do "Makro3" jako poslední řádek, nad "End Sub"
určitě dalo, ale bylo by lepší sem hodit ten sešit.
abych viděl jak je veliká tabulka a kolik dalších listu jsou ještě v sešite krom měsíců.
pokud jsou tabulky stejné ve všech listech stačí jeden měsíc
místo "průměru" použít spíš "součin.skalární" viz přílohu
Omlouvám se za špatně pochopené zadaní. 
tak snad teď to bude lepší.
podle barvy jsem to nedal, protože se to váže na datum.(podle mě to stačí, ale můžu se mýlit )
Ještě jsem našel chybu v makru 
, takže nahrávám aktuální verzi !! 
dobrý den,
může být?
já si znovu dovolil do toho fušovat.
přidal jsem tlačítko pro přidávání nového řádku, list "Souhrn" (zeleně označená buňka)
musí být povoleny makra aby to fungovalo.
jinak pro nový rok stačí v listu "Souhrn" v buňce "B2" změnit rok, který potřebujete. (modře zvýrazněné) Ale to tam přidával Lugr, já jenom odpovídám na dotaz 
Dovolil jsem si tabulku upravit.
A ano šlo by to udělat. 
viz odkaz
Lugrovi se tedy omluvám
jak vypadá ten vzorec?
čím jsou oddelené sjlova? mezerníkem? tabulatorem?
eLCHa napsal/a:
mno, on už to napsal přede mnou lubo ;))
a když se trošku zasoustředím - tak ten váš kód ještě trochu zredukuji ;))
Sub PChartsRefresh()
Sheets("KT-G").PivotTables(1).PivotCache.Refresh
End Sub
v podstatě bych ho vymazal úplně - pokud to není součást jiného většího projektu ;))
jj ted je to luxusní. Nemusím už nijak dál řešit průřezi.
Děkuji Vam všem ještě jednou, konečne se můžu pohnout po třech týdnech dál
eLCHa napsal/a:
Co myslíte změnou?
Změnou dat - mně to funguje
Změna oblasti - musíte pořešit nebo nejlépe převeďte na tabulku (Vložení - Tabulka) a starat se o to nemusíte
tak tohle jsem potřeboval
Tisíc krát díky. Teď to funguje přesně jak má.
Ještě jednou díky
@eLCHa:
po odstranění .PivotCaches.Create... se teď neaktulizuje tabulka, pokud udělám zmenu v source datech. 
Vypinání KT jsem udělal jenom narychlo, aby mi to nehazelo do chyby, ale to nemá vliv na aktualizaci. Alespoň si to myslím.
Uživatelské menu
\nMenu
Formulář Faktura
Formulář Faktura IV
Oblíbený formulář Faktura byl vylepšen a rozšířen.
Více se dočtete zde.
Helios iNuvio
Používáte podnikový systém Helios iNuvio? Potřebujete pomoci se správou nebo vyvinout SQL proceduru? Více informací naleznete na stránce Helios iNuvio.
RSS nejnovější články