Sum every nth cell

[Savvasy]

Hi,

I have a spreadsheet with values from D3 up to AB3 and I would like to sum every 4th cell beginning from D3 (D3,H3,L3 etc..).
I've tried a lot of formulas including SUMPRODUCT, MOD, OFFSET but I always get errors and I believe the reason is because all my cells from D3 up to AB3 contain formulas.
Some of the formulas return numbers and some of them return percentages.

Your help would be much appreciated.

 

[Savvasy]

I used to have it like this but I am adding cells with VBA and it does not sum the new cells

 

[DanteAmor]

I used to have it like this but I am adding cells with VBA and it does not sum the new cells

Ok, try this

To add from C3 to C52

Sub sum_col_c()
    Dim c As Long, l As String, i As Long
    c = Cells(3, Columns.Count).End(xlToLeft).Column
    l = Evaluate("=SUBSTITUTE(ADDRESS(1," & c & ",4),""1"","""")")
    For i = 3 To 52
        Range("C" & i) = Evaluate("=SUMPRODUCT((MOD(COLUMN(D" & i & ":" & l & i & "),4)=0)*D" & i & ":" & l & i & ")")
    Next
End Sub

 

[Savvasy]

I tried your macro but it loses all the sumproduct formulas. It's like I am doing a copy/paste just numbers.

 

[DanteAmor]

I tried your macro but it loses all the sumproduct formulas. It's like I am doing a copy/paste just numbers.

That's the idea. Leaving only the results of the sums, otherwise, would also have the circular error.