Code werkt niet (meer) "Als groter is dan 15 dan"

[MEradus]

Hallo,

Ik heb onderstaande code samengevoegd en tot voor het weekend werkte deze code nog.
Vreemd genoeg nu niet meer. Wie zou mij kunnen helpen om deze weer werkend te krijgen?

    Columns("G:G").Select
    Selection.Insert Shift:=xlToRight, CopyOrigin:=xlFormatFromLeftOrAbove
    ActiveCell.FormulaR1C1 = "Na Rittijd"
    Range("G2").Select
    ActiveCell.FormulaR1C1 = "=IF(RC[-1]>15,""Na Rittijd"","""")"
    Selection.Autofill Destination:=Range("G2:G" & Cells(Rows.Count, "B").End(xlUp).row)
    
    Columns("G:G").Select
    Selection.Copy
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
         Application.CutCopyMode = False

Bekijk bijlage Helpmij_vb_narittijd.xlsm

Uiteraard gebruik ik de code in een collectief, maar de rest werkt wel.

Alvast bedankt.
(Ben wel benieuwd hoe het kan dat de code ineens niet meer werkt).

 

[VenA]

Volgens mij werkt het gewoon.

Anders geschreven

Sub rittijd()
Application.Calculation = xlAutomatic
Dim lr
lr = Cells(Rows.Count, 2).End(xlUp).Row
Columns("G:G").Insert
Range("G1") = "Na Rittijd"
With Range("G2")
    .FormulaR1C1 = "=IF(RC[-1]>15,""Na Rittijd"","""")"
    .AutoFill Range("G2:G" & lr)
    .Resize(lr - 1) = .Resize(lr - 1).Value
End With
End Sub

 

[MEradus]

Dank je wel! Deze code werkt.
(kwam er net achter dat een andere code die ik er net ingeplakt had het "automatisch berekenen" uitzette).
Dus daarom werkte mijn code ook niet meer.

 

[VenA]

De code in #2 heb ik een beetje aangepast.