Macro to copy and paste from one sheet to another in the same workbook

[Johnzea]

I have a single workbook with (2) sheet tabs as follows - (Plant Schedule Sheet) and (Master Plant Schedule Sheet)

(Master Plant Schedule Sheet)

https://imgur.com/bR68kqb

(Plant Schedule Sheet)

https://imgur.com/VUoAXSw

What i would like it to do is that whatever number you put in column 'A' row 1, 2, 3 etc on the (Plant Schedule Sheet) it will go to the (Master Plant Schedule Sheet) find the corresponding number then copy and paste the SYM, COMMON, BOTANICAL (QTY not needed) into the (Plant Schedule Sheet) where the number you type resides....

Thank you for any help....

Johnzea

 

[JLGWhiz]

The code would go in the Plant Schedule Sheet code module.

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Cells.Count > 1 Then Exit Sub
Dim sh1 As Worksheet, sh2 As Worksheet, fn As Range
Set sh1 = Sheets("Master Plant Schedule Sheet")
Set sh2 = Sheets("Plant Schedule Sheet")
    If Not Intersect(Target, Range("A:A")) Is Nothing Then
        Set fn = sh1.Range("A:A").Find(Target.Value, , xlValues, xlWhole)
            If Not fn Is Nothing Then
                Target.Offset(, 1) = fn.Offset(, 1).Value
                Target.Offset(, 3).Resize(, 2) = fn.Offset(, 3).Resize(, 2).Value
            End If
    End If
End Sub

 

[Johnzea]

Works exactly as requested.. Thank you very, very much Whiz

Johnzea

 

[JLGWhiz]

Works exactly as requested.. Thank you very, very much Whiz

Johnzea

You're welcome,
regards, JLG