ВПР

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

Здравствуйте, я использую формулу ВПР для сбора данных из ячеек одного файла в другом по наименованию, но есть проблема, как сделать так чтоб я мог с помощью этой формулы брать значения из другого файла и как то их фиксировать в виде числа а не ссылки для ее неизменности пока я сам не обновлю значения

[vikttur]

???
Например?

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

Как сделать так чтобы ссылки всех команд были скрыты в макросе а в ячейке выводилось бы только число а не ссылка на ячейку или команда



Пример:
Книга1.rar

[kuklp]

Например:

Public Sub www()
    Dim sh As Worksheet, ws As Worksheet, i&
    Set sh = Sheets(1)
    Set ws = Sheets(2)
    For i = 2 To Cells(Rows.Count, 1).End(xlUp).Row
        ws.Cells(i, 3) = sh.Cells(i, 2) - ws.Cells(i, 2)
    Next
End Sub

[Hugo121]

Можно макросом поставить формулу, затем заменить её на полученное значение.
Пример, без привязки к файлу:

Sub Макрос1()
Dim lLastRow As Long
lLastRow = Cells(Rows.Count, 3).End(xlUp).Row
If lLastRow = 1 Then Exit Sub
Cells(lLastRow, 6).FormulaR1C1 = "=IF(ISNA(VLOOKUP(RC[-3],Номер_Адрес,2,FALSE)),"""",VLOOKUP(RC[-3],Номер_Адрес,2,FALSE))"
Cells(lLastRow, 6) = Cells(lLastRow, 6)
End Sub

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

а можно мне разъяснить как это применить если у мя 2 разных документа и там очень много столбцов и строк и это применимо к 15 к примеру столбцу по 1 столбцу сравнения наименования??????

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

можно конкретно на примере разобрать чтоб я мог проследить как это работает

[Hugo121]

У Вас есть документ с рабочей формулой (у нас его нет). Переносите эту формулу в макрос, что бы макрос заносил формулу в ячейку, затем заменял на значения.
Только, если Эксель русский, и формула на русском - тогда в макросе пишите FormulaLocal, например:
Range("A1").FormulaLocal = "=ТДАТА()"
Иначе формулу в коде нужно писать в английском варианте.

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

у меня русская версия, можно разобрать на примере книги что я скинул, она конечно бональна, но я хоть смогу проследить алгоритм действия, я просто не программист, а хочу автоматизировать свою таблицу с данными

[Hugo121]

Нашёл формулы - хорошо спрятали
У меня версия английская, поэтому код на лист получился например такой:

Sub obnovitj()
[c2].Formula = "=VLOOKUP(A:A,Лист1!A:B,2,FALSE)-B2"
[c3].Formula = "=VLOOKUP(A:A,Лист1!A:B,2,FALSE)-B3"
[c4].Formula = "=VLOOKUP(A:A,Лист1!A:B,2,FALSE)-B4"
[c2:c4].Value = [c2:c4].Value
End Sub

Должно работать и в русской версии.
Можно в данном случае формулы забивать и автозаполнением, но на 3 можно и так.