Rij automatisch verplaatsen naar ander tabblad bij specifiek woord in cel

[SanneM]

Had van de week ook al een vraag gesteld mbt dit zelfde exceldocument. Daar ben ik uitgekomen. Maar nu zou ik toch nog graag willen weten of het mogelijk is om een hele rij automatisch te verplaatsen naar een ander tabblad.

Ik heb een To do lijst gemaakt, als de status op "Afgehandeld" wordt gezet zou ik graag willen zien dat deze hele rij naar Tabblad 2 verplaatst wordt.

Had al wel wat VBA codes gevonden via Google, maar heb er te weinig verstand van om deze aan te passen naar mijn bestand.

Iemand die me hiermee wil en kan helpen?

Zie bijgevoegd voorbeeld: Bekijk bijlage Voorbeeld_excel_afgehandeld.xlsx

 

[Roncancio]

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Count = 1 Then
    If Target.Value = "Afgehandeld" Then
        Range(Target.EntireRow.Address).Cut Blad2.Range("A" & Rows.Count).End(xlUp).Offset(1, 0)
    End If
End If
End Sub

Met vriendelijke groet,



Roncancio

 

[SanneM]

Thanx voor je reactie! Ga hier mee aan de slag!

 

[ExcelAmateur]

SanneM,

Graag de volgende keer als je een vraag steld op 2 Forums vermeld dit dan even. :thumb:

 

[SanneM]

Zal ik doen. Wist niet dat dezelfde mensen op beide forums zitten. Sorry voor nu dan.