How To automatically Move Entire Row To a new sheet Based On Cell Value In Excel

[Jd2023]

Hi all

I would like an entire row to automatically move from the 'work' sheet to the 'finished' sheet, each time the 'AC' column is populated with a date?

Would appreciate any help on this.

Thanks
Jasmine

 

[mumps]

Copy and paste this macro into the worksheet code module. Do the following: right click the tab name for your "work" sheet and click 'View Code'. Paste the macro into the empty code window that opens up. Close the code window to return to your sheet. Enter a date in column AC and press the ENTER key.

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.CountLarge > 1 Then Exit Sub
    If Target.Column <> 29 Then Exit Sub
    Application.ScreenUpdating = False
    Application.EnableEvents = False
    If IsDate(Target) Then
        Target.EntireRow.Copy Sheets("finished").Cells(Sheets("finished").Rows.Count, "A").End(xlUp).Offset(1)
        Target.EntireRow.Delete
    Else
        MsgBox ("You have not entered a date.")
    End If
    Application.EnableEvents = True
    Application.ScreenUpdating = True
End Sub

 

[Jd2023]

That is working great! Thank you so much!

 

[mumps]

You are very welcome.