Sum over periode

hvad mener du ???

Sub sumDeSidste4dage()
    Dim dato As Date
    Dim dato4 As Date
   
    Dim sum As Double
   
    For i = 0 To 13
        sum = 0
        dato = Cells(1 + i, 1)
        dato4 = dato - 4
        For j = 0 To 13
        If Cells(1 + j, 1) <= dato And Cells(1 + j, 1) >= dato4 Then
            sum = sum + Cells(1 + j, 2)
        End If
        Next j
        Cells(1 + i, 5) = sum
       
    Next i
End Sub

Med huller mener jeg at ikke alle datoer er med.
Den sum der står nu er bare for at vise hvad resultatet skal være.
dvs. summen ved 4-4-01 er 100 da der 1-4 er solgt 0, 2-4 solgt 0, 3-4 solgt 100 og 4-4 solgt 0.
summen ved 8-4 er 0 da der 5-4, 6-4, 7-4 og 8-4 ikke solgt noget.
Håber det blev lidt klarere.
simony > jeg kigger lige på dit senere i aften, men umiddelbart tegner det rigtigt.

Hej BAK

Hvis du vil spare lidt på tiden, da kan du ændre FOR j - løkken til kun at gå til i stedet for det sidste tal. Dvs.

Sub sumDeSidste4dage()
    Dim dato As Date
    Dim dato4 As Date
   
    Dim sum As Double
   
    For i = 0 To 13
        sum = 0
        dato = Cells(1 + i, 1)
        dato4 = dato - 4
        For j = 0 To i
        If Cells(1 + j, 1) <= dato And Cells(1 + j, 1) >= dato4 Then
            sum = sum + Cells(1 + j, 2)
        End If
        Next j
        Cells(1 + i, 6) = sum
       
    Next i
End Sub

Der er også denne model. Så slipper du for at checke alle dine celler. Jeg går ud fra at der ikke findes flere rækker med samme dato.

Sub sumII()
    Dim dato As Date
    Dim dato4 As Date
   
    Dim sum As Double
   
    For i = 0 To 13
        sum = 0
        dato = Cells(1 + i, 1)
        dato4 = dato - 4
        If i > 3 Then
            For j = i - 4 To i
                If Cells(1 + j, 1) <= dato And Cells(1 + j, 1) >= dato4 Then
                    sum = sum + Cells(1 + j, 2)
                End If
            Next j
        Else
            For j = 0 To i
                If Cells(1 + j, 1) <= dato And Cells(1 + j, 1) >= dato4 Then
                    sum = sum + Cells(1 + j, 2)
                End If
            Next j
        End If
        Cells(1 + i, 8) = sum
       
    Next i
End Sub

Ok Lars, flot, Det virker med et par justeringer.
(jeg har overskrifter med). Du er sikret dine velfortjente point, men jeg lader lige spm. stå åbent til imorgen

Hvorfor svare på sit eget spm :-) , jeg ville jo bare have kommenteret

>>>bak

Nu skriver du jo ikke noget om, at løsningen nødvendigvis skal være VBA. Det kan faktisk godt lade sig gøre uden v.h.a. følgende array-formel:

=SUM( ($A$2:$A$14<=A2) * ($A$2:$A$14>=A2-3) *  $B$2:$B$14)

Yeeess Jan. Det virker også rigtig godt.
hent lidt point her
http://www.eksperten.dk/spm/135577