Grafiek van meerdere tabbladen

[Stuiver22]

Beste,

Graag zou ik een lijngrafiek maken die de waarde van cel H36 van 52 tabbladen weergeeft. Echter kan ik deze niet aanklikken.

Hoe moet ik dit doen?

 

[Stuiver22]

Ter verduidelijking hierbij een klein voorbeeld.

Ik zou graag een dashboard maken van verschillende data
-verkoop per verkoper, per week
-totale verkoop, per week
-etc.
Echter is deze op weekniveau verdeeld over verschillende tabbladen, zie de bijlage voor een kleine verduidelijking: http://www.mijnbestand.nl/Bestand-7JOQ8BK6QFTU.xls

 

[wampier]

Wat je wil kan wel. Echter is het echter iets minder eenvoudig, omdat je de data eerst zelf bij elkaar moet zoeken.

In je voorbeeld, gooi een lege grafiek op het eerste werkblad (week 1) en run de volgende macro:

Sub grafiek()

Dim jan() As Variant
Dim week() As Variant
ReDim jan(0)
ReDim week(0)

For Each tabje In Sheets
    week(UBound(week)) = tabje.Name
    jan(UBound(jan)) = tabje.Cells(1, 4).Value
    ReDim Preserve week(UBound(week) + 1)
    ReDim Preserve jan(UBound(jan) + 1)
Next tabje


With Sheets(1).ChartObjects(1).Chart
    While .SeriesCollection.Count
        .SeriesCollection(1).Delete
    Wend
    .SeriesCollection.Add (Sheets(1).Cells(1, 1))
    With .SeriesCollection(1)
        .XValues = week
        .Values = jan
    End With
    
End With

End Sub

Deze code bouwt de grafiek van "jan"

 

[Stuiver22]

Oke duidelijk, bedankt!