Vzoreček na počítání zbylé volné plochy v regálu

[cmuch]

Pokud bude pod listem1, tak bude vypadat takto:

Kód: Vybrat vše

Private Sub Worksheet_Change(ByVal Target As Range)

Application.EnableEvents = False

Sheets("List2").PivotTables("Kontingenční tabulka 2").PivotCache.Refresh

Application.EnableEvents = True

End Sub

Pokud pod listem2 , tak takto:

Kód: Vybrat vše

Private Sub Worksheet_Activate()

Application.EnableEvents = False

ActiveSheet.PivotTables("Kontingenční tabulka 2").PivotCache.Refresh

Application.EnableEvents = True

End Sub


Ale možností je i více jak to zapsat.

[Reklama]

[david.dda]

Zkoušel jsem ve VBA obě varianty Vašich kódů, ale ani u jednoho se kont. tabulka na listu2 po novém zápisu na list1 nezměnila. Nevím, jestli jsem něco neudělal špatně. Zkusil by jste prosím zkopírovat kont. tabulku z mého příkladu na list2 a ve VBA vložit do listu1 Vaš kód a napsal mi, jestli Vám to fungovalo, děkuji moc:

Private Sub Worksheet_Change(ByVal Target As Range)

Application.EnableEvents = False

Sheets("List2").PivotTables("Kontingenční tabulka 2").PivotCache.Refresh

Application.EnableEvents = True

End Sub

[cmuch]

Tady je ten vzorový sešit.

[david.dda]

super, díky moc. Zkusím to zítra převést na tu moji originální tabulku, snad to tam bude po úpravách názvů také fungovat.