Automatically Move Row to Another Sheet Based On Cell Value

[jonesey]

Hello all, I've been trying to use other threads on the same topic here, and adjust my VBA data based on my own. However, I can never get it to work - either I don't understand VBA at all (very likely) or my company does not allow these functions. Any help would be useful.

I'm trying to move all rows that have "Complete" from the drop down in row A (Status) in sheet "Active" to sheet "Complete". Thanks!

 

[kevin9999]

You did say "Automatically"? Please try the following on a copy of your workbook. Right click the tab Active, select View Code & paste the following into the code window that appears on the right of screen.

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Cells.CountLarge = 1 And Not Intersect(Range("A:A"), Target) Is Nothing Then
        On Error GoTo Escape
        Application.EnableEvents = False
        If Target.Value2 = "Complete" Then
            With Target.EntireRow
                .Copy Worksheets("Complete").Cells(Rows.Count, "A").End(xlUp).Offset(1)
                .Delete
            End With
        End If
    End If
Continue:
    Application.EnableEvents = True
    Exit Sub
Escape:
    MsgBox "Error " & Err.Number & ": " & Err.Description
    Resume Continue
End Sub