Dim Fnd As Range, Cl As Range
With Sheets("GS draft")
For Each Cl In .Range("K3", .Range("K" & Rows.Count).End(xlUp))
Set Fnd = Sheets("Store Shelf").Columns("A:A").Find(Cl.Value, , xlFormulas, xlWhole, xlByRows, xlNext, False, , False)
If Not Fnd Is Nothing Then Cl.Offset(1, 0).Value = Fnd.Offset(, 2).Value
Next Cl
End With
'
End Sub
Can some one help me to above formula because when I try to run it. other values in column K is deleted.
With Sheets("GS draft")
For Each Cl In .Range("K3", .Range("K" & Rows.Count).End(xlUp))
Set Fnd = Sheets("Store Shelf").Columns("A:A").Find(Cl.Value, , xlFormulas, xlWhole, xlByRows, xlNext, False, , False)
If Not Fnd Is Nothing Then Cl.Offset(1, 0).Value = Fnd.Offset(, 2).Value
Next Cl
End With
'
End Sub
Can some one help me to above formula because when I try to run it. other values in column K is deleted.