ActiveSheet.ListObjects("Table1").Resize Range("$A$1:$K$" & posledny_riadok)citovat
excel, návod, tipy, funkce, makra, vba, tabulky, šablony
Váš průvodce programem Microsoft Excel a programováním maker ve VBA
< návrat zpět
Téma: zmena rozsahu v kontingencnej tabulke
Uzamčeno - nelze přidávat nové příspěvky.
ten prvy sposob sa mi zda lepsi.v tej zatvorke table1 je nazov zdrojovej tabulky ?citovat
MS Excel
Téma: zmena rozsahu v kontingencnej tabulke 
Zaslal/a neck 18.2.2014 12:38
Dobry den
mam kontingencnu tabulku v ktorej sa mi meni rozsah vstupnych udajov.
Kazdy mesiac pribudne 30 novych riadkov a ja musim o tychto 30 novych riadkov posunut rozsah.
Vie niekto ako to spravit cez makro ?
Skusal som najst posledny riadok pomocou funkcie
posledny_riadok = ActiveSheet.Range("a1048576").End(xlUp).Row
co funguje ale nieviem ako zistenu hodnotu posledneho riadku zapisat do rozsahu kontingencnej tabulky.
Dakujem za info
Uzamčeno - nelze přidávat nové příspěvky.Nebo to udělej naopak. Rozsah nastav na sloupce $a:$c nebo na oblast $a5:$c1048576 a v kontingenční tabulce si odstraň (Prázdné). Pak Ti stačí jen doplnit řádky a aktualizovat pivot tabulku. Počítá to stejně.citovat
(18.2.2014 13:16)#017897
ten prvy sposob sa mi zda lepsi.v tej zatvorke table1 je nazov zdrojovej tabulky ?citovat
Palooo napsal/a:
ActiveSheet.ListObjects("Table1").Resize Range("$A$1:$K$" & posledny_riadok)
ten prvy sposob sa mi zda lepsi.v tej zatvorke table1 je nazov zdrojovej tabulky ?citovat
(18.2.2014 15:47)#017900
Převeď zdrojovou tabulku na tabulku. Rozsah se pak bude měnit automaticky, tj. bez maker.citovat
osvědčilo se mi použití AUTOMATICKY SE ROZŠIŘUJÍCÍ OBLASTI
http://www.office4you.cz/rady-a-navody/item/222-excel-automaticky-se-rozsirujici-oblast.html#.UwOyrGJ5NNccitovat
http://www.office4you.cz/rady-a-navody/item/222-excel-automaticky-se-rozsirujici-oblast.html#.UwOyrGJ5NNccitovat
Řešení od M+ a od Petra má jeden nedostatek:
Pokud bude KT (respektive u obou těchto řešení stačí kontrolovaný sloupec) obsahovat prázdný řádek (neměla by, ale může) - nebude fungovat správně
Takže na to buď musí uživatel myslet (buď v hlavě nebo si udělat jednoduchou kontrolu ;) ) nebo použít jiný vzorec pro zjištění posledního řádku v oblasti.
Mimochodem - také mám sešit a v něm asi 4 KT odkazující na stejný zdroj, který každý měsíc aktualizuji.
Protože je to jednou za měsíc, zdrojem je pojmenovaná oblast a její nastavení měním ručně (pouze přepíši číslo posledního řádku) ;)
Pokud bych to chtěl za každou cenu automaticky, také bych šel do dynamické pojmenované oblasti, nikoli do makra.citovat
Pokud bude KT (respektive u obou těchto řešení stačí kontrolovaný sloupec) obsahovat prázdný řádek (neměla by, ale může) - nebude fungovat správně
Takže na to buď musí uživatel myslet (buď v hlavě nebo si udělat jednoduchou kontrolu ;) ) nebo použít jiný vzorec pro zjištění posledního řádku v oblasti.
Mimochodem - také mám sešit a v něm asi 4 KT odkazující na stejný zdroj, který každý měsíc aktualizuji.
Protože je to jednou za měsíc, zdrojem je pojmenovaná oblast a její nastavení měním ručně (pouze přepíši číslo posledního řádku) ;)
Pokud bych to chtěl za každou cenu automaticky, také bych šel do dynamické pojmenované oblasti, nikoli do makra.citovat
A ještě mimochodem takový trik, který mně teď napadl
Pokud je v listu nastaven Automatický filtr (což má téměř každá databáze) tak lze v české verzi využit skryté pojmenované oblasti _FiltrDatabaze (ve slovenské by to mohl být _FilterDatabase)
Ta se vytvoří stiskem tlačítka Filtr
Pokud umístíte kurzor na jednu buňku v databázi, vytvoří se Filtr pro celou spojitou oblast kolem této buňky (ve VBA ActiveCell.CurrentRegion). Sice s platností pouze pro list, ale to se dá snadno obejít.
Takže jednoduchým vykliknutím a zakliknutím tlačítka Filtr s umístěním kurzoru na buňce jste schopni téměř automaticky aktualizovat oblast - opět bez VBA
Pozn.:
Nevím, jestli bych to někdy použil, takže to berte jen jako takovou perličku na zpestření ;)
Zajímavé je, že pokud máte takto nastaven automatický filtr a přidáte položku pod poslední řádek, ve filtru vám tyto položky přibudou, nicméně _FiltrDatabaze se neaktualizuje, musíte vykliknout a zakliknout. ;)citovat
Pokud je v listu nastaven Automatický filtr (což má téměř každá databáze) tak lze v české verzi využit skryté pojmenované oblasti _FiltrDatabaze (ve slovenské by to mohl být _FilterDatabase)
Ta se vytvoří stiskem tlačítka Filtr
Pokud umístíte kurzor na jednu buňku v databázi, vytvoří se Filtr pro celou spojitou oblast kolem této buňky (ve VBA ActiveCell.CurrentRegion). Sice s platností pouze pro list, ale to se dá snadno obejít.
Takže jednoduchým vykliknutím a zakliknutím tlačítka Filtr s umístěním kurzoru na buňce jste schopni téměř automaticky aktualizovat oblast - opět bez VBA
Pozn.:
Nevím, jestli bych to někdy použil, takže to berte jen jako takovou perličku na zpestření ;)
Zajímavé je, že pokud máte takto nastaven automatický filtr a přidáte položku pod poslední řádek, ve filtru vám tyto položky přibudou, nicméně _FiltrDatabaze se neaktualizuje, musíte vykliknout a zakliknout. ;)citovat
Uživatelské menu
Nejste přihlášen(a)
\n
\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