Cummulative Totals
 

Hi all,

I use the code below to produce cummulative totals for a given month (Days
1-31)

Issue:
If i use this code to produce a row of data, for a mid-month report,
specifically a graph, where i run out of data, the unknown days contain the
last known value.

Question:
How can tell the code that if there is no value for the date, display a '0',
otherwise, calculate the cummunlative value for the day in question.



Code:
Range("C58") = Range("C11")
Range("D58") = Application.WorksheetFunction.Sum(Range("C58,D11") )
Range("E58") = Application.WorksheetFunction.Sum(Range("D58,E11") )
Range("F58") = Application.WorksheetFunction.Sum(Range("E58,F11") )
Range("G58") = Application.WorksheetFunction.Sum(Range("F58,G11") )
Range("H58") = Application.WorksheetFunction.Sum(Range("G58,H11") )

Range("I58") = Application.WorksheetFunction.Sum(Range("H58,I11") )

Range("J58") = Application.WorksheetFunction.Sum(Range("I58,J11") )
Range("K58") = Application.WorksheetFunction.Sum(Range("J58,K11") )
Range("L58") = Application.WorksheetFunction.Sum(Range("K58,L11") )
Range("M58") = Application.WorksheetFunction.Sum(Range("L58,M11") )

Range("N58") = Application.WorksheetFunction.Sum(Range("M58,N11") )
Range("O58") = Application.WorksheetFunction.Sum(Range("N58,O11") )
Range("P58") = Application.WorksheetFunction.Sum(Range("O58,P11") )
Range("Q58") = Application.WorksheetFunction.Sum(Range("P58,Q11") )
Range("R58") = Application.WorksheetFunction.Sum(Range("Q58,R11") )

Range("S58") = Application.WorksheetFunction.Sum(Range("R58,S11") )
Range("T58") = Application.WorksheetFunction.Sum(Range("S58,T11") )
Range("U58") = Application.WorksheetFunction.Sum(Range("T58,U11") )
Range("W58") = Application.WorksheetFunction.Sum(Range("V58,W11") )

Range("X58") = Application.WorksheetFunction.Sum(Range("W58,X11") )
Range("Y58") = Application.WorksheetFunction.Sum(Range("X58,Y11") )
Range("Z58") = Application.WorksheetFunction.Sum(Range("Y58,Z11") )
Range("AA58") = Application.WorksheetFunction.Sum(Range("Z58,AA11" ))
Range("AB58") = Application.WorksheetFunction.Sum(Range("AA58,AB11 "))

Range("AC58") = Application.WorksheetFunction.Sum(Range("AB58,AC11 "))
Range("AD58") = Application.WorksheetFunction.Sum(Range("AC58,AD11 "))
Range("AE58") = Application.WorksheetFunction.Sum(Range("AD58,AE11 "))
Range("AF58") = Application.WorksheetFunction.Sum(Range("AE58,AF11 "))
Range("AG58") = Application.WorksheetFunction.Sum(Range("AF58,AG11 "))

--
Carlee