поиск ячейки в другом файле

[maksim_serg]

все понял, просто вместо Workbooks(n), я каждый раз пытался написать что то другое...

[maksim_serg]

именно то что я и хотел. большой спасибо

[sasha_prof]

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

именно то что я и хотел. большой спасибо

Как в даном примере узнать адрес найденого не как $C$5 а как например Sheets("Лист1").Cells(5, 3)

[Hugo121]

If Not x Is Nothing Then [A2] = x.Row & ", " & x.Column 'x.Address
Остальное допишите через & или переменными задайте.

[sasha_prof]

что означает Sheets(1) и Sheets(2)

[Hugo121]

Лист первый и лист второй, по порядку, считать от начала. Вместо цифр можно ставить переменные.

[sasha_prof]

Ребята помогите плиз.
В книге Job написан макрос на поиск в другой вложеной книге. Если 2-ю книгу не открывать то ничего не находит(((( Посмотрите пожалуйста в чём проблема

[doober]

Проверил.все переменные считывает правильно.
вы неудачно выбрали код продукта.В файле с данными-ячейки пустые.По другим кодам работает

[Hugo121]

'на этом этапе не находит продукта
.Formula = "='" & iPath & "\[" & iFile & "]Продукти'!$B$1:$B$1000"
А Вы смотрели, какая формула получается?
Лишний слэш:
='C:\Documents and Settings\balabko\Рабочий стол\тест пош\\[Rate_by_product.xls]Продукти'!$B$1:$B$1000

[sasha_prof]

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

Проверил.все переменные считывает правильно.
вы неудачно выбрали код продукта.В файле с данными-ячейки пустые.По другим кодам работает

У меня если не открывать другую книгу то ничего не может найти(((

мне кажется что проблема вот в этой части

Dim x As Range
Application.ScreenUpdating = False: Sheets(1).Activate
With Sheets(2).Range("B1:B1000")
.ClearContents
.Formula = "='" & iPath & "\[" & iFile & "]Ïðîäóêòè'!$B$1:$B$1000"
.Value = .Value


Не могу разобраться с Sheets(1).Activate и Sheets(2).Range("B1:B1000")


Может в них проблема??