rij verplaatsen naar ander tabblad op basis datum

[DClewis]

Ik heb al wat gesnuffeld en het een en ander gezien maar ik kom er zelf niet uit.
Ik wil graag dat er een rij naar een ander tabblad, "uit dienst" wordt verplaatst op basis van de datum in kolom D als deze is gepasseerd.
De rij moet uit het tabblad "dienst" worden verwijderd.

ik had al wat gevonden van VENA maar ik kom er niet uit
Wie kan mij hierbij helpen?

Dank , Lewis

 

[HSV]

Bv.

Sub hsv()
Application.DisplayAlerts = False
With Sheets("dienst").Cells(1).CurrentRegion
 .AutoFilter 4, "<" & Format(Date, "mm/dd/yyyy")
 .Offset(1).Copy Sheets("uitdienst").Cells(Rows.Count, 1).End(xlUp).Offset(1)
 .Offset(1).Delete
 .AutoFilter
End With
End Sub

 

[DClewis]

Super!
dank u wel
werkt perfect :thumb: