Results 1 to 4 of 4

Thread: Copy data to two different sheets

Threaded View

Previous Post Previous Post   Next Post Next Post
  1. #1
    VBAX Newbie
    Joined
    Jul 2024
    Posts
    1
    Location

    Copy data to two different sheets

    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
    Last edited by Aussiebear; 07-24-2024 at 02:30 PM.

Posting Permissions

  • You may not post new threads
  • You may not post replies
  • You may not post attachments
  • You may not edit your posts
  •