Cut and Paste entire row from one worksheet to another

[chrisageorge]

Hello all,
I am attempting to cut and paste an entire row from a change action
from one worksheet to one named "Closed" with the current script:

Public Sub Worksheet_Change(ByVal Target As Excel.Range)
If Target.Value = "Complete" Then
Target.EntireRow.Cut
Closed.Paste
End If
End Sub

This works but after pasting the row, it throws an error saying target
does not equal anything essentially. Also, this script is embedded in
the worksheet.

Is there any way to fix this?

Any and all help is welcome!

 

[Dave Peterson]

Tell excel to stop looking for changes:

Option Explicit
Public Sub Worksheet_Change(ByVal Target As Excel.Range)
If Target.Value = "Complete" Then
Application.EnableEvents = False
Target.EntireRow.Cut
Closed.Paste
Application.EnableEvents = True
End If
End Sub

 

[chrisageorge]

Thank you for the help but I have a few more questions for anyone
willing.

How would I do these actions:
Paste to next empty row (the row after the last used one)
Delete/remove the row were the information came from?

Thank you for solving a seemingly simple issue I am having!

-- Chris

 

[chrisageorge]

Here is what I now have, but it throws a 1004 error when trying to
select. Individually each work well. Any Suggestions?

Option Explicit
Public Sub Worksheet_Change(ByVal Target As Excel.Range)
If Target.Value = "Complete" Then
Application.EnableEvents = False
Target.EntireRow.Cut
FindLast2
'Closed.Paste
Application.EnableEvents = True
End If
End Sub

Public Sub FindLast2()
Closed.Range("A400").End(xlUp).EntireRow.Select
Selection.Insert Shift:=xlDown
End Sub

 

[Dave Peterson]

You can't select a range unless that sheet is active.

Maybe...(Untested):

Public Sub FindLast2()
Closed.Range("A400").End(xlUp).EntireRow.Insert Shift:=xlDown
End Sub

 

[chrisageorge]

Thank you! Works great.

You can't select a range unless that sheet is active.

Maybe...(Untested):

Public Sub FindLast2()
Closed.Range("A400").End(xlUp).EntireRow.Insert Shift:=xlDown
End Sub