Stránka 1 z 2

Vzoreček na počítání zbylé volné plochy v regálu

Napsal: 09 kvě 2012 08:33
od david.dda
Dobrý den,
Potřeboval bych poradit se vzorečkem v Excelu. Mám ve skladu označené regály od č. 1 do č. 10 s různou délkou. Když do regálu dám nějaké zboží, tak zapíši v excelu do jakého regálu bylo umístěno a kolik zboží měří metrů a potřeboval bych, aby se podle čísla regálu sečetly všechny zapsané délky zboží v tabulce a odečetly od délky regálu. Příklad uvádím v přiloženém excelovém souboru, taktéž s krátkým popisem. Prosím o radu se vzorečkem na počítání zbylé volné plochy v regálech. Řešení by mělo být bez makra. Děkuji mnohokrát.

Re: Vzoreček na počítání zbylé volné plochy v regálu

Napsal: 09 kvě 2012 09:11
od Azuzula
Na tohle bych viděla jako nejlepší kontingenční tabulku + jeden pomocný sloupek viz příloha

Re: Vzoreček na počítání zbylé volné plochy v regálu

Napsal: 09 kvě 2012 09:28
od david.dda
Děkuji za odpověď. Do tabulky se budou stále zapisovat nová data i s jinými názvy (např. vařič 0,3 metru atd.) zkoušel jsem dopsat do mé tabulky novou řádku, ale již se data ani po vložení vašeho vzorce nedoplnila. Potřeboval bych tedy nějaké více dynamické řešení.

Re: Vzoreček na počítání zbylé volné plochy v regálu

Napsal: 09 kvě 2012 10:08
od Azuzula
V nastavení kontingenční tabulky (nevím jak ve starší verzi 97-2003), tak tam je možnost Aktualizovat data a také možnost změnit zdroj dat a tím se zvětší rozsah pro tabulku. Zdroj dat jsem nastavila na A1:D13, takže na pár dalších položek stačí jen aktualizovat kont.tab.

Re: Vzoreček na počítání zbylé volné plochy v regálu

Napsal: 09 kvě 2012 19:02
od cmuch
Pokud chceš více dynamičtější řešení tak by se muselo použít makro.
Používám to a je to vynikající ulehčení.

Re: Vzoreček na počítání zbylé volné plochy v regálu

Napsal: 14 kvě 2012 09:38
od david.dda
zkusil by jste mi tedy prosím zaslat řešení s makrem. Vyzkouším jak to bude fungovat na více počítačích. Tabulka se bude používat tak na 4 PC. Děkuji moc.

Re: Vzoreček na počítání zbylé volné plochy v regálu

Napsal: 14 kvě 2012 10:56
od cmuch
Ty data budou přesně tak jak v poslední příloze? Tzn. budou přibývat jen řádky nebo i sloupce?
Tu kontingenční tabulku budete chtít umístit jinam nebo bude tam jak ji dala Azuzula?

Re: Vzoreček na počítání zbylé volné plochy v regálu

Napsal: 15 kvě 2012 18:39
od cmuch
Takže když není odezva, tak alespoň takhle.
Kontingenční tabulka se bude aktualizovat automaticky při každé změně na Listu1.
Pokud se změní název kont.tab. musí se název změnit i v makru.

Re: Vzoreček na počítání zbylé volné plochy v regálu

Napsal: 15 kvě 2012 20:54
od david.dda
Omlouvám se, že reaguji až teď, zítra v práci to hned vyzkouším a poté napíši, jak to funguje. Zatím moc děkuji

Re: Vzoreček na počítání zbylé volné plochy v regálu

Napsal: 21 kvě 2012 06:52
od david.dda
Dobrý den,
tabulka s makry funguje parádně, akorát nemohu zjistit jak makro editovat. Když kliknu v Excelu 2003 na "nástroje" - "makro" - "makra" tak tam žádné makro není zapsané. Kontingenční tabulku mám na listě "List2" pod F3. jinak sloupce přibývat nebudou, ale jsou trochu jinak rozmístěny, než v tomto případě. Budou poté přibývat pouze řádky.Chcete poslat přímo originální tabulku, nebo si makro dokáži upravit poté nějak sám? - nevím jak je to složité. Děkuji moc.

Re: Vzoreček na počítání zbylé volné plochy v regálu

Napsal: 21 kvě 2012 10:39
od cmuch
Makro je vidět v tom vzorovém sešitě když se poklepe na List1 ve VBA.
Pokud budou přibývat řádky je třeba definovat přes názvy oblast pro kontingenční tabulku (viz. můj odkaz výše).

Jinak když to nepůjde tak to sem nebo přes SZ postněte.

Re: Vzoreček na počítání zbylé volné plochy v regálu

Napsal: 21 kvě 2012 15:38
od david.dda
Dobrý den,
zkoušel jsem ve VBA leccos pozměnit, ale nedokázal jsem docílit, aby se kontingenční tabulka v listu2, měnila po zápisu v listu1 (tedy zápisu nové řádky v kolonce A), jak mám Váš kód uvedený níže pozměnit? Název tabulky "Kontingenční tabulka 2" může být stejný. Musí poté být kód vložen pod VBA v listu1, nebo listu2?

Option Explicit

Private Sub Worksheet_Change(ByVal Target As Range)

Application.EnableEvents = False

ActiveSheet.PivotTables("Kontingenční tabulka 2").PivotCache.Refresh

Application.EnableEvents = True

End Sub