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

MS Excel

Téma: Aktualizace Konting.tabulky přes VBA

Zaslal/a €Ł мσşqμΐτσ 17.8.2016 13:44

Ahoj

už delší dobu se snažím vyřešit problém s aktualizací kontingenčních tabulek pomocí VBA.
Problém spočívá v tom, že po aktualizaci makrem, (viz níže) se v průřezu ztratí výběr jedné z tabulek.

Průřez před aktualizací:


Makro:
Dim oblt As Range
Dim pt As PivotTable
Dim oblast As String

Set oblt = Data.Range("A1").CurrentRegion
oblast = Data.Name & "!" & oblt.Address(ReferenceStyle:=xlR1C1)

For Each pt In Sheets("Tables").PivotTables
pt.ChangePivotCache ActiveWorkbook.PivotCaches.Create(SourceType:=xlDatabase, SourceData:=oblast)
pt.RefreshTable
Next pt
Set oblt = Nothing

Průřez po aktualizaci:


Ale až když aktualizuji manuálně (Nástroje kontingenční tabulky => Možnosti => Změnit zdroj dat = > Změnit zdroj dat…) obě tabulky, tak se v průřezu ukážou zase obě tabulky.

Za každou radu budu vděčný.

Děkuji

MS

Zaslat odpověď >

---

Strana:  « předchozí  1 2

€Ł мσşqμΐτσ(23.8.2016 12:14)#032399

eLCHa napsal/a:

Co myslíte změnou?
Změnou dat - mně to funguje
Změna oblasti - musíte pořešit nebo nejlépe převeďte na tabulku (Vložení - Tabulka) a starat se o to nemusíte

tak tohle jsem potřeboval

Tisíc krát díky. Teď to funguje přesně jak má.

Ještě jednou díky citovat

eLCHa(23.8.2016 13:07)#032402

mno, on už to napsal přede mnou lubo ;))

a když se trošku zasoustředím - tak ten váš kód ještě trochu zredukuji ;))
Sub PChartsRefresh()
Sheets("KT-G").PivotTables(1).PivotCache.Refresh
End Sub

v podstatě bych ho vymazal úplně - pokud to není součást jiného většího projektu ;))citovat

€Ł мσşqμΐτσ(24.8.2016 8:18)#032417

eLCHa napsal/a:

mno, on už to napsal přede mnou lubo ;))

a když se trošku zasoustředím - tak ten váš kód ještě trochu zredukuji ;))
Sub PChartsRefresh()
Sheets("KT-G").PivotTables(1).PivotCache.Refresh
End Sub

v podstatě bych ho vymazal úplně - pokud to není součást jiného většího projektu ;))

jj ted je to luxusní. Nemusím už nijak dál řešit průřezi.
Děkuji Vam všem ještě jednou, konečne se můžu pohnout po třech týdnech dál citovat

Strana:  « předchozí  1 2

Uživatelské menu

Nejste přihlášen(a)

• přihlásit
• registrace

\n

Menu

On-line nástroje

Formulář Faktura

Aktivní diskuse