Coping Formula to LastRow

[MM91]

Hi I am trying to include a macro that will copy formulas down until the last row of data but it keeps giving me a compile error:Expected end of statement.
The first is trying to copy a vlookup formula, the second line is trying to copy a simple row number

Thanks!

Sub CopyFormulas()

Range("G7:G" & LastRow).Formula = "=IFERROR(VLOOKUP(TEXT(G7,0),'N:\X:\Purchase_Part_Library\[BOM NAV Item List.xlsx]Sheet1'!$A$8:$I$1000000,5,FALSE),"N/A")"
Range("Q7:Q" & LastRow).Formula = "=ROW()-6"


End Sub

 

[Joe4]

It is because the " in your formula are being identified as VBA text qualifiers.

Try changing this line:

Range("G7:G" & LastRow).Formula = "=IFERROR(VLOOKUP(TEXT(G7,0),'N:\X:\Purchase_Part_Library\[BOM NAV Item List.xlsx]Sheet1'!$A$8:$I$1000000,5,FALSE),"N/A")"

to this:

Range("G7:G" & LastRow).Formula = "=IFERROR(VLOOKUP(TEXT(G7,0),'N:\X:\Purchase_Part_Library\[BOM NAV Item List.xlsx]Sheet1'!$A$8:$I$1000000,5,FALSE),""N/A"")"

Also, I can only assume that you have defined LastRow as a global variable and populated its values elsewhere, because it is not in the code.

 

[MM91]

Awesome I didn't have it defined as a global variable. Also the addition of the quote symbols fixed the compiling error. Thank you I really appreciate the help!!

 

[Joe4]

You are welcome.