Macro Code to Transfer Data to Sheet 2

July 13, 2017 at 14:09:32
Specs: Windows 7
I am entering data in sheet 1 (working) and want it to transfer to sheet 2 (completed) when I type "X" or "x" (sometimes my employees are in caps) in column A. I am utilizing columns B - N for information. I would then like the additional rows to move up. Any help would be amazing! I've been trying for 3 hours!

message edited by BossLady


See More: Macro Code to Transfer Data to Sheet 2

Reply ↓  Report •

#1
July 13, 2017 at 18:20:50
Private Sub Worksheet_Change(ByVal Target As Range)
 If Target.Column = 1 And Target.Cells.Count = 1 Then
  If UCase(Target) = UCase("x") Then
   Application.EnableEvents = False
    nxtRw = Sheets(2).Range("A" & Rows.Count).End(xlUp).Row + 1
     Target.EntireRow.Copy Sheets(2).Range("A" & nxtRw)
     Target.EntireRow.Delete Shift:=xlUp
   Application.EnableEvents = True
  End If
 End If
End Sub

Click Here Before Posting Data or VBA Code ---> How To Post Data or Code.


Reply ↓  Report •
Related Solutions


Ask Question