Bij verplaatsen regel naar ander blad, blijft code de regel plakken op A2

Hai Allen,

Mijn eerste keer hier, dus hoop dat ik het op de juiste manier doe.

Ik heb een code die ervoor zorgt dat wanneer op het eerste tabblad gekozen wordt voor "Ingetrokken" de gehele regel op het tweede tabblad komt, te beginnen bij regel 2
De bedoeling is dat de volgende regel (welke op het eerste tabblad de status "ingetrokken" krijgt op regel 3 komt te staan. Dit gebeurt dus niet, hij overschrijft gewoon de 2e regel.

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

J0B0 zei:

Hai Allen,

Mijn eerste keer hier, dus hoop dat ik het op de juiste manier doe.

Klik om te vergroten...

Niet helemaal.
VBA is iets anders dan Visual Basic .Net
Klik ook even op de link in mijn handtekening.

oeps



Thanks, verplaats 'm en zal 'm anders opstellen

Geen probleem