Zoeken op nummer en wegschrijven in ander tabblad

[gerrit123456789]

Allereerst Prettige Kerstdagen.

 

[gerrit123456789]

Ik zal hem nog een keer opnieuw plaatsen, misschien is het ook met uploaden al fout gegaan.

Hallo,

Allereerst Prettige Kerstdagen.

Ik heb een probleem en weet daar geen oplossing voor.

Ik heb een bestand en op het Invoerblad laten zoeken naar een palletnummer. Hij moet dat zoeken doen in het tabblad Opslagoverzicht.
Wanneer deze gevonden is moet hij deze wegschrijven in tabblad 2. Hij moet daar alle gegevens naar toe schrijven met in de laatste kolom de huidige datum en tijd.
Wanneer de gegevens weggeschreven zijn naar tabblad 2, dan moeten de waardes in het tabblad Opslagoverzicht gewist worden en moet de dan ontstane lege rij verwijderd worden.

Wie kan mij hierbij helpen.

Bij voorbaat dank.

Gerrit

Bekijk bijlage Gerrit 1.xlsm

 

[Leotaxi]

Dag Gerrit, misschien kan deze helpen

mvg

Leo

 

[gerrit123456789]

Hallo,

Dit is wat ik bedoel.

Bedankt

Gerrit

 

[VenA]

Iets ander insteek met een foutafhandeling

Sub tst()
    On Error GoTo Fout
    With Sheets("Opslagoverzicht")
        r = Application.Match(Sheets("Invoerblad").[F14], .Range("C1:C2" & .Cells(Rows.Count, 1).End(xlUp).Row()), 0)
        ar = .Range("A" & r).Resize(, 5)
        .Rows(r).EntireRow.Delete
    End With
    With Sheets("Blad2").Cells(Rows.Count, 1).End(xlUp).Offset(1)
        .Resize(, 5) = ar
        .Offset(, 5) = Now()
    End With
    Sheets("Invoerblad").[F14].ClearContents
Exit Sub
Fout:
MsgBox "Pallet " & Sheets("Invoerblad").[F14] & " niet gevonden!", vbCritical, "Niet gevonden"
Application.Goto Sheets("Invoerblad").[F14]
End Sub

 

[gerrit123456789]

Dit is het helemaal.

Bedankt allemaal voor de snelle hulp.

Gerrit