Grafiek met verloop

[zjiliber]

Ha allen,

Voor een management rapportage ben ik bezig met een grafiek. In deze grafiek moet een verloop zichtbaar worden van het aantal calls dat wordt gemeld. Het meetpunt zal dagelijks(grafiek calls per week) en wekelijks(grafiek calls per jaar) moeten worden in gevoerd.
De data die hiervoor nodig is wordt d.m.v. van een webquery geimporteerd en staat (als getal) in een vaste cel.
Mijn wens is dus dat er dagelijks (eenmaal) en wekelijks (eenmaal) een getal uit een cel moet worden opgeslagen en dat deze samen met de getallen van eerdere metingen een verloop vormen in de grafiek.

Kan iemand mij helpen?
Alvast bedankt!

 

[Wigi]

Komt dit in de buurt van wat je wilt hebben?

Wigi

 

[zjiliber]

Komt dit in de buurt van wat je wilt hebben?

Helaas snap ik er nog niet zoveel van...
Kan iemand mij verder helpen??
Bijvoorbaad dank!

 

[Wigi]

Kan iemand mij verder helpen??

Met zo weinig info zal dat lastig worden vrees ik.

 

[zjiliber]

Met zo weinig info zal dat lastig worden vrees ik.

Welke informatie heb je nog meer nodig dan??
Ik geef het je graag...

 

[Wigi]

Welke informatie heb je nog meer nodig dan??
Ik geef het je graag...

Een voorbeeldbestandje als het kan en als de problemen met uploaden hier van de baan zijn. Geef duidelijk aan hoe je het zou willen.

 

[zjiliber]

Nu ik weer kan uploaden, hier het voorbeeld bestand.
De uitleg staat in het bijgevoegde bestand.

Alvast bedankt voor de moeite!

 

[zjiliber]

Heeft iemand een idee??
Ik zou er zeer mee geholpen zijn...

 

[zjiliber]

Ik ben benieuwd of iemand dit gaat lukken...
Alvast bedankt!!

 

[Wigi]

Test deze code eens uit voor het aantal calls per week.

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Count > 1 Then Exit Sub
    If Target.Address = "$C$10" Then Range("H9").Offset(WorksheetFunction.Weekday(Date, 2)) = Target
End Sub

Code komt achter het gebruikte tabblad te staan.

Wigi

 

[Wigi]

Ik heb ook nog wat geschreven voor de calls per jaar. Deze worden bijgehouden in kolom B (pas aan indien gewenst). Maak er zelf nog een grafiek voor.

Dit wordt dan de volledige code. Achter het gebruikte werkblad:

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim weeknummer As Integer
    If Target.Count > 1 Then Exit Sub
    If Target.Address = "$C$10" Then
        Range("H9").Offset(WorksheetFunction.WeekDay(Date, 2)) = Target
        weeknummer = ISOWeekNum(Date)
        With Range("A" & weeknummer)
            .Value = "week " & weeknummer
            .Offset(, 1) = .Offset(, 1) + Target
        End With
    End If
End Sub

In een Module:

Function ISOWeekNum(AnyDate As Date) As Integer
'Source: http://www.cpearson.com/excel/weeknum.htm

Dim ThisYear As Integer
Dim PreviousYearStart As Date
Dim ThisYearStart As Date
Dim NextYearStart As Date
Dim YearNum As Integer

ThisYear = Year(AnyDate)
ThisYearStart = YearStart(ThisYear)
PreviousYearStart = YearStart(ThisYear - 1)
NextYearStart = YearStart(ThisYear + 1)
Select Case AnyDate
    Case Is >= NextYearStart
        ISOWeekNum = (AnyDate - NextYearStart) \ 7 + 1
        YearNum = Year(AnyDate) + 1
    Case Is < ThisYearStart
        ISOWeekNum = (AnyDate - PreviousYearStart) \ 7 + 1
        YearNum = Year(AnyDate) - 1
    Case Else
        ISOWeekNum = (AnyDate - ThisYearStart) \ 7 + 1
        YearNum = Year(AnyDate)
End Select

End Function

Function YearStart(WhichYear As Integer) As Date
'Source: http://www.cpearson.com/excel/weeknum.htm

Dim WeekDay As Integer
Dim NewYear As Date

NewYear = DateSerial(WhichYear, 1, 1)
WeekDay = (NewYear - 2) Mod 7
If WeekDay < 4 Then
    YearStart = NewYear - WeekDay
Else
    YearStart = NewYear - WeekDay + 7
End If

End Function

Lukt het?

Wigi