automatisch nieuwe rij invoegen

[Roncancio]

Bij het verwijderen of toevoegen van een regel krijg je een melding te zien of een regel verwijderd danwel toegevoegd is.

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
Dim lRij As Long
Dim lLR As Long
Dim lLeeg As Long
    If Sh.Name <> "Overview" And Target.Columns.Count = Cells.Columns.Count Then
        lLeeg = Application.WorksheetFunction.CountBlank(Target.Columns)
        If lLeeg = Cells.Columns.Count Then
            MsgBox "Er wordt een lege regel toegevoegd!", vbExclamation, "Lege regel toegevoegd."
        Else
            MsgBox "Er is een regel verwijderd!", vbExclamation, "Regel verwijderd."
        End If

        lRij = 3
        Worksheets("Overview").Range("A3:A1000").ClearContents
        For WS = 2 To Worksheets.Count
            lLR = Worksheets(WS).Range("A65536").End(xlUp).Row
            Worksheets(WS).Range("A1:IV" & lLR).Copy Destination:=Worksheets("Overview").Range("A" & lRij)
            lRij = lRij + lLR + 2
        Next

    End If
End Sub

De werking van het programma is niet veranderd.

Met vriendelijke groet,


Roncancio