Приложение формулы VBA / Ошибка, определенная объектом

Question

Я знаю, что существует множество таких вопросов;но я пытался реализовать вещи из разных, которые я видел, и пока не нашел правильную структуру.Я продолжаю получать ошибки, определенные приложением / объектом.Я уверен, что это кавычки, но я не могу понять, где у меня слишком много против недостаточно.Конечная цель состоит в том, чтобы эта формула появлялась после определенного диапазона строк (переменная newrows) и динамически обновлялась по мере заполнения каждой строки после этого.

Я попытался удалить лишние кавычки вокруг строковых разделов, но затем выдает ошибку «Ожидается: конец оператора» в начале кода.Когда я просматриваю его в Notepad ++, он выглядит правильно, но все равно выдает ошибки в самом VBA при запуске макроса в Excel.

Range("R" & newrows & ":R1000").Formula = "=iferror(IF(""E""" & newrows & "= ""Planning"",VLOOKUP(""D""" & newrows & ",DataCheck4!A:F,3,FALSE),IF(""E""" & newrows & "=""Fieldwork"",VLOOKUP(""D""" & newrows & ",DataCheck4!A:F,4,FALSE),IF(""E""" & newrows & "=""Reporting"",VLOOKUP(""D""" & newrows & ",DataCheck4!A:F,5,FALSE),IF(""E""" & newrows & "=""Wrap Up"",VLOOKUP(""D""" & newrows & ",DataCheck4!A:F,6,FALSE),IF(""E""" & newrows & "=""Proj. Mgmt"",VLOOKUP(""D""" & newrows & ",DataCheck4!A:F,6,FALSE),"""")))))"

Код должен искать значение на основезначение ячейки в строке (столбец E) и название проекта (столбец D).Newrows - это числовая переменная, генерируемая динамическим списком.В верхней части листа есть существующие задачи, которые я не хочу перезаписывать, но мне нужна эта формула во всех ячейках после последней строки этого списка.Я изучал VBA, так как работал над этим проектом, так что, возможно, я просто еще не сталкивался с ним, поэтому я ценю помощь!

ETA: Этим утром я попытался изменить последовательность свместо этого переводит в переменную с буквой столбца и получает ту же ошибку, определенную приложением.

firstloc = "E" & newrows
secondloc = "D" & newrows
Range("R" & newrows & ":R1000").Formula = "=iferror(IF(" & firstloc & "= ""Planning"",VLOOKUP(" & secondloc & ",DataCheck4!A:F,3,FALSE),IF(" & firstloc & "=""Fieldwork"",VLOOKUP(" & secondloc & ",DataCheck4!A:F,4,FALSE),IF(" & firstloc & "=""Reporting"",VLOOKUP(" & secondloc & ",DataCheck4!A:F,5,FALSE),IF(" & firstloc & "=""Wrap Up"",VLOOKUP(" & secondloc & ",DataCheck4!A:F,6,FALSE),IF(" & firstloc & "=""Proj. Mgmt"",VLOOKUP(" & secondloc & ",DataCheck4!A:F,6,FALSE),"""")))))"    

Answer 1

Думаю, наконец-то все заработало так, как я хотел.Спасибо всем за помощь.Отсутствовали скобки (спасибо VBasic2008).Также не понравилось сочетание буквы столбца и переменной, поэтому я сделал это за пределами последовательности.Наконец, я удалил iferror и просто использовал другой результат оператора if, чтобы вернуть null, если не было выполнено ни одно из условий.

Dim firstloc As String
Dim secondloc As String
Dim varloc As String

firstloc = "E" & newrows
secondloc = "D" & newrows
varloc = "R" & newrows
Range("R" & newrows & ":R1000").Formula = "=IF(" & firstloc & "= ""Planning"",VLOOKUP(" & secondloc & ",DataCheck4!A:F,3,FALSE),IF(" & firstloc & "=""Fieldwork"",VLOOKUP(" & secondloc & ",DataCheck4!A:F,4,FALSE),IF(" & firstloc & "=""Reporting"",VLOOKUP(" & secondloc & ",DataCheck4!A:F,5,FALSE),IF(" & firstloc & "=""Wrap Up"",VLOOKUP(" & secondloc & ",DataCheck4!A:F,6,FALSE),IF(" & firstloc & "=""Proj. Mgmt"",VLOOKUP(" & secondloc & ",DataCheck4!A:F,6,FALSE),"""")))))"

Answer 2

Формула змеи

Если D и E являются буквами столбцов, то

Sub SnakeFormula()

    Range("R" & newrows & ":R1000").Formula = "=iferror(IF(E" & newrows _
            & "=""Planning"",VLOOKUP(D" & newrows _
            & ",DataCheck4!A:F,3,FALSE),IF(E" & newrows _
            & "=""Fieldwork"",VLOOKUP(D" & newrows _
            & ",DataCheck4!A:F,4,FALSE),IF(E" & newrows _
            & "=""Reporting"",VLOOKUP(D" & newrows _
            & ",DataCheck4!A:F,5,FALSE),IF(E" & newrows _
            & "=""Wrap Up"",VLOOKUP(D" & newrows _
            & ",DataCheck4!A:F,6,FALSE),IF(E" & newrows _
            & "=""Proj. Mgmt"",VLOOKUP(D" & newrows _
            & ",DataCheck4!A:F,6,FALSE),""""))))))"

End Sub