Selectie van draaitabel in een macro

[Pascal12]

Goedemiddag,

Ik heb een macro gemaakt waarin onder andere een draaitabel zit. Mijn probleem is echter dat de data van de draaitabel per week verschilt. De ene week heb ik bijvoorbeeld 128 regels met informatie voor de draaitabel, maar een week later zou het kunnen zijn dat ik 150 regels met informatie voor de draaitabel heb. Maar in de macro die ik nu heb, blijft mijn selectie voor de draaitabel bestaan voor de 128 regels. Ik zoek eigenlijk een variabele selectie, zodat de draaitabel alle informatie meeneemt tot de eerste rij zonder informatie (lege rij).

Ik ben absoluut geen expert met VBA, maar volgens mij gaat het om dit gedeeltje van de code waar een aanpassing moet plaatsvinden

 ActiveWorkbook.PivotCaches.Create(SourceType:=xlDatabase, SourceData:= _
        "Data bewerkt!R1C1:R128C206", Version:=xlPivotTableVersion14). _
        CreatePivotTable TableDestination:="Blad1!R7C1", TableName:="Draaitabel3", _
        DefaultVersion:=xlPivotTableVersion14

Zou iemand mij hier mee kunnen helpen?

Alvast bedankt,
Pascal

 

[Elsendoorn2134]

Pascal,

De code die je wilt veranderen is de SourceData, deze staat nu op "Data bewerkt!R1C1:R128C206".
of te wel rij van rij 1 kolom 1 tot rij 128 colom 206. Als het aantal kolommen gelijk blijft kun je dit redelijk
simpel aanpassen door:

"Data bewerkt!R1C1:R" & WorksheetFunction.CountA(Worksheets("Data bewerkt").Range("A1:A20000")) & "C206"

De WorksheetFunction.CountA telt alle niet lege cellen in een range. Deze formule zou een draaitabel van alle gegevens
moeten opleveren.

Veel Succes.

 

[Pascal12]

Hoi Elsendoorn,

Bedankt voor je antwoord, deze aanpassing zorgt er inderdaad voor dat de draaitabel nu wel alle regels meenemeent! :thumb:

Gr.
Pascal

 

[Haije]

Pascal,

een andere mogelijkheid is het om van het gegevensbereik een tabel te maken en als bron van de draaitabel te verwijzen naar de tabelnaam.
Als het bereik van de tabel wijzigt, werkt dit ook door in de draaitabel.