Eén formule doorvoeren

[Albatros]

Hoi,

Ik wil één formule doorvoeren, middels een makro, maar de lengte van de waarden is niet altijd even lang.

 Application.Goto Reference:="R6C3"
    ActiveCell.FormulaR1C1 = "=MONTH(RC[-2])"
    Selection.AutoFill Destination:=Range("C6:C33")
    Range("C6:C33").Select
    Range("C6").Select

zie bijlage

Albatros

 

[Wigi]

Doorvoeren hoeft helemaal niet.

Range("A6", Range("A6").End(xlDown)).Offset(, 2).Formula = "=MONTH(RC[-2])"

Wigi

 

[Albatros]

Wigi,

Bedankt voor je reactie en goede :love: oplossing! :thumb:


Albatros