☰

» »

Excel VBA filter vrtilne tabele

Excel VBA filter vrtilne tabele

AtaSmrk001 ::

Pozdravljeni,
Imam problem s filtriranjem vrtilne tabele. Stvar je takšna, da uporabnik s klikom na celico zažene filter vrtilen tabele. Imam pa problem z več pogoji v filtru.
Prilagam primer: 
    ActiveSheet.PivotTables("PivotTable4").PivotFields("STRM").ClearAllFilters
    ActiveSheet.PivotTables("PivotTable4").PivotFields("STRM").CurrentPage = _
        "1210" 
    ActiveSheet.PivotTables("PivotTable4").PivotFields("STRM").CurrentPage = _
        "1211"
    ActiveSheet.PivotTables("PivotTable4").PivotFields("STRM").EnableMultiplePageItems = True


Se pravi, rad bi nekako ustvaril multiple selection.

Hvala za odgovore.

AtaSmrk001 ::

Rešil problem ...
če bo kdo slučajno potreboval ..

ActiveSheet.PivotTables("PivotTable3").PivotFields("STRN").ClearAllFilters
    ActiveSheet.PivotTables("PivotTable3").PivotFields("STRM").ClearAllFilters
    For Each PivotItems In _
    ActiveSheet.PivotTables("PivotTable3").PivotFields("STRM").PivotItems
    PivotItems.Visible = True
    
    Next PivotItems
    
    For Each PivotItems In _
    ActiveSheet.PivotTables("PivotTable3").PivotFields("STRM").PivotItems
    Select Case PivotItems.Name
        Case "1210", "1211"
        PivotItems.Visible = True
        Case Else
        PivotItems.Visible = False
    End Select
    Next PivotItems


LP

Vredno ogleda ...

TemaSporočilaOglediZadnje sporočilo
TemaSporočilaOglediZadnje sporočilo
»

Updejtan win osem na deset in tezave z Excelom

Oddelek: Pomoč in nasveti		162246 (2036) Han
»

združevanje in poizvedbe

Oddelek: Programiranje		7935 (795) prozac
»

Excell - osveževanje pivot tabele

Oddelek: Programska oprema		164340 (3951) klemenSLO
»

Excel vizualizacijska orodja...

Oddelek: Programska oprema		51056 (945) Gandalfar
»

Excel - pogojno kopiranje

Oddelek: Programska oprema		72770 (2685) darkolord

Več podobnih tem