Путь к файлу

[Belokuraya]

Да, спасибо огромное=)

[Belokuraya]

Хм, выдаёт только первое значение, соответствующее условиям, как сделать, чтобы выдавал все значения?

[The_Prist]

А-а-а...Забыл! Извиняйте! Строчку забыл!

Option Explicit

Sub prod()
Dim Ws As Worksheet: Set Ws = ActiveWorkbook.ActiveSheet
Workbooks.Open "\\eupmiruspbfnp07\home$\AGOGIUNO\T ask2Info\PM RU Production plan 2009.xls"
Dim rFndRng As Range
Dim sAddress As String
Set rFndRng = Columns(7).Find(What:="DM", LookIn:=xlValues, LookAt:=xlWhole)
If rFndRng Is Nothing Then Exit Sub
sAddress = rFndRng.Address
Do
If rFndRng.Offset(,1) = "IZ" then Ws.Cells(rFndRng.Row, 64) = Cells(rFndRng.Row, 2)
Set rFndRng = Columns(7).FindNext(rFndRng)
Loop While sAddress <> rFndRng.Address
End Sub

[Belokuraya]

Спасибо ещё раз)))

[The_Prist]

И посоветовал бы Вам использовать в макросах такие вещи как Отключение обновления экрана и Автопересчет

Option Explicit

Sub prod()
Dim Ws As Worksheet: Set Ws = ActiveWorkbook.ActiveSheet
Application.ScreenUpdating = Fasle'выключаем обновление экрана
Application.Calculation = xlManual'отключаем автопересчет
Workbooks.Open "\\eupmiruspbfnp07\home$\AGOGIUNO\T ask2Info\PM RU Production plan 2009.xls"
Dim rFndRng As Range
Dim sAddress As String
Set rFndRng = Columns(7).Find(What:="DM", LookIn:=xlValues, LookAt:=xlWhole)
If rFndRng Is Nothing Then Exit Sub
sAddress = rFndRng.Address
Do
If rFndRng.Offset(,1) = "IZ" then Ws.Cells(rFndRng.Row, 64) = Cells(rFndRng.Row, 2)
Set rFndRng = Columns(7).FindNext(rFndRng)
Loop While sAddress <> rFndRng.Address

Application.Calculation = xlAutomatic'возвращаем автопересчет
Application.ScreenUpdating = True'включаем обновление экрана
End Sub

[Belokuraya]

А я наоборот отключаю автопересчёт, слишком большой размер файла, но за совет спасибо)

[The_Prist]

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

А я наоборот отключаю автопересчёт, слишком большой размер файла, но за совет спасибо)

А я и ОТКЛЮЧАЮ

Application.Calculation = xlManual'отключаем автопересчет

а в конце макроса включаем.

Application.Calculation = xlAutomatic'возвращаем автопересчет

[Belokuraya]

Ой, извините, что-то я не туда посмотрела)))