Originally Posted by

**Bonzopookie**
I created a table on the "Formulas" Page that can correctly sum the totals for each day.

I'm not so sure;

1. The formula in cell C2 is:

=SUMIF(JanTable!$A$3:$A$31,Formulas!$A2,JanTable!G$2:G31)

The ranges in red are not the same size, and the tops of the ranges are offset (that might be intentional, but I don't think it will do what you might think).

2. The second red range does not contain 2 $ symbols, but only one. Consequently:

3. Cell C13 contains:

=SUMIF(JanTable!$A$3:$A$31,Formulas!$A13,JanTable!G$2:G42)

which is even more incomprehensible.

I'll be glad to be shown I'm wrong.

A problem arises when using a SUMIF formula when the cell that will contain the copy of the result also has the same date in column A; you will see the result in *Formulas *for that date (currently it's actually the day after result which is wrong - but that's due I think to wrong formulae mentioned in points 1, 2 and 3 above (see next paragraph)).

To show what I mean with a specific example in your file as it stands: We'll manually copy value of cell C3 of *Formulas *(1175) to cell G11 of *JanTable*, but first making a note of the value of cell C4 in *Formulas *(810). After copying, take a look at cell C4 in *Formulas *(was 810) which is now 1985!

On to VBA, you could try the following: Comment-out or delete your current Private Sub Worksheet_Change(ByVal Target As Range) in the *JanTable *sheet's code-module and replace it with:

Code:

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Cells.Count = 1 Then
If Not Intersect(Columns(3), Target) Is Nothing Then
If Target.Value = "DAILY TOTALS" Then
With Target.Offset(, 4).Resize(, 8)
.FormulaR1C1 = "=SUMIF(R3C1:R[-1]C1,RC1,R3C:R[-1]C)"
'.Value = .Value
End With
End If
End If
End If
End Sub

then change (or re-affirm) a cell in column C to Daily Totals and satisfy yourself that the formulae added to cells in columns G:N of the same row are satisfactory, and if so you can remove the apostrophe at the start of the line:

'.Value = .Value

which will then convert those formulae to plain values.

## Bookmarks