BVD
Rob
Je kan hier even de macrorecorder voor gebruiken.
Luc
"Rob" <p...@hotmail.com> schreef in bericht
news:95b4a19chfqk5juf3...@4ax.com...
Luc,
Ik zie geen optie bij de macrorecroder m.b.t. het verversen van alle
draaitabellen in één keer?
Ik zie alleen macro uitvoeren of opnemen.
Kan je aangeven hoe ik de macrorecorder kan gebruiken voor het
verversen van de draaitabellen?
BVD
Rob
Macro recorder starten:
Draaitabel verversen
Macrorecorder stoppen.
Je hebt nu een macro opgenomen waarmee je draaitabellen kunt verversen
deze is terug te vinden door ALT + F11 en daar te kijken onder de modules.
J-P
JP bedankt voor je reactie, maar
dan kan ik net zo goed in de gegevens van de draaitabel gaan staan en
op verversen klikken, dat is hetzelfde aantal handelingen denk ik.
Ik zoek een optie dat ik niet eerst alle sheets langs moet om
draaitabellen te verversen.
Het gaat om 4 sheets, waarop twee draaitabellen staan, dus moet ik 8
keer verversen, het zou mooi zijn als dat in één keer kon, ook vanwege
het feit dat het kan zijn dat ik er eentje vergeet te verversen.
Rob
Toch maar macro opnemen... maar terwijl de recorder loopt, ga jij al je
draaitabellen af, en je ververst ze één voor één.
Luc
"Rob" <p...@hotmail.com> schreef in bericht
news:epn5a19ig20u64rq6...@4ax.com...
dim pivC as pivotcache
for each pivC in thisworkbook.pivotcaches
pivC.refresh
next
--
keepITcool
| www.XLsupport.com | keepITcool chello nl | amsterdam
Rob wrote :
>
>ZO zal ie t nooit opnemen
>maar neem van mij aan dat t de snelste methode is.
>
>
>dim pivC as pivotcache
>
>for each pivC in thisworkbook.pivotcaches
> pivC.refresh
>next
Heb geen idee hoe je dat opstart
Rob
>Hoi Rob,
>
>Toch maar macro opnemen... maar terwijl de recorder loopt, ga jij al je
>draaitabellen af, en je ververst ze één voor één.
>
>Luc
Ok heb ik uitgeprobeerd, werkt naar tevredenheid!
Dank u!
Rob
>rob,
>via alt + f11 kom je terug in de vba editor. Je had eerder al een module 1
>geopend. Selecteer deze en type
>sub DraaitabelVerversen ()
>(er wordt automatisch een End Sub toegevoegd.)
>Zet de code hiertussen, gewoon knippen en plakken of typen.
>Sluit de editor. Terug in excel voeg je een knop toe aan de werkbalk welke
>je verbindt met deze macro.
>
>
Werkt als een speer, gaaf!
Dank je wel
(ook keepITcool uiteraard)
Rob
>"Rob" schreef:
Bijv:
Sub Verversen()
..de 4 regeltjes
End Sub
In je personal.xls
maar dan moet je Thisworkbook vervangen door activeworkbook
--
keepITcool
| www.XLsupport.com | keepITcool chello nl | amsterdam
Rob wrote :
> On Sun, 05 Jun 2005 05:18:45 -0700, "keepITcool"
Heel belangrijke toevoeging die laatste zin:-)
Ik denk ik zal het even op mijn werk proberen, maar dat
werkte dus niet. Na jou opmerking over Thisworkbook
vervangen door activeworkbook, werkt het weer.
Dank je!
Rob
>--
>keepITcool
>| www.XLsupport.com | keepITcool chello nl | amsterdam
>
>
>Rob wrote :
>
>> On Sun, 05 Jun 2005 05:18:45 -0700, "keepITcool"
>> <xrrcv...@puryyb.ay> wrote:
>>
>> >
>> > ZO zal ie t nooit opnemen
>> > maar neem van mij aan dat t de snelste methode is.
>> >
>> >
>> > dim pivC as pivotcache
>> >
>> > for each pivC in thisworkbook.pivotcaches
>> > pivC.refresh
>> > next
>>
>> Heb geen idee hoe je dat opstart
>> Rob
>.
>
>
>zoiets opstarten?
>door ze in een procedure te kopieren...
>In het boek met de macro's
>
>Bijv:
>Sub Verversen()
>..de 4 regeltjes
>End Sub
>
>In je personal.xls
>maar dan moet je Thisworkbook vervangen door activeworkbook
Ik maak ook gebruik van een excel sheet die gekoppeld is aan een
access tabel. Deze sheet wordt niet ververst door bovenstaande
oplossing.
Waar heeft dat mee te maken? Omdat het aan access gelinkt is?
Rob
wanneer de pivot DIRECT is gebaseerd op een
een externe query moet m.i. het verversen van de cache genoeg zijn.
wanneer je een aparte sheet hebt met daar een QUERY en de pivot is
gebaseerd op het bereik v/d query, moet je (bijna uiteraard)
EERST de query verversen voordat het updaten van de cache tot
resultaten zal leiden.
--
keepITcool
| www.XLsupport.com | keepITcool chello nl | amsterdam
Rob wrote :
> On Sun, 05 Jun 2005 20:13:22 -0700, "keepITcool"