Формула ВПР в макросе...

[Иванов_ДМ]

Помогите, пожалуйста, разобраться с формулой!
Есть код, который вставляет формулу ВПР в диапазон ячеек, которая подтягивает значение в 1 таблицу из другой.

Проблема в том, что формула в ячейку помещается, но отображает #ИМЯ?, а вычисленное значение показывает, только если активизировать курсор в ячейке... А должно быть сразу значение...
Что я сделал не так? Как активизировать формулу, чтобы сразу было значение?

И еще одна проблема. Если в макросе записывать обычную конструкцию для ВПР, чтобы не выскакивало #Н/Д, а именно:
ЕСЛИ(ЕНД(ВПР(RC[-1],Лист1!C[-1]:C,2,0)),"",ВПР(RC[-1],Лист1!C[-1]:C,2,0))
то макрос вообще ошибку выдает... Как его перебороть?

[Иванов_ДМ]

Товарищи, ну помогите ктоньть!!! Оч надо!!!!

[SAS888]

Можно, например, так:

Sub Вид()
    Dim Cell As Range: Application.ScreenUpdating = False
    For Each Cell In Sheets("Лист2").[B2:B5]
        Cell.FormulaR1C1 = "=VLOOKUP(RC[-1],Лист1!R2C1:R4C2,2,0)"
        If IsError(Cell) Then Cell = ""
    Next
End Sub

Пример во вложении. Запустите макрос "Вид".
Обратите внимание, что в макросе специально установлен диапазон не "B2:B4", а "B2:B5". Это для того, чтобы показать на примере, что при возникновении ошибки при применении функции, ячейка очищается.

[Иванов_ДМ]

Отлично, спасибо SAS888, то, что надо!!!

Хотя глюка с моим первоначальным вариантом если честно все равно не пойму... Другие формулы вносимые таким образом работают, а эта - нет. Даже если вместо ВПР ставить VLOOKUP ...

[SAS888]

Хотя глюка с моим первоначальным вариантом если честно все равно не пойму

Если воспользоваться Вашим вариантом, то во-первых, нужно чуть-чуть подправить код, а именно:

Sub Вид()
    With ThisWorkbook.Worksheets("Лист2")
        .Range(.Cells(2, 2), .Cells(4, 2)).FormulaR1C1 = "=VLOOKUP(RC[-1],Лист1!R2C1:R4C2,2,0)"
    End With
End Sub

Во-вторых, все равно, потребуется цикл, в котором нужно будет просматривать ячейки диапазона и проверять их на #Н/Д.

[Иванов_ДМ]

А в коде формулы в таблице-источнике надо указывать конкретный диапазон по строкам или можно просто относительные столбцы?

[Иванов_ДМ]

или хотя бы абсолютные столбцы?

[SAS888]

А в коде формулы в таблице-источнике надо указывать конкретный диапазон по строкам или можно просто относительные столбцы?

или хотя бы абсолютные столбцы?

Как Вам угодно. У меня в примере (обратите внимание на квадратные скобки в формуле формата R1C1) сделано так, что искомое значение задается относительным адресом (RC[-1] - это та же строка, столбец со смещением -1), а диапазон таблицы с данными задан абсолютно (Лист1!R2C1:R4C2, т.е. на листе 1 диапазон "B2:D4"). Так сделано потому, что если вдруг Вам вздумается "растягивать" полученную макросом формулу ниже по столбцу, то ничего не нарушится. Т.е. искомое данное будет в той же строке в столбце слева, а адрес таблицы для поиска будет оставаться неизменным. Вы же, сделайте так, как Вам требуется.

[Иванов_ДМ]

Нет, SAS888, вопрос немного не в этом. По ссылкам все понятно...

Я не пойму, почему если в таблице указать только столбцы, например "RC1:RC2", то макрос не срабатывает. А если конкретный диапазон, то все нормально...
А мне нужно, чтобы если в таблицу-источник, из которой тянутся данные, будут добавлены еще новые данные, то они не засчитаются в таблице, куда помещаются данные (диапазон-то старый).

В обычной формуле ВПР это можно решить сразу, указав в таблице-источнике просто столбцы "A:B" например.

Возможно это как-то решить?

[Иванов_ДМ]

Вот пример во вложении как макрос не срабатывает