I believe this does what you are looking for:
Public Sub ebbo()
For i = 1 To Sheets("Sheet1").Cells(Rows.Count, 1).End(xlUp).Row
For j = 1 To Sheets("Sheet2").Cells(Rows.Count, 1).End(xlUp).Row
If Sheets("Sheet1").Cells(i, 3).Value = Sheets("Sheet2").Cells(j, 2).Value Then
Sheets("Sheet1").Cells(i, 3).Value = Sheets("Sheet2").Cells(j, 1).Value
End If
Next j
Next i
End Sub
Let me know if I got that wrong.
You could also use a vlookup in column D and then paste the values over to column C, if you don't want to use vba.
Bookmarks