Snasui Excel Forum

Code: Select all

Sub mylookup4()
    Dim lastrow As Long
    lastrow = Sheet1.Range("A" & Rows.Count).End(xlUp).Row
    Set myrange = Sheet4.Range("A:D")
    For i = 4 To lastrow
    Cells(i, 21) = Application.WorksheetFunction.VLookup(Cells(i, 1), myrange, 3, False)
    Cells(i, 21) = Cells(i, 21)
    Next i
End Sub

Code: Select all

'...Other code
On Error Resume Next
For i = 1 To lastrow
    Cells(i, 2) = Application.WorksheetFunction.VLookup(Cells(i, 1), myrange, 2, False)
    Cells(i, 2).Value = Cells(i, 2).Value
Next i