formula variable prob.

[HarryGuy]

I have a formula,

ActiveCell.FormulaR1C1 = "=(Origin!RC[cC]-Origin!R3C[cC])/Origin!R3C[cC]"

that I want to insert into "A3", "B3" etc. for about 30 additional columns.
I then plan to extend the results to the last cell down each column, using
"Auto-Fill". "cC" is a variable in the formula.

For example:

rts.Cells(ratdtR + 1, ratdtC + g).Select

Selection = "=(Origin!RC[3]-Origin!R3C[3])/Origin!R3C[3]"

Selection.AutoFill Destination:=Range(Cells(invdtR + 1, invdtC + g),
Cells(lstcelR, invdtC + g)),Type:=xlFillDefault

works but I cannot code "cC" programatically.

Can someone help me with this problem.

 

[Dave Peterson]

ActiveCell.FormulaR1C1 _
= "=(Origin!RC[" & cC & "]-Origin!R3C[" & cC &"])/Origin!R3C[" & cC & "]"

I have a formula,

ActiveCell.FormulaR1C1 = "=(Origin!RC[cC]-Origin!R3C[cC])/Origin!R3C[cC]"

that I want to insert into "A3", "B3" etc. for about 30 additional columns.
I then plan to extend the results to the last cell down each column, using
"Auto-Fill". "cC" is a variable in the formula.

For example:

rts.Cells(ratdtR + 1, ratdtC + g).Select

Selection = "=(Origin!RC[3]-Origin!R3C[3])/Origin!R3C[3]"

Selection.AutoFill Destination:=Range(Cells(invdtR + 1, invdtC + g),
Cells(lstcelR, invdtC + g)),Type:=xlFillDefault

works but I cannot code "cC" programatically.

Can someone help me with this problem.

 

[HarryGuy]

Thanks very much Dave and my apologies to the group for doubling-up on the
request - had an internal problem.

ActiveCell.FormulaR1C1 _
= "=(Origin!RC[" & cC & "]-Origin!R3C[" & cC &"])/Origin!R3C[" & cC &
"]"

I have a formula,

ActiveCell.FormulaR1C1 = "=(Origin!RC[cC]-Origin!R3C[cC])/Origin!R3C[cC]"

that I want to insert into "A3", "B3" etc. for about 30 additional
columns.
I then plan to extend the results to the last cell down each column,
using
"Auto-Fill". "cC" is a variable in the formula.

For example:

rts.Cells(ratdtR + 1, ratdtC + g).Select

Selection = "=(Origin!RC[3]-Origin!R3C[3])/Origin!R3C[3]"

Selection.AutoFill Destination:=Range(Cells(invdtR + 1, invdtC + g),
Cells(lstcelR, invdtC + g)),Type:=xlFillDefault

works but I cannot code "cC" programatically.

Can someone help me with this problem.