Opgelost Rij overnemen naar ander tabblad + kopiëren

[patje8]

Ik heb een takenlijst waarbij de uitgevoerde taken verplaatst worden naar een ander tabblad.
Maar de lijst moet ook onderaan gekopieerd worden met een nieuwe datum.

Voorbeeld
Als ik in cel F2 de datum van vandaag zat dan wordt de volledige rij verplaatst naar tabblad afgehandeld. Dit lukt perfect.
Daarna moet dezelfde rij opnieuw onderaan de lijst toegevoegd worden met een nieuwe datum aan de hand van de code in kolom C + datum in kolom F.
KL14 = 14 dagen
KL30 = 30 dagen
Dus de nieuwe lijn moet dan uit te voeren zijn tegen "uitgevoerde datum" + 14 dagen.

 

[AHulpje]

Maak er eens dit van:

nd = Target + Mid(Target.Offset(, -3), 3, 2)

 

[patje8]

Wat als ik nu meer dan 99 dagen heb.
vb KL365 dan geeft hij me geen nieuwe datum van 1 jaar later.
Hoe kan ik dit aanpassen?

 

[AHulpje]

Na zes weken al een reactie!
Zo:

nd = Target + Mid(Target.Offset(, -3), 3, 3)

 

[Warme bakkertje]

Op voorwaarde dat er steeds 2 letters voor de cijfers staan.
Hopelijk moeten we nu weer geen 6 weken wachten op een antwoord.

nd = Target.Offset(, -2) + Right(Target.Offset(, -3), Len(Target.Offset(, -3)) - 2)

 

[patje8]

Dank U