Kopieeren en plakken

[ben1906]

Beste medeforummers,

Graag wil ik in excel een rij kopieeren van het ene naar het andere tabblad. De voorwaarde die hieraan verbonden is dat in een bepaalde cel een "x" staat.

Ik heb hiertoe op het forum het volgende gevonden waarbij ik bijna heb wat ik wil:


Private Sub CommandButton2_Click()
With Worksheets("Werklijst").Range("B9:B110")
Do
Set A = .Find("x", LookIn:=xlValues, searchdirection:=xlNext)
If Not A Is Nothing Then
B = A.Row
Rows(B).Copy
Worksheets("Archief").Select
With Worksheets("Archief").Range("B9:B110")
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("Werklijst").Select
Rows(B).Select
Selection.Delete
End If
Loop Until A Is Nothing
End With

End Sub

het punt is nu dat wanneer ik op de button klik de regels verdwijnen. Dat wil ik dus niet. Verder zie ik niet dat ze geplakt worden in het andere tabblad. Kan iemand mij helpen?
Ik ben jullie reuze dankbaar!
Groetjes,
Ben

 

[snb]

Private Sub CommandButton2_Click()
With Worksheets("Werklijst").columns(2)
  .autofilter 1, "x"
  with .specialcells(xlcelltypevisible).entirerow
    .copy Worksheets("Archief").cells(rows.count,2).end(xlup).offset(1)
     .delete
  end with
  .autofilter
end with
End Sub

 

[ben1906]

Hi,

Wat een snel antwoord. Tnx! Ik ga er mee aan de slag!

Nogmaals dank!

Groetjes,
Ben