Rij toevoegen incl. formules en voorwaardelijk opmaak

[jkpieterse]

Zo iets:

Private Sub Worksheet_Change(ByVal Target As Range)
    If Range("vastbereik").Rows.Count < 12 Then
        Application.EnableEvents = False
        With Range("LaatsteRij").Offset(-Target.Rows.Count + 1).Resize(Target.Rows.Count)
            .EntireRow.Insert Shift:=xlDown
            .Copy
            .Offset(-Target.Rows.Count).PasteSpecial xlPasteFormulas
        End With
        Application.EnableEvents = True
    End If
    Application.CutCopyMode = False
End Sub

Zorg dat je zeer regelmatig reserve kopieen van dit bestand (laat) maken. Dit soort bestanden raakt regelmatig beschadigd.

 

[Haije]

zie de bijdrage van JKP

 

[roeljongman]

Aangepaste macro die ook werkt op meerdere regels, los of in aaneengesloten range

Application.EnableEvents = False
Application.ScreenUpdating = False

lRows = Range("vastbereik").Rows.Count + 1
    
    If lRows < 12 Then
        For i = lRows To 12
            With Range("LaatsteRij")
                .EntireRow.Insert Shift:=xlDown
                .Copy
                .Offset(-1).PasteSpecial xlPasteFormulas
            End With
        Next i
    End If
Application.CutCopyMode = False
Application.EnableEvents = True
Application.ScreenUpdating = True
End Sub

 

[frans kooijman]

...Alles werkt super nu!

Iedereen veel dank!@

Frans