• Úvod
• Excel návod
• Excel šablony
• Nástěnka
• Mobility
• Tipy na výlet
• Galerie
• Fórum

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

Jméno
Kontrola
Text
	Ukázka

---

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)

• přihlásit
• registrace

\n

Menu

On-line nástroje

Formulář Faktura

Aktivní diskuse