When a cell is selected, I would like to timestamp the row and move it to another sheet?
Private Sub Worksheet_Change
On Error GoTo Handler
If Target.Column = 11 And Target.Value = "COMPLETE" Then
Application.EnableEvents = False
Target.Offset(0, 2) = Format(Now(), "mm-dd-yyyy hh:mm")
Application.EnableEvents = True
End If
Handler:
If Target.Cells.Count > 1 Then Exit Sub
If Not Intersect(Target, Columns(11)) Is Nothing Then
If UCase(Target.Value) = "COMPLETE" Then
Range("A" & Target.Row).Resize(1, 13).Copy Sheets("Closed Request").Cells(Rows.Count, 1).End(xlUp)(2)
Target.EntireRow.Delete
End If
End If
End Sub