Search code examples
excelfunctionrangeevaluate

Write the result of the function evaluate in excel

i need to make a function : https://i.sstatic.net/3JaRw.png

Function result(Ran As Range)

    Application.Volatile

    Dim columnNum  As Integer
    Dim rowNum  As Integer

    columnNum  = ActiveCell.Column
    rowNum  = ActiveCell.Row

    Ran.value = Evaluate(Cells(RowNum  , ColumnNum  - 1).Value)

End Function

it doesn't work

How can i write the result of the addition which is on the left?

Solution

  • I had problems using a function named result. Changing the function name seemed to work.

    See below:

    Public Function doo(ran As Range)
    doo = Evaluate("=" & ran.Value)
End Function