Доброго времени суток всем! Поставили вот такую задачу:

авторНаписать макрос, выполняющий следующие действия:

1. В файле «база.xls» из диапазона значений столбца «Артикул» найти соответствующие значения для столбца «Артикул» в файле «прайс.xls».

2. Если соответствия найдены, то в файле «прайс.xls» заполнить соответствующие строки значениями из столбцов файла «база.xls»:
Код ID, Маленькая картинка, Подробное описание, Большая картинка, Категория.

3. Если соответствующие значение не найдены из диапазона ячеек столбца «Артикул» «база.xls» в столбце «Артикул» «прайс.xls», то эти (ненайденные) позиции из «база.xls» добавить в «прайс.xls» с сохранением всех значений столбцов (база.xls), кроме столбца «Склад» его значение установить в 0 (ноль).

С первыми двумя пунктами справился, а вот с добавлением позиций из "базы" в "прайс" никак :(

авторSub Main()
Dim i As Integer
Dim j As Integer
Workbooks.Open ("C:\Macro\прайс.xls")
Workbooks.Open ("C:\Macro\база.xls")
Workbooks("прайс.xls").Sheets("прайс").Activate
With Workbooks("база.xls").Sheets("база")
For i = 2 To Cells(Rows.Count, "N").End(xlUp).Row
For j = 2 To .Cells(Rows.Count, "N").End(xlUp).Row
If Cells(i, "N") = .Cells(j, "N") Then
Cells(i, "A") = .Cells(j, "A")
Cells(i, "D") = .Cells(j, "D")
Cells(i, "E") = .Cells(j, "E")
Cells(i, "F") = .Cells(j, "F")
Cells(i, "G") = .Cells(j, "G")
Cells(i, "O") = .Cells(j, "O")
End If
Next j
Next i
Workbooks("прайс.xls").Close savechanges:=True
Workbooks("база.xls").Close savechanges:=False
End With
End Sub

Может подскажите какие-нибудь идеи? Заранее огромное спасибо!

Огромнейшее спасибо!!! Работает, так как надо!