ошибка определения приложения или объекта в vba по формуле vlookup

Question

Нужна помощь в разрешении кода ниже. Я не могу получить значение vlookup с другого листа, его ошибка всегда указывает «ошибка определения приложения или объекта»

For i = 1 To lrr
If Range("D" & i).Value = "" Then 'if cell in A is empty

On Error GoTo 0

Range("D" & i).FormulaR1C1 = "=VLookup(RC[-1], ('C:\Macros\[Consolidated BTG with Search Terms.xlsx]AU'!B:D),3,0)"
                                                 OR (with Sheet name by user input)
Range("D" & i).Formula = "=VLookup(RC[-1], Workbooks(nw).Sheets(MP).Range('B:D'), 3, 0)"

End If

Я пытаюсь получить значения для указанного значения c, если оно пустое а затем vlookup с другого листа и прошлое как особенное (значения). Я застрял здесь. Пожалуйста, помогите

Answer 1

вы смешиваете ссылки A1 и R1C1. Выберите один и убедитесь, что все ссылки используют его.

Итак, либо:

Range("D" & i).FormulaR1C1 = "=VLookup(RC[-1], ('C:\Macros\[Consolidated BTG with Search Terms.xlsx]AU'!C2:C4),3,0)"

Или:

Range("D" & i).FormulaR1C1 = "=VLookup(RC[-1]," & Workbooks(nw).Sheets(MP).Range("B:D").Address(1,1,xlR1C1,1) & ", 3, 0)"