grafiek van meerdere draaitabellen

[xmir]

Ik haal dagelijks de volgende gegevens op uit een database:
- hoeveel calls staan er open
- hoeveel dagen staan de calls open
Hieruit maak ik een draaitabel en een grafiek (zie bijlage).
Dit is het overzicht van vandaag en morgen heb ik dus weer nieuwe cijfers.
Nu wil ik een grafiek maken die een overzicht gaat geven van bijvoorbeeld een week; dus de daggegevens zodanig opslaan dat ik er een grafiek van kan maken die een weekoverzicht gaat geven. Ik kom er echter niet uit hoe ik dat kan doen. Ik dacht dat ik mogelijk meerdere draaitabellen (van verschillende dagen) in 1 grafiek zou kunnen zetten maar dat lukt niet?? De week grafiek moet overigens natuuriljk geen cirkel zijn maar gestapelde vlakken zodat de trend te zien is.

Het is een beetje lastig uit te leggen wat ik bedoel maar ik hoop dat het duidelij ik genoeg is.

Dank alvast

Bekijk bijlage vb forum.xls

 

[oeldere]

Waarschijnlijk een open deur, maar ik probeer het toch.

Ik haal dagelijks de volgende gegevens op uit een database:
- hoeveel calls staan er open
- hoeveel dagen staan de calls open

Haal uit bovenstaande database, de weekgegevens.

Heb je hier vragen of opmerkingen over, laat het gewoon even weten.

 

[xmir]

Helaas... het is steeds een momentopname aan het eind van een werkdag
Het is dus niet mogelijk om deze gegevens van meerdere dagen tegelijk op te halen.

 

[oeldere]

En met VBA de gegevens van deze bestanden samenvoegen per week en dan een draaitabel maken?

Worden de gegevens per dag opgeslagen?

 

[xmir]

De gegevens worden inderdaad per dag opgeslagen. VBA ben ik niet in thuis, kun je me op weg helpen?
In het voorbeeld wat ik stuurde kun je een zelfde soort lijst voor een nieuwe dag toevoegen, wat wijzigingen erin voor de duidelijkheid.

 

[oeldere]

Ik ben zelf ook niet zo thuis in VBA.

Ik wil in de loop van de dag nog wel kijken of ik tot een oplossing kom.

Anders even de reactie van de VBA kenners op dit forum afwachten.

Heb je hier vragen of opmerkingen over, laat het gewoon even weten.

 

[xmir]

Ok top! Bedankt alvast!

 

[oeldere]

Om een begin te maken.

Hiervoor heb ik de code van Ron de Bruin gebruikt.

Het is verstandig alle (op te halen bestanden) in dezelfde map te hebben staan.

Deze code haalt de bestanden op en copieert de reeks a1:b100 naar een nieuw bestand.

Je dient de naam van het bestandenpad in het bestand aan te passen naar jouw situatie.

Sub RDB_Copy_Sheet()
    Dim myFiles As Variant
    Dim myCountOfFiles As Long

    myCountOfFiles = Get_File_Names( _
                     MyPath:="[COLOR="#FF0000"]C:\Users\laptop\Documents\excel forum\test0502[/COLOR]", _
                     Subfolders:=False, _
                     ExtStr:="*.xl*", _
                     myReturnedFiles:=myFiles)

    If myCountOfFiles = 0 Then
        MsgBox "No files that match the ExtStr in this folder"
        Exit Sub
    End If

    Get_Sheet _
            PasteAsValues:=True, _
            SourceShName:="", _
            SourceShIndex:=1, _
            myReturnedFiles:=myFiles

End Sub

Het rode gedeelte dien je aan te passen aan jouw situatie.
Dit is de folder waar de gegevens, die opgehaald moeten worden, zijn opgeslagen.

Open het bestand => gegevensophalen (xmir).xlsm

Bovenstaande code vind je door tegelijkertijd ALT+F11 in te drukken.

Je komt dan in VBA terecht.

Aan de linkerkant zie je staan:

Get_Data_Macro

Als je op deze tekst klikt, zie je aan de rechterkant de code verschijnen.

Hier dien je bovenstaande gegevens aan te passen.

Vervolgens kun je met het kruisje VBA afsluiten.

Tenslotte kun je met de knop de macro aktiveren.

Ik heb een overzicht van de opgehaalde bestanden bijgevoegd (vb draaitabel (xmir))

Heb je hier vragen of opmerkingen over, laat het gewoon even weten.

 

[xmir]

Ik denk dat ik hiermee verder kom!! Hartstikke bedankt!!