Makro na kontingenční tabulku

[Alda555]

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

[birgis]

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