PC-HELP.CZ

ahoj,
mám zde fragment makra pro tvorbu kontingenční tabulky ve Visual Basic v Excelu. Potřebuji zaktualizovat oblast vstupních dat pro kont. tab. a potřebuji to zautomatizovat. Mám pocit, že oblast dat musí být ve formátu R1C1, ale nějak se mi to nedaří, dokážete mi někdo poradit (viz níže - problém v SourceData:=c)? Děkuji velice

Sub HOP_NŽ_ks_rizik()

Dim a, b, c As Variant


Sheets("vstupní data - systém").Activate
Range("a1", "i1").Select
Range(Selection, Selection.End(xlDown)).Select
a = Selection.Address
b = Sheets("vstupní data - systém").Name
c = "'" & b & "'" & "!" & a

ActiveWorkbook.PivotCaches.Add(SourceType:=xlDatabase, SourceData:=c).CreatePivotTable TableDestination:= _
"'[HOP 04_2009.xls]HOP_NŽ_ks_rizik'!R3C1", TableName:= _
"Kontingenční tabulka 7", DefaultVersion:=xlPivotTableVersion10

Cast kodu:

Je to mozne pripadne jeste zjednodusit:

Děkuji za zaslané, ale pořád mi nefunguje odkaz na "c" při tvrobě kontingenční tabulky:

ActiveWorkbook.PivotCaches.Add(SourceType:=xlDatabase, SourceData:= c ).CreatePivotTable TableDestination:= _
"'[HOP 04_2009.xls]HOP_NŽ_ks_rizik'!R3C1", TableName:= _
"Kontingenční tabulka 7", DefaultVersion:=xlPivotTableVersion10

děkuji za jakoukoliv pomoc

Neuvadis verzi Excelu ani cely kod pro vytvoreni kontingencni tabulky.
V Excelu 2000 nasledujici procedura je funkcni (zdroj je dva sloupce: Jm a Ks):