ВПР - выбор файла в зависимости от имени

[IgorGO]

Cells(i,3).FormulaLocal = "=ВПР(A" & i & ",'C:\...
1. потеряли разделитель между 1 и 2 параметром ВПР
2. Name_Pic определено перед этим присваиванием?

[Questru]

Сообщение от IgorGO

Cells(i,3).FormulaLocal = "=ВПР(A" & i & ",'C:\...
1. потеряли разделитель между 1 и 2 параметром ВПР
2. Name_Pic определено перед этим присваиванием?

Большое Спасибо помогло!
Принял к сведению Ваши замечания. Ставлю + в карму =)

[Questru]

Так более менее разобрался. Получился рабочий макрос.

Все делает как задумано.


Хотелось бы его апгрейдить:
1.Можно ли убыстрить его работу?
А то, пока он забивает все ячейки, проходит довольно много времени.
2. Данную операцию необходимо проделать с двумя вкладками "improvements list" и "results"
Как заставить макрос работать на этих двух листах, а не только на выбранном?

[Questru]

Попробовал сделать так - не получилось - вылезает ошибка 9

[IgorGO]

в трех местах перед Cells поставьте точку .Cells
и убедитесь что LastRow, LastCol на нужном листе определяют эти самые последние строки и колонки.
может LastRow следует заменить на
.cells(5,4).end(xldown).row
a LastCol na
.cells(i,5).end(xltoright).column
и ошибка 9 в какой строке появляется?

[Questru]

Сообщение от IgorGO

в трех местах перед Cells поставьте точку .Cells
и убедитесь что LastRow, LastCol на нужном листе определяют эти самые последние строки и колонки.
может LastRow следует заменить на
.cells(5,4).end(xldown).row
a LastCol na
.cells(i,5).end(xltoright).column
и ошибка 9 в какой строке появляется?

Сори что сразу не написал, просто уже нашел решение проблемы
Осталось дело только за оптимизацией. Как можно ускорить его работу, чтобы эксэль не подвисал минут на 7-10...?

Вот итоговый макрос

[IgorGO]

сначала выполнить:

Sub ExlDead() 'Эксель замерз
  Application.EnableEvents = False
  Application.Calculation = xlCalculationManual
  Application.ScreenUpdating = False
End Sub

в конце это

Sub ExlLive() 'Эксель ожил
  Application.EnableEvents = True
  Application.Calculation = xlCalculationAutomatic
  Application.ScreenUpdating = True
End Sub

процедуры скопируйте себе в код отдельно, добавите в своем коде две строки: где-то в начале ExlDead, где-то в конце ExlLive

[Questru]

СПАСИБО ВАМ БОЛЬШОЕ!

[Шарипов Р.И.]

У меня предложение: сделать многопользовательский доступ к одному файлу пусть изменяют, и изменения будут происходит и наглядно будет....или Я чего не правильно понял

[VictorM]

Шарипов Р.И.
это к чему и о чем?