Automatisch rij invoegen

[tommylammerink]

Beste forum gebruikers,

In bijgevoegd voorbeeld kunnen in kolom I per medewerker maximaal 2 activiteiten geselecteerd worden.
Ik wil graag automatisch een 3e regel invoegen indien bij een medewerker al 2 activiteiten geselecteerd zijn.
Ik vraag niet meer of het mogelijk is, maar alleen hoe

Thnx!

 

[Timshel]

Met deze

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim Rng As Range
    Dim i As Long
    
    If Not Intersect(Target, Range("B13").CurrentRegion.Columns(8)) Is Nothing Then
        Set Rng = Target.Offset(IIf(Cells(Target.Row, 2) = "", Cells(Target.Row, 2).End(xlUp).Row - Target.Row, _
            0)).Resize(Application.Min(Cells(Target.Row, 2).End(xlDown).Row, Range("B13").CurrentRegion.Rows.Count + 13) - _
            IIf(Cells(Target.Row, 2) = "", Cells(Target.Row, 2).End(xlUp).Row, Target.Row))
        If Application.CountA(Rng) = Rng.Rows.Count Then
            Rows(Rng(Rng.Rows.Count).Offset(1).Row).Insert Shift:=xlDown
            For i = 1 To 7
                Rng.Offset(, -i).Resize(Rng.Rows.Count + 1).MergeCells = True
            Next
            Range("B13").CurrentRegion.Borders.LineStyle = xlContinuous
        End If
    End If
End Sub

in de module van het werkblad

 

[emields]

Vermijd altijd het gebruik van samengevoegde cellen in excel, het maakt alleen het gebruik van vba moeilijker of zelfs onmogelijk.