Excel根据单元格值复制到特定工作表

Question

I'm currently trying to copy text from my front sheet to a variant sheet.

What I want is to copy cells J19,J20,J21 to cells A1,B1,C1 of the different sheets. J19 decides which sheet to copy to as each agent has their own sheet which has a macro pulling the agent names into a data validation onto J19.

J19 = Agent Name

J20 = Holiday Start Date

J21 = Holiday End Date

How do I change Set wsDestin = Sheets("Agent1") so that it looks at J19 to decide the destination cell.

Sub CopyColumnP()
    Dim wsSource As Worksheet
    Dim wsDestin As Worksheet
    Dim lngDestinRow As Long
    Dim rngSource As Range
    Dim rngCel As Range

    Set wsSource = Sheets("Front")
    Set wsDestin = Sheets("Agent1")

    With wsSource

        Set rngSource = .Range(.Cells(19, "J"), .Cells(.Rows.Count, "J").End(xlUp))
    End With

    For Each rngCel In rngSource
        If rngCel.Value = "Design" Then
            With wsDestin
                lngDestinRow = .Cells(.Rows.Count, "A").End(xlUp).Offset(1, 0).Row
                rngCel.EntireRow.Copy Destination:=wsDestin.Cells(lngDestinRow, "A")
            End With
        End If
    Next rngCel
    End Sub

Answer 1

It's easy like this:

Set wsDestin = ThisWorkbook.Worksheets(wsSource.Range("J19").Value)

To check if the sheet exists end prevent errors use:

On Error Resume Next
    Set wsDestin = ThisWorkbook.Worksheets(wsSource.Range("J19").Value)
    If Not Err.Number = 0 Then 
        MsgBox "Sheet '" & wsSource.Range("A1").Value & "' not found."
        Exit Sub
    End If
On Error GoTo 0

---

Or if J19 doesn't contain the destination worksheet name but you need to select a worksheet based on J19's value then use:

Select Case wsSource.Range("J19").Value
    Case "AAA" 'if value of J19 is AAA select sheet A
        Set wsDestin = Sheets("A")

    Case "B", "C" 'if value of J19 is B or C select sheet BC
        Set wsDestin = Sheets("BC")

    Case Else
        MsgBox "no corresponding worksheet found."
End Select