MS Excel

Téma: Makro na filtrování v kontingenční tabulce

Zaslal/a Tom0609 21.4.2017 13:51

Dobrý den,

prosím o pomoc s makrem na filtrování v KT. Makro mi připraví KT a já bych potřeboval, aby ve filtru, kde bude pole měsíc, vybralo makro vždy poslední měsíc podle zdrojových dat? Když jsem to zkoušel přes záznam makra (viz níže), tak vybere pokaždé ten, který je tam dán "na tvrdo", v tomto případě to byly data za celý rok 2016 :)

Děkuji.

Tom

ActiveSheet.PivotTables("Kontingenční tabulka 1").PivotFields("Měsíc"). _
ClearAllFilters
ActiveSheet.PivotTables("Kontingenční tabulka 1").PivotFields("Měsíc"). _
CurrentPage = "Prosinec"
End Sub

Zaslat odpověď >

nunus67(21.4.2017 20:06)#036140

zkuste toto:
With ActiveSheet.PivotTables("Kontingenční tabulka 1").PivotFields("Měsíc")
For i = 1 To .PivotItems.Count - 1
.PivotItems(i).Visible = False
Next i
End With
citovat

Uživatelské menu

Nejste přihlášen(a)

Formulář Faktura

Formulář Faktura IV

Oblíbený formulář Faktura byl vylepšen a rozšířen.
Více se dočtete zde.

Helios iNuvio

Používáte podnikový systém Helios iNuvio? Potřebujete pomoci se správou nebo vyvinout SQL proceduru? Více informací naleznete na stránce Helios iNuvio.