Hallo allen,
Het volgende:
Via een macro genereer ik datareeks die dagelijks ververst moet worden en ontstaat uit het samenvoegen (middels een aantal VLOOKUP-functies en berekeningen) van een 5-tal rapporten.
Daaruit wordt een draaitabel gegenereerd waarin altijd 1 vaste debiteur (inter-company orders) terugkomt in de lijst van uitstaande sales.
Ik heb getracht deze draaitabel te behouden en alleen de data te verversen in het werkboek. Maar als ik dit doe, krijg ik de melding dat de data niet te verversen is en de draaitabel niet bruikbaar is. Als oplossing laat ik de macro een nieuwe draaitabel maken.
Maar omdat ik deze vaste debiteur altijd, als enige, wil laten zien ontstaat het volgende probleem.
Bij het opnemen een normale macro opneem krijg ik de hele rij met alle debiteuren te zien:
With ActiveSheet.PivotTables("PivotTable2").PivotFields("Debtorname")
.PivotItems("Debiteur AA").Visible = False
en alle tussenliggende Debiteuren...
.PivotItems("Debiteur ZZ").Visible = False
End With
Omdat deze lijst van dag tot dag wijzigt vraag ik me af of er een slimmere methode is.
Is het b.v. mogelijk de draaitabel te behouden, de data te vervangen en de draaitabel te verversen. Of is er een andere manier om in de draaitabel deze debiteur weer te geven.
En helaas heb ik ook niets kunnen vinden op het forum wat ik kan gebruiken.
bvd
Het volgende:
Via een macro genereer ik datareeks die dagelijks ververst moet worden en ontstaat uit het samenvoegen (middels een aantal VLOOKUP-functies en berekeningen) van een 5-tal rapporten.
Daaruit wordt een draaitabel gegenereerd waarin altijd 1 vaste debiteur (inter-company orders) terugkomt in de lijst van uitstaande sales.
Ik heb getracht deze draaitabel te behouden en alleen de data te verversen in het werkboek. Maar als ik dit doe, krijg ik de melding dat de data niet te verversen is en de draaitabel niet bruikbaar is. Als oplossing laat ik de macro een nieuwe draaitabel maken.
Maar omdat ik deze vaste debiteur altijd, als enige, wil laten zien ontstaat het volgende probleem.
Bij het opnemen een normale macro opneem krijg ik de hele rij met alle debiteuren te zien:
With ActiveSheet.PivotTables("PivotTable2").PivotFields("Debtorname")
.PivotItems("Debiteur AA").Visible = False
en alle tussenliggende Debiteuren...
.PivotItems("Debiteur ZZ").Visible = False
End With
Omdat deze lijst van dag tot dag wijzigt vraag ik me af of er een slimmere methode is.
Is het b.v. mogelijk de draaitabel te behouden, de data te vervangen en de draaitabel te verversen. Of is er een andere manier om in de draaitabel deze debiteur weer te geven.
En helaas heb ik ook niets kunnen vinden op het forum wat ik kan gebruiken.
bvd
