PC-HELP.CZ

Dobrý den,

prosím Vás o pomoc s makrem na tvorbu kontingenční tabulky. Mám tento jednoduchý kód:

ActiveWorkbook.PivotCaches.Create(SourceType:=xlDatabase, SourceData:= _
"Zdroj!R10C1:R50000C10", Version:=xlPivotTableVersion14).CreatePivotTable _
TableDestination:="List13!R3C1", TableName:="Kontingenční tabulka 1", _
DefaultVersion:=xlPivotTableVersion14

Problém je, že makro vybere data pouze v dané oblasti. Bohužel při tvorbě kontingenčky se mně mění počet řádků, ze kterých se má vytvořit. Potřeboval bych prosím upravit makro tak, aby mně připravilo kontingenčku vždy ze všech dat.

Děkuji Vám za pomoc!

Alda

Dobrý den,
proč nedáte soubor s příkladem?

Kód: Vybrat vše

ActiveWorkbook.PivotCaches.Create(SourceType:=xlDatabase, SourceData:= _
"Zdroj!R10C1:R" & Sheets("Zdroj").Cells(Rows.Count, "A").End(xlUp).Row & "C10", Version:=xlPivotTableVersion14).CreatePivotTable _
TableDestination:="List2!R3C1", TableName:="Kontingenční tabulka 1", _
DefaultVersion:=xlPivotTableVersion14

Nebo můžete Zdroj vložit do tabulky a pak se odkazovat na jméno tabulky

PC-HELP.CZ

Makro na kontingenční tabulku

Makro na kontingenční tabulku

Re: Makro na kontingenční tabulku