draaitabel met verschillende tabellen in verschillende files

[Marij84]

Hoi

Ik heb een probleempje en ben al een tijdje op zoek naar een oplossing.

Ik heb 4 Excel files met telkens een tabel in
Die tabellen zouden tot 1 grote draaitabel moeten omgezet worden.
Ik heb alle tabellen van dezelfde koppen voorzien
Maar het resultaat is niet wat we willen.

De bedoeling is de volgende:
Om een overzicht te krijgen van welke chauffeur er bv het afgelopen jaar
1) hoeveel boetes heeft gehad
2) hoeveel agressie meldingen heeft gehad
3) hoeveel ongevallen die heeft gehad
4) hoeveel PV's die heeft gehad

voor 1 tabel werkt zo'n draaitabel, maar voor meedere precies niet.
heeft er iemand een beter idee dan een draaitabel? of is het toch mogelijk met een draaitabel?

zit volledig met m'n handen in het haar :s


alvast bedankt
mvg

 

[Niels28]

Lees alle tabellen in in 1 tabel en maak daar een draaitabel van.

Niels

 

[Marij84]

Bedankt voor je snelle reactie Niels

het lastige is... dat deze gegevens heel het jaar door aangevuld worden.
dus de tabel waar alle gegevens in komen te staan dan, zou op 1 of andere manier telkens geupdate moeten worden.
zou dat mogelijk zijn? of moet ik dan telkens die grote tabel opnieuw maken vooraleer ik de draaitabel kan updaten?

mvg

 

[Niels28]

Dat is mogelijk met een macro, ik kan je er op dit moment niet mee helpen
maar er staan voorbeelden genoeg op de site.

Niels

 

[Marij84]

geen probleem hoor
je bent al een hele grote hulp geweest momenteel

voor de macro's zal ik wel rondkijken
:thumb:

 

[Niels28]

Toch even snel iets in elkaar geflanst.
Zet volgend bestand in een map samen met de andere 4 bestanden
en druk op de knop
Een draaitabel zal daarna wel lukken ;-)

Bekijk bijlage Totaal draaitabel.xlsm

Niels

 

[Marij84]

dank je wel!!!

 

[Marij84]

oei krijg wel een foutmelding als ik die macro wil uitvoeren.

 

[Niels28]

Staat het bestand met de macro in dezelfde map als de bestanden uit post 1?

Niels

 

[Marij84]

ik heb alle bestanden in 1 nieuwe map geplaatst samen met het macro-bestand
zodat alles mooi bij elkaar staat.
want daarvoor stonden alle bestanden verspreid in verschillende mappen op verschillende schijven :s

mvg

 

[Niels28]

Dan zou het moeten werken.
zie bijlage, pak het zip-bestand uit en sla deze ergen op,
open het bestand totaal draaitabel die in deze map staat en druk op de knop


Bekijk bijlage test inlezen tabel.rar



Niels

 

[Marij84]

het werkt
:thumb:
dank u

 

[Marij84]

nog 1 dingetje

is het eigelijk echt belangrijk dat alle koppen van de tabellen hetzelfde zijn?
of is dat niet nodig? want momenteel heb ik nu in elke tabel veel lege cellen.
vroeg me af of ik die kon verwijderen of niet...

 

[Niels28]

Voor je volgorde is dat wel belangrijk, de naam van de chauffeur moet altijd in dezelfde kolom staan anders werkt je draaitabel niet.
Je zou de andere kolommen kunnen verbergen.

Graag de vraag op opgelost zetten als deze is opgelost.


Niels

 

[Marij84]

ok

 

[Marij84]

sorry dat ik jullie nog eens moet lastigvallen

maar heb nog een vervolgvraag op hierboven

er zou een excelfile in de macro bij ingepland moeten worden

ik heb de naam van het extra bestand mee in de macro ingegeven, maar hij leest dat extra excelbestand niet...
ik zie de fout niet

hieronder de macro die je me reeds had gegeven en het bestand "Klachten iso9002-2009" zou eraan toegevoegd moeten worden.
ik dacht dat als ik die naam er mee inzet, dat dat voldoende zou zijn...maar blijkbaar niet :s

kan jij me helpen waar ik fout zit? (dan leer ik zelf ook nog eens iets bij )


Sub inlezen()
sq = Array("ongevallen 2013", "boetes PV", "boetes de lijn", "agressie", "Klachten iso9002-2009")
Lrow1 = ThisWorkbook.Sheets(1).Cells(Rows.Count, 1).End(xlUp).Row
ThisWorkbook.Sheets(1).Range("A2").Resize(Lrow1, 11).ClearContents
For i = 0 To 3
With Workbooks.Open(ThisWorkbook.Path & "\" & sq(i) & ".xlsx")
lrow = .Sheets(1).Cells(Rows.Count, 2).End(xlUp).Row
Lrow1 = ThisWorkbook.Sheets(1).Cells(Rows.Count, 1).End(xlUp).Row
ThisWorkbook.Sheets(1).Range("a" & Lrow1 + 1).Resize(lrow - 1, 11).Value = .Sheets(1).Range("a2").Resize(lrow - 1, 11).Value
.Close
End With
Next

End Sub

alvast bedankt

mvg

 

[Niels28]

ik dacht dat als ik die naam er mee inzet, dat dat voldoende zou zijn...

Klopt helemaal maar...
Is het een xlsx bestand?
staat hij in de juiste map?
Is de naam goed gespeld?

Niels

 

[Marij84]

sorry, had eventjes wat verder moeten kijken dan mijn neus lang was
For i = 0 To 3 --> moest 4 zijn
want extentie enz staat juist en alles in dezelfde map.

toch bedankt om eventjes mee te denken

mvg