Hi
I am trying to get a simple code that automaticly copies data to another sheet if I put a W in Column 12 at the moment I am using the code below but I think it is slowing the opening and closing of my spreadsheet has anyone got a better one. If they have I also need a version of it that moves it to another sheet and removes copy on current sheet I have put the 2 examples below.
Copy Only - If W in colunm 12 copy complete row to sheet 3
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 12 And Target.Cells.Count = 1 Then
Target.EntireRow.Copy Destination:=Sheets(3).Cells(Rows.Count, 1).End(xlUp).Offset(1, 0)
End If
End Sub
Copy and Delete from orginal- If F in colunm 13 copy to sheet4
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 13 And Target.Cells.Count = 1 Then
Target.EntireRow.Copy Destination:=Sheets(4).Cells(Rows.Count, 1).End(xlUp).Offset(1, 0)
Target.EntireRow.Delete shift:=xlUp
End If
End Sub
Any ideas or code would be much appricated
Angela
Bookmarks