VBA to Move rows in a sheet based on the project Status

Tiffany-

I have attached a sample workbook for your reference.  You will need to paste this code in the Project List worksheet code module in the attached file for it to work properly:

1. Alt + F11 (Access VBE)

2. Double click the icon in the Project Explorer that says Project List

3. Paste the code

Private Sub Worksheet_Change(ByVal Target As Range)
    On Error Resume Next
    Application.EnableEvents = False
    'If Cell that is edited is in column U and the value is completed then
    If Target.Column = 21 And Target.Value = "Completed" Then
        'Define last row on completed worksheet to know where to place the row of data
        LrowCompleted = Sheets("Completed").Cells(Rows.Count, "A").End(xlUp).Row
        'Copy and paste data
        Range("A" & Target.Row & ":U" & Target.Row).Copy Sheets("Completed").Range("A" & LrowCompleted + 1)
        'Delete Row from Project List
        Range("A" & Target.Row & ":U" & Target.Row).Delete xlShiftUp
    End If
    Application.EnableEvents = True
End Sub

Please note that you may need to adjust the worksheet names in the VBA code based on your actual worksheet names.