ВПР

[ПавелАлександрович]

мне достаточно на 2ом листе сделать так чтобы впр работал на макросе подобного написания

[ПавелАлександрович]

Sub Макрос1()
Dim lLastRow As Long
lLastRow = Cells(Rows.Count, 3).End(xlUp).Row
If lLastRow = 1 Then Exit Sub
Cells(lLastRow, 3).FormulaLocal = "=ВПР(A:A;Лист1!A:B;2;ЛОЖЬ)-B2"
Cells(lLastRow, 3) = Cells(lLastRow, 3)
End Sub

Прописал так, получилось что формулу он ставит в моем 3 столбце только 4 строку берет почему то, покажите где прописывать строки, и у мя ситуация намного сложнее у мя там куча столбцов и строк и впр на другой файл вообще далеко не с соседней вкладки



Книга3.rar

[Hugo121]

Я там выше добавил файл, посмотрите.

[ПавелАлександрович]

да я видел, а можно тоже самое только чтоб прописать сразу весь диапазон, к примеру 500 строк???

[Hugo121]

Этот (выше) пример кода ставит формулу как раз только в последнюю ячейку третьего столбца, это для Вас лишнее, Вам вероятно нужно прописать в коде конкретно все Ваши формулы, каждую индивидуально. Но может где-то (как в примере)можно AutoFill использовать.
Запишите рекордером протягивание формулы вниз - получите пример кода. После переделки:

Sub obnovitj()
[c2].Formula = "=VLOOKUP(A:A,Лист1!A:B,2,FALSE)-B2"
[c2].AutoFill Destination:=Range("C2:C4"), Type:=xlFillDefault
[c2:c4].Value = [c2:c4].Value
End Sub

Если можно протянуть сразу на 500 строк -
...Range("C2:C502")...
[c2:c502].Value = [c2:c502].Value

[ПавелАлександрович]

У меня такая ситуация что нужно впр из другого файла на большое кол-во строк, я попробовал сделать так:

Sub obnovitj()
[W6].Formula = "=VLOOKUP(D:D;'[ABC_110110.xls]Лист1'!$C:$I;7;Ложь)"
[W6].AutoFill Destination:=Range("W6:W689"), Type:=xlFillDefault
[W6:W689].Value = [W6:W689].Value
End Sub

то есть,
ищем по наименованию значений D:D, берем данные в файле ABC_110110.xls и по сравнению с данными столбца, беру значения из столбца I (7 столбец от искомого значения) и все это мы вставляем в столбец W (W6:W689), нужно как то прикладывать файл на вкладку или в чем ошибка???

[Hugo121]

"Ложь" не годится, пишите или "FALSE", или 0:

[W6].Formula = "=VLOOKUP(D:D;'[ABC_110110.xls]Лист1'!$C:$I;7;0)"

Если не сработает, замените ";" на "," (3 штуки).
Остальное вроде в порядке.

P.S. Нужно полный путь к файлу ABC_110110.xls прописать, т.к. файл вероятно не открыт в это время.
Вроде
=VLOOKUP(A:A;'C:\Documents and Settings\юзер\Desktop\[Книга1.xls]Лист1'!$A:$B;2;FALSE)

[ПавелАлександрович]

спасибо, работает