Snasui Excel Forum

Code: Select all

Sub Macro1()

    With Sheets("Sheet2")
        For Each r In .Range("M2")
            .Range("C:C").Find(What:=r.Value, LookAt:=xlWhole).Offset(0, 1).Value = .Range("N2")
        Next
    End With

End Sub

Code: Select all

With Sheets("Sheet2")
    .Range("C:C").Find(What:=.Range("m2").Value, _
        LookAt:=xlWhole).Resize(1, 9).Value = .Range("m2:u2").Value
End With