Som met macro bij variabele reeks

[riendevries]

Hoi allemaal,

Stel ik heb een range kolommen A100:B100 waar tevens getallen in staan. Nu ik van deze range het resultaat van elke cel A-B. Het resultaat moet terecht komen in de cellen van kolom C. Hoe doe ik dit met een macro bij variabele reeksen van kolom A en B.

Alvast bedankt

 

[Wigi]

Rien

zo bv.

Sub VerschilMakenDoorWigi()
    Dim laatsterij As Long
    
    laatsterij = Range("A" & Rows.Count).End(xlUp).Row
    laatsterij = WorksheetFunction.Max(laatsterij, Range("B" & Rows.Count).End(xlUp).Row)
    
    Range("C1:C" & laatsterij).FormulaR1C1 = "=RC[-2]-RC[-1]"

End Sub

Wigi