Vlookup Loop Wildcard - VBA

[AndreasT]

Hello,

This is a part of the code that i have written, and what i wanted to do is to add a wildcard at the lookup value like in a common formula for instance : =VLOOKUP("*"&C1&"*";A1:B2;2).
I need to apply the asterists at the beginning and at the end in the code.


Range("E2").Select

For i = 2 To 100
ActiveCell = Application.vlookup(Range("D" & i), Workbooks("Price List.xlsx").Worksheets(1).Range("e2:e70000"), 1, 0)
ActiveCell.Offset(1, 0).Select
Next

Thank you so much!!

 

[tyija1995]

Hey,

Does this work?

ActiveCell = Application.vlookup("*" & Range("D" & i)&"*", Workbooks("Price List.xlsx").Worksheets(1).Range("e2:e70000"), 1, 0)

 

[AndreasT]

Thank you so much!! It´s working!