Verplaats regel naar ander blad als cel bepaalde waarde bereikt

[goof2808]

Hi,

Ik heb een bestand waar ik mijn taken in bij houd.
Als een taak afgerond is wil ik dat de taak(lees: regel) naar een ander blad(Archief) wordt verplaatst.

In kolom F voer ik de status van een taak in, als die status 'FIN' is moet de regel van A5 t/m K5(in het bijgevoegde voorbeeld) verplaatst worden naar het blad 'Archief' onder een eerder afgeronde taak.

Kan iemand mij helpen?

Alvast bedankt,
govi

 

[goof2808]

Ik heb het antwoord al:

Private Sub Worksheet_Change(ByVal Target As Range)
     
    If Target.Cells.Count > 1 Then Exit Sub
    If Target.Column <> 6 Then Exit Sub
    If Target = "FIN" Then
        Range("A" & Target.Row & ":K" & Target.Row).Copy Sheets("Archief").Cells(Rows.Count, 1).End(xlUp).Offset(1)
    End If
     
End Sub

 

[Wigi]

Bedankt om het zelf op te lossen en ook het te melden. :thumb: