Auto move row to another tab

[rascal]

I want to move a row to a different tab automatically when a cell has a date in it.

Example:
Three columns: Task, Date Due, Date Completed

When someone enters any date into the "Date Completed" column, the whole row moves to a tab named "Completed"

Any ideas?

[mudraker]

Rascal


You will need to paste this code into the worksheet module for the sheet that you are entering the completed date in

I have assumed that column C is the date completion column


Private Sub Worksheet_Change(ByVal Target As Range)
Dim Ws As Worksheet
Dim NextRow As Long

If Target.Column = 3 Then
Application.EnableEvents = False
If IsDate(Target.Value) Then

Set Ws = Sheets("completed")
NextRow = Ws.Cells(Rows.Count, "c").End(xlUp).Row + 1
Stop
Rows(Target.Row).Copy Destination:=Ws.Rows(NextRow)
Rows(Target.Row).ClearContents
End If
Application.EnableEvents = True
End If
End Sub

[rascal]

Perfect. Thanks a lot. I had to remove the "Stop".