KontTab aktualizace
Napsal: 01 čer 2012 13:33
Ahoj, mám kontingenční tabulku, kterou potřebuji aktualizovat v okamžiku změny provedené v buňce v dané oblasti (průniku).
Pokusil jsem se napsat nějaké varianty maker. Při vyvolání změny v listě, dochází k zacyklení.
První varianta:
Druhá varianta (vzor z ozgrid.com)
Makro AktualizaceKonTab v modulu:
Pokusil jsem se napsat nějaké varianty maker. Při vyvolání změny v listě, dochází k zacyklení.
První varianta:
Kód: Vybrat vše
Private Sub Worksheet_Change(ByVal Target As Range)
Dim OblastSledovat As Range 'Aktivní buňka
Dim TabSlpJ As Range 'Sloupec v tabulce, v kterém se můžou měnit hodnoty
Set OblastSledovat = ActiveCell 'Aktivní buňka
Set TabSlpJ = Sheets("DetailProjektu").Range("SledovatJ")
' aktualizace KontTab
'-------------------------
If Not Intersect(OblastSledovat, TabSlpJ) Is Nothing Then Sheets("DetailProjektu").PivotTables("ptDetailProjektu").PivotCache.RefreshDruhá varianta (vzor z ozgrid.com)
Kód: Vybrat vše
'Private Sub Worksheet_Activate()
' Call AktualizaceKonTab
'End SubMakro AktualizaceKonTab v modulu:
Kód: Vybrat vše
Sub AktualizaceKonTab()
Dim pt As PivotTable
Set pt = ActiveSheet.PivotTables("ptDetailProjektu")
pt.RefreshTable
End Sub