• Privacywetgeving
    Het is bij Helpmij.nl niet toegestaan om persoonsgegevens in een voorbeeld te plaatsen. Alle voorbeelden die persoonsgegevens bevatten zullen zonder opgaaf van reden verwijderd worden. In de vraag zal specifiek vermeld moeten worden dat het om fictieve namen gaat.

Draaitabel onthoud filter??

Status
Niet open voor verdere reacties.
D

DJ.Funny

Gebruiker
Lid geworden
17 jan 2006
Berichten
112
Hmmmmm cryptische omschrijving maar ik bedoel het volgende:

Eerst hoe werkt mijn draaitabel, ik haal middels ODBC gegevens uit een boekhoudpakket (artikelgroep, artikelnummer, prijs & aantal op voorraad) en daarna word de draaitabel gerefreshed.

Echter als iemand voor het verversen filtert op artikelgroep. Dan is het resultaat van de draaitabel het laatst gefilterde. Echter wil ik dat hij dan weer alles weergeeft adus alle artikelgroepen.

Ik gbruik de volgende macro voor het verversen:

Code: 
For Each Worksheet In Workbook.Worksheets

    For Each pivotTable In Worksheet.PivotTables
        
        Worksheet.Unprotect Password:="dirk"
        
        pivotTable.RefreshTable
        
        pivotTable.Update
        Worksheet.Protect Password:="dirk", userinterfaceonly:=True, AllowUsingPivotTables:=True
        
        
        'check
        'MsgBox ("Ververst " & pivotTable.Name)
    
   Next
   Next

Kan ik deze macro dusdanig aanpassen dat hij een ongefilterd resultaat geeft?


Alvast bedankt!
 
voorbeeldje

Code: 
    With ActiveSheet.PivotTables("Draaitabel1").PivotFields("Merk")
    For Each PItem In .PivotItems
        PItem.Visible = True
    Next
    End With

Niels
 
Niels bedankt voor je reactie,


Zat me alleen af te vragen stel ik heb meerdere draaitabellen.

In mijn stukje VBA worden die allemaal in 1 keer ververst. Met dat stukje VBA van jou wordt alleen die ene draaitabel ververst. \

Weet iemand een stukje code waarbij alle draaitabellen worden ververst en alle filters worden geleegd?

Alvast bedankt!!
 
Sorry aangezien je zelf al een loop in je macro had zitten had ik ingeschat dat je dat zelf wel zou kunnen.
Deze loopt alles door.


Code: 
Sub test()
For Each sh In ThisWorkbook.Sheets
    For Each Ptabel In sh.PivotTables
        Ptabel.ClearAllFilters
    Next
Next
End Sub


PS je macro refreshed niet alles in 1 keer maar loopt ze ook 1 voor 1 langs, de macro om alles in 1 keer te doen heb ik je gegeven maar
daar heb je niet op gereageert.

Niels
 
Laatst bewerkt:
Status
Niet open voor verdere reacties.
Steun Ons

Nieuwste berichten

Terug
Bovenaan Onderaan