I have been able to automate composition of formulas, by concatenation and
other methods, as text strings. '=RC[-1] is a typical result. I am trying to
copy this resulting in a usable formula without success. I have developed
the following:

Sub Macro1()
'('=RC[-1] is previously entered in C1.)
Dim myFormula As Range
Dim myB1 As Range
Set myFormula = Range("C1")
Set myB1 = Range("B1")
myB1.FormulaR1C1 = myFormula
End Sub

The result in B1 is =RC[-1], both in the cell and the formula bar, but it
won't function as a formula until I manually click on the formula bar and
peck Enter.

I know I am missing something?

Thanks in advance

Hi
try changing the line
myB1.FormulaR1C1 = myFormula


to
myB1.FormulaR1C1 = myFormula.formulaR1C1

as you currently assign the VALUE to the formulaR1C1
property


-----Original Message-----
I have been able to automate composition of formulas, by
concatenation and
other methods, as text strings. '=RC[-1] is a typical
result. I am trying to
copy this resulting in a usable formula without success.
I have developed
the following:

Sub Macro1()
'('=RC[-1] is previously entered in C1.)
Dim myFormula As Range
Dim myB1 As Range
Set myFormula = Range("C1")
Set myB1 = Range("B1")
myB1.FormulaR1C1 = myFormula
End Sub

The result in B1 is =RC[-1], both in the cell and the
formula bar, but it
won't function as a formula until I manually click on the
formula bar and
peck Enter.

I know I am missing something?

Thanks in advance


.

It worked!

"Frank Kabel" wrote in message
...
Hi
try changing the line
myB1.FormulaR1C1 = myFormula


to
myB1.FormulaR1C1 = myFormula.formulaR1C1

as you currently assign the VALUE to the formulaR1C1
property


-----Original Message-----
I have been able to automate composition of formulas, by
concatenation and
other methods, as text strings. '=RC[-1] is a typical
result. I am trying to
copy this resulting in a usable formula without success.
I have developed
the following:

Sub Macro1()
'('=RC[-1] is previously entered in C1.)
Dim myFormula As Range
Dim myB1 As Range
Set myFormula = Range("C1")
Set myB1 = Range("B1")
myB1.FormulaR1C1 = myFormula
End Sub

The result in B1 is =RC[-1], both in the cell and the
formula bar, but it
won't function as a formula until I manually click on the
formula bar and
peck Enter.

I know I am missing something?

Thanks in advance


.