I would like to put this formula into a specific cell. Here is my code:
for Counter 1 to 20
Cells((OneWkRow + 8), Counter).Value = "=Sum(c1_right_1 : c_right_1)"
Next Counter

Why is this not working? Can I not use variables in this instance? How can
I make this work? Thanks!!!

Everything between " and " is treated as a string. Try something like

Cells((OneWkRow + 8), Counter).Value = _
"=Sum(" & c1_right_1 &":" & c_right_1 & ")"

HTH
Rowan

"KyWilde" wrote:

I would like to put this formula into a specific cell. Here is my code:
for Counter 1 to 20
Cells((OneWkRow + 8), Counter).Value = "=Sum(c1_right_1 : c_right_1)"
Next Counter

Why is this not working? Can I not use variables in this instance? How can
I make this work? Thanks!!!

You have 20 columns starting at A.
You have 7 days data - in my example these are rows 5 to 11 , so OneWkStart
is set to row 5
In the next row, row 12, you want to add the values in the columns for the
week?

Try this as an alternative

Sub Demo()
Dim OneWkRow As Long
OneWkRow = 5

With Range(Cells(OneWkRow + 7, 1), Cells(OneWkRow + 7, 20))
.FormulaR1C1 = "=Sum(R[-8]C:R[-1]C)"
End With

End Sub



"KyWilde" wrote:

I would like to put this formula into a specific cell. Here is my code:
for Counter 1 to 20
Cells((OneWkRow + 8), Counter).Value = "=Sum(c1_right_1 : c_right_1)"
Next Counter

Why is this not working? Can I not use variables in this instance? How can
I make this work? Thanks!!!