Vlookup code not working

[Newbie74]

Hi,

I have the following code which is working, however I need to keep running the Macro for each line for it to work properly. When I put it into a Do Until Loop I get an error on every line (I've added my code that I am typing for the loop as a comment on the code below). How can I knock this out into a do until loop without getting errors on each line?

Sub LookingUp()


Dim Luk As String
Dim Sal As Variant


Luk = ActiveCell.Offset(0, -2)




'Do Until ActiveCell.Offset(0, -2) = ""


On Error Resume Next


Sal = Application.WorksheetFunction.VLookup(Luk, Sheets("Sheet1").Range("E:F"), 2, False)


If Err.Number = 0 Then
ActiveCell.Value = Sal


Else
ActiveCell = "Error"
End If


ActiveCell.Offset(1, 0).Select


'Loop
End Sub

 

[Jonmo1]

Welcome to the board.

You have to update the value of Luk within the loop.

You gave it a value on the first line
Luk = ActiveCell.Offset(0, -2)

However, the value of Luk does NOT update as the ActiveCell changes while you're running the loop.

 

[Newbie74]

Hi Jonmo1, Thanks for your speed response!

I don't understand what you mean by the value of Luk not updating. How should the code look like as I did try Do until activecell.offset(0,-1) and it still did not work.

 

[Jonmo1]

Put
Luk = ActiveCell.Offset(0, -2)

AFTER the line that starts the loop

Do Until ActiveCell.Offset(0, -2) = ""
    Luk = Activecell.Offset(0, 2)

    Do stuff...

Loop

 

[Newbie74]

Thanks Jonmo1 for your patience I appreciate your help buddy!