Путь к файлу

[Belokuraya]

Подскажите, в одну книгу нужно перенести данные из другой книги (путь в ней известен), из определнного столбца, например из 2ого, но переносить только те значения, для которых в той же строке, но в столбце 7 в ячейке имеется запись "DM"?

[The_Prist]

Формулы или макрос?
если формулы, то можно так

ПОИСКПОЗ(массив_значений_из_файла(начиная с ячейки А1);СТРОКА();2)

А макросом, сначала открываете файл, затем ищете соответствия.

Dim Ws as WorkSheet: Set Wb = ActiveWorkbook.ActiveSheet
Workbooks.Open "Полный путь к файлу включая имя файла с расширением"
Dim rFndRng as Range
Dim sAddress as String
Set rFndRng = Columns(7).Find(What:="DM",LookAt:=xlWhole)
If rFndRng is nothing then exit sub
sAddress = rFndRng.Address
do
Ws.Cells(rFndRng.row,10) = Cells(rFndRng.row,2)'только в Ws.Cells(rFndRng.row,10) вместо 10 
укажите тот столбец, в который необходимо вставить значения
loop while sAddress <> rFndRng.Address

Макрос находится в книге, к которой надо подтянуть значения.

[Belokuraya]

Лучше макрос, но он выдаёт ошибку 91: Object variable or With block variable not set...(

[The_Prist]

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

Лучше макрос, но он выдаёт ошибку 91: Object variable or With block variable not set...(

И, наверное, на вот этой вот строчке?

Workbooks.Open "Полный путь к файлу включая имя файла с расширением"

Тогда небольшое пояснение. Я НЕ ЗНАЮ путь к Вашему файлу. Вместо слов "Полный путь к файлу включая имя файла с расширением" Вы должны прописать путь к своему файлу с расширением(в кавыычках). Примерно так

"C:\Temp\Книга1.xls"

[Belokuraya]

Sub prod()



Dim Ws As Worksheet: Set Wb = 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", LookAt:=xlWhole)
If rFndRng Is Nothing Then Exit Sub
sAddress = rFndRng.Address
Do
Ws.Cells(rFndRng.Row, 64) = Cells(rFndRng.Row, 2)
Loop While sAddress <> rFndRng.Address
End Sub

написано всё было правильно сразу, книга открывалась, только дальше выскакивала ошибка, теперь ошибки нет, но и рез-та тоже нет..

Я попробовала примитивный код, но всё то же, т.е. книга открывается, но рез-та нет:

Sub prod()


Dim i, j As Integer
Dim pr As String

Workbooks.Open "\\eupmiruspbfnp07\home$\AGOGIUNO\T ask2Info\PM RU Production plan 2009.xls"

i = 5
j = 4
If Workbooks("PM RU Production plan 2009.xls").Worksheets("ProdPivot"). Cells(i, 7).Value = "DM" _
And Workbooks("PM RU Production plan 2009.xls").Worksheets("ProdPivot"). Cells(i, 8).Value = "IZ" Then
pr = Workbooks("PM RU Production plan 2009.xls").Worksheets("ProdPivot"). Cells(i, 2).Value
Workbooks("FGreports").Worksheets(" PrDailyPlan").Cells(j, 1).Value = pr
End If
End Sub

[The_Prist]

Посмотрите на нужном ли листе открывается книга PM RU Production plan 2009.xls. Не пустая ли ячейка в столбце 2 этой книги. А то может у Вас все ячейки столбца 2, в строках с "DM", пустые.

[Belokuraya]

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

[The_Prist]

Нужны файлы. Если есть какая-либо конфедециалная информация - удалите. Оставьте только строки, важные для макроса.

[Belokuraya]

Вообще нужно, чтобы выполнялось два условия: в 7ом стоблце значение "DM", а в 8м "IZ".

[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)
Loop While sAddress <> rFndRng.Address
End Sub