Cel knippen en plakken naar een ander werkblad

[SHekkens]

Mijn probleem is dat ik bij het berekenen de cel Transport/CC Karren niet moet mee nemen en dat die informatie naar een ander werkblad moet(naar bijvoorbeeld het gegevens blad).
Dit wil ik graag in een Macro zetten, bij komend probleem is dat Transport/CC Karren vaak op een verschillende plek staat in het werkblad.
Automatiseren/Macro omdat het in werkelijkheid om meerdere vestigingen gaat

Alvast bedankt

 

[Superzeeuw]

Shekkens,

Probeer volgende code eens uit:

Sub test()
    On Error GoTo Einde
    MoveRegel = Sheets(1).Cells.Find("Transport/CC Karren", LookIn:=xlValues, LookAt:=xlWhole).Row
    Sheets("Product").Rows(MoveRegel).Copy
    Sheets("gegevens").Rows("1:1").PasteSpecial
    Sheets("Product").Rows(MoveRegel).Delete Shift:=xlUp
Einde:
End Sub

 

[Warme bakkertje]

Zo haalt hij ze er allemaal uit

Sub test2()
    On Error GoTo Einde
    Do
    MoveRegel = Sheets("Product").Cells.Find("Transport/CC Karren", LookIn:=xlValues, LookAt:=xlWhole).Row
    With Sheets("Product").Rows(MoveRegel)
        .Copy Sheets("gegevens").Cells(Rows.Count, 1).End(xlUp).Offset(1)
        .Delete
    End With
    Loop Until Err.Number > 0
Einde:
End Sub

 

[SHekkens]

Warme bakkertje, mijn dank ik groot!!!

Superzeeuw ook maar daar bleef transport/cc karren staan

 

[Superzeeuw]

@ Rudi,

Mooie oplossing.

 

[snb]

Of ?

Sub test2()
  On Error resume next
  Do
    With Sheets("Product").Cells.Find("Transport/CC Karren",, xlValues, xlWhole).Entirerow
       If Err.Number > 0 Then Exit Sub
       Sheets("gegevens").Cells(Rows.Count, 1).End(xlUp).Offset(1).entirerow=.value
      .Delete
    End With
  Loop
End Sub