VBA code to read formular from another cell
If you want the formula for Sheet 1 Cell A1 to be in Sheet 1 cell F1 do this:
Sheets("Sheet1").Range("F1").FormulaR1C1 =
Sheets("Sheet1").Range("A1").FormulaR1C1
alternatively, you could use
SHeets("SHeet1").cells(1,6).formulaR1C1 =
Sheets("Sheet1").cells(1,1),formulaR1C1
"fLiPMoDĀ£" wrote:
Hello,
I am trying to do something and not sure if that is possible.
Say in Sheet1, CellA1, I have a comment '= IF(and(b1=c1, d1=e1), "Do This",
"Do That")
Question is how can I call the formula part in a vba to be paste in a
specified cell.
So say I run the macro in Sheet2, the macro should pick the formula =
IF(and(b1=c1, d1=e1), "Do This", "Do That") and paste in say Cell F1, then I
will want to copy the formula down to the last row.
The reason is that I can change the formula for other fields
Many thanks
Carl.
|