Problem med sum

Hvis du nu skrev ugenunner i alle rækker, kan denne trækkes.

=SUMPRODUKT((A2:A22=E2)*C2:C22)

22 skal selvfølgelig være den sidste række med data i

Tak, men det virker desværre ikke i det eksempel, jeg har uploadet.

Her er en mulighed, men den kræver at du opretter en hjælpekolonne med ugenumrene i. I eksemplet er dettte gjort i G-kolonnen, så der i G1 står 1,v G2 står 2 og så fremdeles op til 53.

Formlen nedenfor beregner salget pr. uge. Denne formel skal stå i F2 og kan kopieres nedad uden problemer. Husk at rette referencerne, hvis du udvider området.

=SUM(INDIREKTE(ADRESSE(SAMMENLIGN(G1;$A$1:$A$22);3)):INDIREKTE(ADRESSE(SAMMENLIGN(G2;$A$1:$A$22)-1;3)))

indsæt i F2 og træk ned

=SUM(INDIREKTE("C"&RÆKKE(2:2)*7-12&":C"&RÆKKE(2:2)*7-6))

Rent praktisk finder den adressen på celle i C-kolonnen, hvior der fx står1 i A-kolonnen. Desuden finder den adressen på den celle i C-kolonnen, lige over den række, hvor der i A- kolonnen står 2. Den tager så summen af c-kolonnen mellem disse to celler.

Her er en brugerdefineret funktion der gør det.
den skal ligge i et modul, samme sted som dine makroer gør.

Public Function Ugesum(Uge, Ugeområde As Range, Sumområde As Range) As Double
    Dim Data As Variant, Data2 As Variant, Summering As Boolean
    Dim MinSum As Double
    Data = Ugeområde
    Data2 = Sumområde
    For i = 1 To UBound(Data)
        If Data(i, 1) = Uge Then Summering = True
        If Data(i, 1) > Uge Then
            Summering = False
            Exit Function
        End If
        If Summering Then
            Ugesum = Ugesum + Data2(i, 1)
        End If
    Next
End Function


kaldes med

=Ugesum(E2;$A$2:$A$22;$C$2:$C$22)

excelent > Det virkede perfekt! Smid et svar ;)

ok