De formules van de laatste 3 regels kopieeren naar ander werkblad

[surfingmaster]

Hallo dames en heren,

Tot nu toe heb ik de volgende macro:

Sub kopierengesorteerd()

Dim lRij As Long
           lRij = Sheets("Kosten uitg. in tijd").Range("M" & Rows.Count).End(xlUp).Row
    Sheets("Termijnplan").Range("c10:ZZ12").Value = Sheets("Kosten uitg. in tijd").Range("M" & lRij - 2 & ":ZZ" & lRij).Value

End Sub

De formule kopieert de laatste 3 regels van tabblad 'kosten uitg. in tijd' naar tabblad 'Termijnplan'. Nu wil ik deze zo veranderen dat de macro de formules kopieert. Hoop dat jullie mij kunnen helpen.

Groet,
Erwin

 

[Roncancio]

Sub kopierengesorteerd()

Dim lRij As Long
    lRij = Sheets("Kosten uitg. in tijd").Range("M" & Rows.Count).End(xlUp).Row
    Sheets("Termijnplan").Range("M10:ZZ12").[B]Formula[/B] = Sheets("Kosten uitg. in tijd").Range("M" & lRij - 2 & ":ZZ" & lRij).[B]Formula[/B]

End Sub

Met vriendelijke groet,


Roncancio

 

[surfingmaster]

Ik de bovenstaande macro geprobeerd.Hij kopieerd de formules wel. Maar het is de bedoeling dat de formules verwijzen naar de regels erboven. Nu kopieert hij de formules letterlijk zoals ze er staan, dus absoluut. Het zou relatief moeten.

Met vriendlijke groet,
Erwin

 

[Warme bakkertje]

Sub kopierengesorteerd()

Dim lRij As Long
    lRij = Sheets("Kosten uitg. in tijd").Range("M" & Rows.Count).End(xlUp).Row
    Sheets("Termijnplan").Range("M10:ZZ12").FormulaR1C1 = Sheets("Kosten uitg. in tijd").Range("M" & lRij - 2 & ":ZZ" & lRij).FormulaR1C1

End Sub