Rij verplaatsen naar ander tabblad + datum toevoegen

[Lummel]

Ik heb een logboek gemaakt waarbij de gehele rij verplaatst wordt naar het tabblad 'Afgehandelde offertes' als de status als je de status van het dossier op 'afgehandeld' zet. De rij wordt dan onderaan toegevoegd.
Nu zou ik willen dat op het tabblad Afgehandeld ook automatisch de datum van het moment van afhandelen erbij komt. Dit dient in kolom T te komen op tabblad 'Afgehandelde offertes'.

Ik heb al geprobeerd met de formule =ALS(G146="AFGEHANDELD";VANDAAG();""). Dit werkt, maar de volgende dat wordt de datum automatisch aangepast.
Met .PasteSpecial xlPasteValues werkt het ook niet.
Ik zie het ff niet hoe ik het kan aanpassen

Ik heb de volgende VBA-code:

Public HuidigeWaarde
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    HuidigeWaarde = ActiveCell.Value
End Sub


Private Sub Worksheet_Change(ByVal Target As Range)
    
    If Target.Column = 7 And Target.Row > 5 Then
        Select Case ActiveCell.Value
            Case "AFGEHANDELD"
                If MsgBox("Wil je deze regel verplaatsen?", vbYesNo, "Attentie") = vbNo Then
                    ActiveCell.Value = HuidigeWaarde
                    Exit Sub
                End If
                ActiveSheet.Unprotect
                ActiveCell.EntireRow.Cut Sheets("Afgehandelde offertes").Range("A65536").End(xlUp).Offset(1)
                ActiveCell.EntireRow.Delete Shift:=xlUp
                ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True _
                , AllowFormattingCells:=True, AllowFormattingRows:=True, _
                AllowInsertingRows:=True, AllowDeletingRows:=True, AllowSorting:=True, _
                AllowFiltering:=True
                ActiveSheet.EnableSelection = xlUnlockedCells
            Case Else
                Exit Sub
        End Select
    End If
                
End Sub

 

[ExcelAmateur]

lummel,

Zou je wat met dit regeltje code kunnen doen?

If Range("G146").Value = "AFGEHANDELD" Then Range("T146").Value = Format(Now, "d-m-yyyy")

Dit kun je misschien in het begin van de code zetten, zodat hij eerst de datum invul.
Dit zet de datum zonder formule.

 

[Lummel]

Dank voor je reactie.

Het is de bedoeling dat de datum of op het 1e tabblad erbij komt, dus voor verplaatsen of daarna, dus op het 2e tabblad.
Ik heb het bestand toegevoegd. Wellicht dat dit e.e.a. verduidelijkt.

 

[Leotaxi]

een paar dingen aangepast en
extra regel zoals door excel amateur reeds was voorgesteld bijgezet.


mvg

Leo

 

[Lummel]

Top!