Cellen archiveren in andere sheet

[Lara2017]

Hoi,

Ik probeer te werken met een Commandbutton maar helaas snap ik nog niet helemaal hoe het werkt. Ik wil een lijst met de code 'Ja' verplaatsen naar het archief, deze zijn afgerond. Het verplaatsen lukt alleen begint de lijst ineens midden in sheet 2. Kan iemand mij helpen om dit op te lossen? Wat gaat er niet goed in de code?

Alvast bedankt.

 

[Peter B]

Ik zie geen code? Vergeten het voorbeeld toe te voegen?

 

[Lara2017]

Haha nee ik ben hier niet mee bekend dus wist niet of het de bedoeling was alles er op te gooien .
Komt ie:

Public Sub CommandButton1_Click()

With Worksheets("Blad1").Range("C1:C100")
Do
Set A = .Find("Ja", LookIn:=xlValues, searchdirection:=xlNext)
If Not A Is Nothing Then
B = A.Row
Rows(B).Copy
Worksheets("Archief").Select
With Worksheets("Blad1").Range("C1:C100")
Set Z = .Find("", LookIn:=xlValues)
If Not Z Is Nothing Then
Z = Z.Row
Worksheets("Archief").Range("A" & CStr(Z)).Select
ActiveSheet.Paste
Application.CutCopyMode = False
End If
End With
Worksheets("Blad1").Select
Rows(B).Select
Selection.Delete
End If
Loop Until A Is Nothing
End With

End Sub

 

[VenA]

Als je gegevens in A1 beginnen.

Sub VenA()
With Sheets("Blad1").Cells(1).CurrentRegion
  .AutoFilter 3, "Ja"
  .Offset(1).Copy Sheets("Archief").Cells(Rows.Count, 1).End(xlUp).Offset(1)
  .Offset(1).EntireRow.Delete
  .AutoFilter
End With
End Sub