Question

I’ve been searching like crazy and I’m sure it is WAY simpler than I think so please enlighten me!

I set a formula on some cells in a loop like this:

ActiveSheet.Range("AM" & i).Formula = "=ROUND(Y" & i & "/(M" & i & "+U" & i & "/12))"

And I’d like to copy the RESULT of this formula to another cell. I tried this:

ActiveSheet.Range("Y" & i).Value = ActiveSheet.Range("AM" & i).Value

But it’s not working. I always wondered how to get the result (value) of this formula and not copy the entire formula.

Any idea or answer? Thanks so much.

Answer 1

You can copy the result as a value. Suppose I have cells A1 and A2 and I want to get the MAX value in A3 and then copy the result to A4:

    A
1   10
2   20
3   20 <- as formula '=MAX(A1:A2)'
4   20 <- as value not formula

Sub AddMax()
    Range("A3").Formula = "=MAX(A1:A2)"
End Sub

Sub CopyResult()
    Range("A3").Copy
    Range("A4").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
End Sub