ItalianPlatinum
Well-known Member
- Joined
- Mar 23, 2017
- Messages
- 793
- Office Version
- 365
- 2019
- Platform
- Windows
Hello - to accomplish multiple vlookups I have the below code. It doesn't, well to me, seem very efficient in the VBA world. is there a better more precise way i should be accomplishing the below?
VBA Code:
Sheets("MAIN").Range("I8").Formula = "=VLOOKUP(D8,'FT'!B:J,2,false)"
Sheets("MAIN").Range("J8").Formula = "=VLOOKUP(D8,'FT'!B:J,3,false)"
Sheets("MAIN").Range("K8").Formula = "=VLOOKUP(D8,'FT'!B:J,4,false)"
Sheets("MAIN").Range("L8").Formula = "=VLOOKUP(D8,'FT'!B:J,5,false)"
Sheets("MAIN").Range("M8").Formula = "=VLOOKUP(D8,'FT'!B:J,6,false)"
Sheets("MAIN").Range("N8").Formula = "=VLOOKUP(D8,'FT'!B:J,7,false)"
Sheets("MAIN").Range("O8").Formula = "=VLOOKUP(D8,'FT'!B:J,8,false)"
Sheets("MAIN").Range("P8").Formula = "=VLOOKUP(D8,'FT'!B:J,9,false)"
Sheets("MAIN").Range("Q8").Formula = "=G8-N8"
Sheets("MAIN").Range("I8:Q8").Select
Selection.AutoFill Destination:=Range("I8:Q" & Range("A" & rows.count).End(xlUp).row)
Range(Selection, Selection.End(xlDown)).Select