VBA Formula Issue

[acemecca]

Sub copymoveform2()
Dim LR As Long, i As Long
LR = Range("B" & Rows.Count).End(xlUp).Row
For i = 2 To LR
If Range("B" & i).Value = 2 Then Range("C" & i).Formula = Range("C3").Formula
Next i
End Sub

Greetings - I was able to get this macro working, and although it populates the correct cells, it only paste the results of the original formula and does not change per row it is pasted in....please advise! The formula is C2 should populate a different result in Level 2 WBS elements. (ie. cell C5)

 

[Marcelo Branco]

Hi,

Maybe

Sub copymoveform2()
    Dim LR As Long, i As Long
    LR = Range("B" & Rows.Count).End(xlUp).Row
    For i = 2 To LR
        If Range("B" & i).Value = 2 Then Range("C" & i).[COLOR=blue]FormulaR1C1[/COLOR] = Range("C3").[COLOR=blue]FormulaR1C1
[/COLOR]    Next i
End Sub

M.

 

[jim may]

Untested, but substitute in:

If Range("B" & i).Value = 2 Then Range("C" & i).Formula = Range("C" & i + 1).Formula