Why the "Range.Formula = " not work?

[xxing01]

I want to copy the formula from one cell/cells to another cell/cells by "Range.Formula = ".
But it not work as expected.
If I run the VBA step by step, the function will ended at "Range.Formula = " without error.

Function test1(sOURCE As Range, tARGET As Range)
    tARGET.Formula = sOURCE.Formula
    test1 = tARGET.Formula
End Function

 

[Alex Blakenburg]

That's just not how function work.
Unless you are calling a function from code, it is intended to return a value into the same cell. You are wanting it to run like a normal macro.
So in your case it can't work out what you want to return the to cell you are typing it into.

 

[xxing01]

That's just not how function work.
Unless you are calling a function from code, it is intended to return a value into the same cell. You are wanting it to run like a normal macro.
So in your case it can't work out what you want to return the to cell you are typing it into.

Hi Alex,
Can you help me to code the macro, that can copy the formula from any cell to another one?
I want to assign the cell as the function argument.

 

[Alex Blakenburg]

I don't believe you can do it as a function. You will need to have a button or a short cut key or possibly an Event Macro.

 

[bebo021999]

If you want to copy formula from A2 to B2, try with sub, not function

Sub test()
Set source = Range("A2")
Set target = Range("B2")
target.Formula = source.Formula
End Sub

 

[Fluff]

Welcome to the MrExcel Message Board!

Cross-posting (posting the same question in more than one forum) is not against our rules, but the method of doing so is covered by #13 of the Forum Rules.

Be sure to follow & read the link at the end of the rule too!

Cross posted at: Why the "Range.Formula = " not work?
and Why the "Range.Formula = " not work?

If you have posted the question at more places, please provide links to those as well.

If you do cross-post in the future and also provide links, then there shouldn’t be a problem.