Hallo allemaal,
Ik ben er bijna, maar ergens heb ik iets niet goed. Ik heb een lijst met gegevens. Wanneer ik een rij de status "Ingetrokken" geef moet deze vervolgens gekopieerd worden naar het tweede tabblad vanaf regel 2. Dit stukje gaat goed, maar bij een volgende regel die ik de status "Ingetrokken" geef (op het eerste tabblad) wordt deze ook op regel 2 van het tweede tabblad gekopieerd. Dit moet regel 3 zijn en daarna 4 etc..
Ik ben er bijna, maar ergens heb ik iets niet goed. Ik heb een lijst met gegevens. Wanneer ik een rij de status "Ingetrokken" geef moet deze vervolgens gekopieerd worden naar het tweede tabblad vanaf regel 2. Dit stukje gaat goed, maar bij een volgende regel die ik de status "Ingetrokken" geef (op het eerste tabblad) wordt deze ook op regel 2 van het tweede tabblad gekopieerd. Dit moet regel 3 zijn en daarna 4 etc..
Code:
Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
Dim LastRow As Long
Dim i As Integer
If Target.Column <> 10 Then Exit Sub
With Worksheets("Ingetrokken Certificaten")
LastRow = .Cells(.Rows.Count, "A").End(xlUp).Row
For i = 2 To LastRow
If .Cells(i, 1) = "" Then
LastRow = i
Exit For
End If
Next
End With
If Target.Value = "Ingetrokken" Then
ActiveSheet.Rows(Target.Row).Copy Destination:=Worksheets("Ingetrokken Certificaten").Range("A" & LastRow)
Application.CutCopyMode = False
ActiveSheet.Rows(Target.Row).Delete
End If
End Sub
Laatst bewerkt: