GoldenLine
Zaloguj się
Maciej Czernikowski

Maciej Czernikowski Analityk Biznesowy,

Temat: VBA filtry w tabeli przestawnej

Witam wszystkich,
Nie korzystam często w VBA i mam dość spory problem w raporcie w exelu:

Jak w vba wygląda kod który uaktywnia się przy zmianie tabeli przestawnej w danym arkuszu i na podstawie filtu aktywnej tabeli zmienia wartości we wszystkich tabelach.

Mam exela 2007 więc tylko makro mi zostaje...
Link do wypowiedziLink
Oskar Shon

Oskar Shon Dodatki do Office
www.VBATools.pl

Temat: VBA filtry w tabeli przestawnej

Jeśli tabele nie są połączone, to będziesz musiał sprawdzić czy we wszystkich tabelach dane użyte we filtrze występuje. Jeśli nie, zastąpisz dane innymi, co spowoduje małe zamieszanie.
To core z przykładem wystąpień filtra Ludzie w TP:

Dim tp As PivotTable, pole As PivotField, el As PivotItem, tb$

Set tp = Sheets("Arkusz1").PivotTables("Tabela1")

Set pole = tp.PageFields("Ludzie")

For Each el In pole.PivotItems

    If el.name = "(blank)" Then Exit For

    tb = tb & el.name & ","

Next

MsgBox tb


Pobierasz dane do interfejsu po czym wybierasz dane do aktualizacji filtra TP.
Więcej art na VBATools.pl
Link do wypowiedziLink
« Wróć do tematów
Odpowiedz

Podobne tematy


Następna dyskusja:

VBA - filtrowanie tabeli pr...




Wyślij zaproszenie do
Anuluj