Regel bij wijziging in status kopieeren naar tweede tabblad

Status
Niet open voor verdere reacties.
J

J0B0

Nieuwe gebruiker
Lid geworden
18 okt 2018
Berichten
4
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..

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:
Dit zou moeten werken.
Code: 
Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Column = 10 and lcase(Target.Value) = "ingetrokken" Then 
      application.enableevents  = false
      rows(target.row).copy  Worksheets("Ingetrokken Certificaten").cells(rows.count,1).end(xlup).offset(1)
      Rows(Target.Row).Delete
     application.enableevents = true
    End If
End Sub
 
Helaas

Bedankt voor je hulp. Helaas blijft de code de desbetreffende regel op regel 2 zetten (en dus overschrijven van de regel die er al stond)
 
Onmogelijk.
 
Tenzij kolom A leeg is.

Code: 
rows(target.row).copy  Worksheets("Ingetrokken Certificaten").cells(rows.count,1[COLOR="#FF0000"]0[/COLOR]).end(xlup).offset(1)
 
Inderdaad, maar wie kopieert er nu een gehele rij als er niets staat.
 
Status
Niet open voor verdere reacties.
Steun Ons

Nieuwste berichten

Terug
Bovenaan Onderaan