Going back to A1

[DataMngr]

I have an excel waiting list that uses VBA to copy and paste an entire row to another worksheet.

However, now when you try to navigate through the worksheet using <tab> or the arrow, it relocates me to A1 each and every time there is information put into a cell.

Is there any way to stop this and get it back to using tab and the over arrow?

Thanks,

Ashton

 

[S.H.A.D.O.]

Is there any code in the WorkSheet itself, like a change event?
Posting the code might help.

 

[DataMngr]

Yes, here is the code:


Private Sub Worksheet_Change(ByVal Target As Range)
Application.ScreenUpdating = False
Dim i As Integer
Dim b As Integer
Dim Lastrow As Long
Lastrow = Cells(Rows.Count, "A").End(xlUp).Row
Lastrowb = Sheets("Complete").Cells(Rows.Count, "A").End(xlUp).Row + 1
Lastrowc = Cells(Rows.Count, "A").End(xlUp).Row + 1
Sheets("Active").Activate
For i = 1 To Lastrow
If Cells(i, 17).Value = "COMPLETE" Then
Rows(i).Copy Destination:=Sheets("Complete").Rows(Lastrowb)
Lastrowb = Lastrowb + 1
End If
Next

For b = Lastrowc To 1 Step -1
If Cells(b, 17).Value = "COMPLETE" Then
Rows(b).EntireRow.Delete
End If
Next
Cells(1, 1).Select
Application.ScreenUpdating = True
Lastrow = Cells(Rows.Count, "A").End(xlUp).Row
Lastrowb = Sheets("Canceled").Cells(Rows.Count, "A").End(xlUp).Row + 1
Lastrowc = Cells(Rows.Count, "A").End(xlUp).Row + 1
Sheets("Active").Activate
For i = 1 To Lastrow
If Cells(i, 17).Value = "CANCEL" Then
Rows(i).Copy Destination:=Sheets("Canceled").Rows(Lastrowb)
Lastrowb = Lastrowb + 1
End If
Next

For b = Lastrowc To 1 Step -1
If Cells(b, 17).Value = "CANCEL" Then
Rows(b).EntireRow.Delete
End If
Next
Cells(1, 1).Select
Application.ScreenUpdating = True

With Sheets("Active")
Dim lr As Long
Set sh = ActiveSheet

Cells(1, 1).Select
Application.ScreenUpdating = True
Lastrow = Cells(Rows.Count, "A").End(xlUp).Row
Lastrowb = Sheets("Pending").Cells(Rows.Count, "A").End(xlUp).Row + 1
Lastrowc = Cells(Rows.Count, "A").End(xlUp).Row + 1
Sheets("Active").Activate
For i = 1 To Lastrow
If Cells(i, 17).Value = "PENDING" Then
Rows(i).Copy Destination:=Sheets("Pending").Rows(Lastrowb)
Lastrowb = Lastrowb + 1
End If
Next

For b = Lastrowc To 1 Step -1
If Cells(b, 17).Value = "PENDING" Then
Rows(b).EntireRow.Delete
End If
Next
Cells(1, 1).Select
Application.ScreenUpdating = True
End With

End Sub

 

[S.H.A.D.O.]

It's because of the line...

Cells(1, 1).Select

...at the bottom of the SUb.

I hope this helps!

EDIT: If posting code it is good practice to use code tags, it makes the code much easier to read and debug.

 

[DataMngr]

Thank you!! It worked great.

 

[S.H.A.D.O.]

You're welcome DataMngr, thanks for the feedback
Have a great weekend.