Good day the below code is what I am currently using. I am needing to figure out if there is a way to copy target area to two different sheets rather than just the one? Any help would be greatly appreciated.
Private Sub Worksheet_Change(ByVal Target As Range) 'Check to see only one cell updated If Target.CountLarge > 1 Then Exit Sub 'Check to see if entry is made in column O after row 2 and is set to "Ordered" If Target.Column = 15 And Target.Row > 2 And Target.Value = "Ordered" Then Application.EnableEvents = False 'Copy columns A to AA to order board sheet in next available row Range(Cells(Target.Row, "A"), Cells(Target.Row, "AA")).Copy Sheets("Order Board").Cells(Rows.Count, "A").End(xlUp).Offset(1, 0) 'Delete current row after copied Rows(Target.Row).Delete Application.EnableEvents = True End If End Sub





Reply With Quote