View Single Post
  #2   Report Post  
Posted to microsoft.public.excel.programming
joel joel is offline
external usenet poster
 
Posts: 9,101
Default Need code to loop through columns and enter formulas

Your last c olun can be determine by the data in Row 1

LastCol = Cells(1,columns.count).end(xltoleft).Column
'Column C = 3
For colcount = 3 to LastCol
Cells(2,ColCount).formulaR1C1 = "RC[-1]-R[1]C"
Next ColCount

"Judy Ward" wrote:

I know it is possible to do this in code, but I just can't figure it out.
I'm hoping there is an Excel wizard out there who can help me with this.

I'm starting with Dates in row 1 and counts related to the dates in row 2.
Example:
C D E
2/27/09 3/6/09 3/13/09
1 6 4

I need "burndown" calculations based on the counts in row 2. Since I will
be creating a chart with this data, I want the burndown numbers next to the
dates, so I insert a blank row 2 (the counts become row 3). I can figure out
how to put a total of all the counts in row 3 into cell B2. And I know how
to get the number of columns. Now I need to know how to loop through the
rest of the cells in row 2 (from column C to the last column, which is
variable).

This is what I want to end up with:
C2 = B2-C3
D2 = C2-D3
E2 = D2-E3
and so on until the last column.

Thank you in advance for any help you can give me!
Judy