VB Script To Identify Matching Values and Enter Associated Data

[dimyona]

I have two sheets. Sheet1 contains a list of SKUS(A) and associated UPC's(B). The other list contains just UPCs(B). I'm working on a script to identify the matching cells UPCS between both sheets, and copy the associated SKU from Sheet1 into matching cells in column A Sheet2.

I hope I'm making myself clear. Any ideas here?

 

[JLGWhiz]

See if this will work. Copy the code to the standard code module 1.

Sub matchNcpy()
Dim sh1 As Worksheet, sh2 As Worksheet, lr As Long, rng As Range, c As Range, fLoc As Range
Set sh1 = Sheets(1) 'Edit sheet name
Set sh2 = Sheets(2) 'Edit sheet name
lr = sh2.Cells(Rows.Count, 2).End(xlUp).Row
Set rng = sh2.Range("B2:B" & lr)
    For Each c In rng
        Set fLoc = sh1.Range("B:B").Find(c.Value, , xlValues)
            If Not fLoc Is Nothing Then
                fLoc.Offset(0, -1).Copy c.Offset(0, -1)
            End If
    Next
End Sub