Regels verplaatsen op basis van waarde

[HammerJohn]

Ik heb een actueel naams bestand als iemand een traject afrond moet hij met een
macro naar een werkblad historie.
Heb al veel geprobeerd soms doet hij er 1 maar overschrijft het andere en dat wil ik niet,
stel dat iemand terug komt ivm met terug plaatsing krijgt hij een 2e record
Dus hij hoeft niet te kijken in historie of het een dubbele naam betreft.

hierbij test bestand Bekijk bijlage test.xlsm

 

[edmoor]

Maak er eens dit van:

Sub Knop1_Klikken()
    Dim rij As Long
    Dim n As Long
    Dim src As Worksheet
    Dim trg As Worksheet
    Set src = Sheets("Persoonsgegevens")
    Set trg = Sheets("Historie")
   
    Application.ScreenUpdating = False
    rij = trg.[A65536].End(xlUp).Row + 1
    For n = 1 To src.[A65536].End(xlUp).Row
        If Cells(n, "y").Value = "ja" Then
            Range(Cells(n, "a"), Cells(n, "w")).Copy
            trg.Cells(rij, "a").PasteSpecial
            Application.CutCopyMode = False
            rij = rij + 1
        End If
    Next
End Sub

 

[gast0660]

Zoiets?
Ga een een cel staan van de rij die je wil verplaatsen en klik op de knop

Sub Knop1_Klikken()
ActiveCell.EntireRow.Copy Destination:=Sheets("Historie").Range("A" & Rows.Count).End(xlUp).Offset(1)
ActiveCell.EntireRow.Delete Shift:=xlUp
End Sub

Vbtje

 

[VenA]

Of dmv het autofilter.

Sub VenA()
With Blad1.Range("A4:Y" & Cells(Rows.Count, 1).End(xlUp).Row)
  .AutoFilter 25, "ja"
  .Offset(1).Copy Blad2.Cells(Rows.Count, 1).End(xlUp).Offset(1)
  .Offset(1).EntireRow.Delete
  .AutoFilter
End With
End Sub

 

[HammerJohn]

Ik ben super geholpen ik gebruik alle oplossingen in diverse sheets
super bedankt