Tak by stačilo zdrojovou tabulku naformátovat a nemusíte řešit počet řádků.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: Kontingenční tabulka zdrojová data
klikni do tabulky, ctrl-A, vložení, tabulka, nejspíš zašktrnout "tabulka obsahuje záhlaví".
Je vhodné tabulku pojmenovat a do source data vložit jméno tabulky.citovat
MS Excel
Téma: Kontingenční tabulka zdrojová data 
Zaslal/a Raders486 30.10.2020 10:11
Ahoj.
Protože mám zdrojová dat kontingenční tabulky vždy o jiném počtu řádků, potřeboval bych nahradit SourceData:= "Data!R1C1:R800C44" něčím jako první až poslední řádek na listě "Data".
Sloupce jsou neměnné vždy jsou data od sloupce A po AR.
Mohl by se na to někdo prosím podívat, děkuji?
Raders486 napsal/a:
Jde o to, že právě nevím jak
klikni do tabulky, ctrl-A, vložení, tabulka, nejspíš zašktrnout "tabulka obsahuje záhlaví".
Je vhodné tabulku pojmenovat a do source data vložit jméno tabulky.citovat
Ahoj a děkuji za snahu pomoci mi.
V příloze tabulka s daty a tady zadání, snad je to srozumitelné.
Už jsem se to pokoušel obejít několika způsoby, ale vždy marně.
Snažil jsme se využít návod zde, ale návod je nedodělaný.
https://office.lasakovi.com/excel/VBA-kontingencni-tabulka/excel-vba-kontingencni-tabulka/
'nové kontingenční tabulka musí být umístěná v listě Celkem!R3C1
'nahráno přes záznam maker, potřebuji definovat oblast zdrojových dat tak, aby brala jen obsazené buňky z listu "Data"
'kód následně pokračuje a pokud je v kontingenční tabulce ve sloupci "A" buňka prázdná tak s tím mám problém
'toto potřebuji nahradit Data!R1C1:R800C44
Děkuji moc
V příloze tabulka s daty a tady zadání, snad je to srozumitelné.
Už jsem se to pokoušel obejít několika způsoby, ale vždy marně.
Snažil jsme se využít návod zde, ale návod je nedodělaný.
https://office.lasakovi.com/excel/VBA-kontingencni-tabulka/excel-vba-kontingencni-tabulka/
'nové kontingenční tabulka musí být umístěná v listě Celkem!R3C1
'nahráno přes záznam maker, potřebuji definovat oblast zdrojových dat tak, aby brala jen obsazené buňky z listu "Data"
'kód následně pokračuje a pokud je v kontingenční tabulce ve sloupci "A" buňka prázdná tak s tím mám problém
'toto potřebuji nahradit Data!R1C1:R800C44
Děkuji moc
Příloha: 
48734_reklamace-a-neshody-po-resitelich.rar (228kB, staženo 20x)
citovat48734_reklamace-a-neshody-po-resitelich.rar (228kB, staženo 20x)Pouze jsem Vám naformátoval tabulku.
Když se podíváte do zdroje KT je tam Tabulka1 a né Range("Bla:Bla").
Když se podíváte do zdroje KT je tam Tabulka1 a né Range("Bla:Bla").
Příloha: 48735_reklamace-a-neshody-po-resitelich.zip (228kB, staženo 21x)
citovat48735_reklamace-a-neshody-po-resitelich.zip (228kB, staženo 21x)Do toho Vašeho makra jsem nezasahoval a ani nevím na co ho máte, ale pokud je to na aktualizaci KT tak by Vám možná stačilo pouze toto:
Sub Aktualizace()
ActiveWorkbook.RefreshAll
End Subcitovat
Sub Aktualizace()
ActiveWorkbook.RefreshAll
End Subcitovat
Princip makra:
Z ERP vyexportovat nová data
Smazat stávající kont. tabulku
Vytvořit novou kont. tabulku
Pokud je v kont. tabulce nějaká osoba, tak pro každou osobu vytvořit list, překopírovat data spjatá s tímto jménem a vytvořit ještě souhrn
K výše uvedenému potřebuji makro.
Vzhledem k tomu, že se tato procedura dělá každý pátek a normálně trvá asistentce cca 2 hodiny je to ideální případ proč k tomuto vytvořit makro.
Vyzkoušel jsem poslední uvedený kód aktualizace, ale nic se nestalo.
Celé makro mám hotové, jediná věc která mi nejde je aby se kontingenční tabulka tvořila pouze z obsazených buněk a nevytvářela prázdný řádek.
I tak všem děkuji za ochotu a snahu.citovat
Z ERP vyexportovat nová data
Smazat stávající kont. tabulku
Vytvořit novou kont. tabulku
Pokud je v kont. tabulce nějaká osoba, tak pro každou osobu vytvořit list, překopírovat data spjatá s tímto jménem a vytvořit ještě souhrn
K výše uvedenému potřebuji makro.
Vzhledem k tomu, že se tato procedura dělá každý pátek a normálně trvá asistentce cca 2 hodiny je to ideální případ proč k tomuto vytvořit makro.
Vyzkoušel jsem poslední uvedený kód aktualizace, ale nic se nestalo.
Celé makro mám hotové, jediná věc která mi nejde je aby se kontingenční tabulka tvořila pouze z obsazených buněk a nevytvářela prázdný řádek.
I tak všem děkuji za ochotu a snahu.citovat
Ale proč mažete KT? Vždyť stačí smazat data v Tabulce1.
Nechci Vám předělávat celou tabulku kvůli tomu.
Tak zkuste nejprve tohle:
Dim Radek As Long
Radek = Sheets("Data").Cells(Rows.Count, 1).End(xlUp).Row
SourceData:= "Data!A1:AR" & Radekcitovat
Nechci Vám předělávat celou tabulku kvůli tomu.
Tak zkuste nejprve tohle:
Dim Radek As Long
Radek = Sheets("Data").Cells(Rows.Count, 1).End(xlUp).Row
SourceData:= "Data!A1:AR" & Radekcitovat
Přidám se k lugrovi.
Na listě Data máte data, které vám lugr naformátoval jako Tabulku a je pojmenovaná Tabulka1. V KT si jako zdrojová data nenastavíte rozsah buněk A1:AR581, ale jako zdrojová data napíšete Tabulka1 (to už lugr udělal).
Kdykoliv přidáte na konec Tabulky řádek, bude s tím pracovat i KT.
Postup pro asistentku:
1. upraví co je potřeba v datech na listě Data.
2. přepne se na KT
3. klikne na ni pravým tlačítkem myši a vybere z nabídky položku Obnovit
4. Pokud tam budou prázdné řádky, tak je může ručně odfiltrovat
Pozn. Body 3 a 4 nezaberou víc jak minutu.
5. Spustí makro, které vytvoří listy a nakopíruje do nich data.
Opravdu se nemusí mazat KT a vytvářet nová.citovat
Na listě Data máte data, které vám lugr naformátoval jako Tabulku a je pojmenovaná Tabulka1. V KT si jako zdrojová data nenastavíte rozsah buněk A1:AR581, ale jako zdrojová data napíšete Tabulka1 (to už lugr udělal).
Kdykoliv přidáte na konec Tabulky řádek, bude s tím pracovat i KT.
Postup pro asistentku:
1. upraví co je potřeba v datech na listě Data.
2. přepne se na KT
3. klikne na ni pravým tlačítkem myši a vybere z nabídky položku Obnovit
4. Pokud tam budou prázdné řádky, tak je může ručně odfiltrovat
Pozn. Body 3 a 4 nezaberou víc jak minutu.
5. Spustí makro, které vytvoří listy a nakopíruje do nich data.
Opravdu se nemusí mazat KT a vytvářet nová.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