SUM cells with equal values in an adjacent column.

Use this in F2:

Formula:

=IF(COUNTIF(C$2:C2;C2)=1,SUMIF(C:C,C2,E:E),"")

And use this in G2:

Formula:

=IF(COUNTIFS(C$2:C2,C2,D$2:D2,D2)=1,SUMIFS(E:E,C:C,C2,D:D,D2),"")

And extend formula down

most common reason being that OpenOffice.org uses semi-colons ( ; ) between arguments, instead of commas ( , ) like in Excel.

F2:

Formula:

=IF(COUNTIF(C$2:C2;C2)=1;SUMIF(C:C;C2;E:E);"")

G2:

Formula:

=IF(COUNTIFS(C$2:C2;C2;D$2:D2;D2)=1;SUMIFS(E:E;C:C;C2;D:D;D2);"")

Both of them?

try replace them with:

Formula:

=IF(COUNTIF(C$2:C2;C2)=1;SUMIF($C$2:$C$1000;C2;$E$2:$E$1000);"")

Formula:

=IF(SUMPRODUCT(--(C$2:C2=C2);--(D$2:D2=D2))=1;SUMPRODUCT($E$2:$E$1000;--($C$2:$C$1000=C2);--($D$2:$D$1000=D2));"")

Extend range (1000) if needed

You have quoatation around ranges. Remove them and it will work.

Also, 2nd formula (in G2) is different than 1st. (See above).

=IF(COUNTIF(C$2:C2,C2)=1,SUMIF("c":"c",C2,"e":"e"),"") what is this? where did those quotes come from?
=IF(COUNTIF(C$2:C2,C2)=1,SUMIF(c:c,C2,e:e),"")
and while im here open office doesnt support countifs so zbor's sumproduct() is the way to do it

The VBA alternative would be like this........

Sub sumpopulation()
Dim rngc1 As Range, rngc2 As Range, rngs As Range, cell As Range, cella As Range
Dim lr1 As Long
lr1 = Cells(Rows.Count, "C").End(xlUp).Row
Set rngc1 = Range("C2:C" & lr1)
Application.ScreenUpdating = False
For Each cell In rngc1
    m = Application.WorksheetFunction.CountIf(rngc1, cell.Value)
    n = Application.WorksheetFunction.Match(cell.Value, rngc1, 0)
    Set rngs = Range(Cells(n + 1, "E"), Cells(m + n, "E"))
        If cell.Value <> cell.Offset(-1, 0).Value Then
            cell.Offset(0, 3) = Application.WorksheetFunction.SumIf(rngc1, cell.Value, rngs)
        End If
    Set rngc2 = Range(Cells(n + 1, "D"), Cells(m + n, "D"))
    For Each cella In rngc2
        If cella.Value <> cella.Offset(-1, 0).Value Then
            cella.Offset(0, 3) = Application.WorksheetFunction.SumIf(rngc2, cella.Value, rngs)
        End If
    Next cella
Next cell
Application.ScreenUpdating = True
End Sub