Возможно ли такое?

[nilem]

Сообщение от Vlad.V

Чтоб перенисти этот макрос в другой прайс, нужно просто скопировать скрипт?

Да, можно скопировать макрос в стандартный модуль другой книги или скопировать сразу весь модуль: открыть две книги, и потом в VBE (Alt+F11) перетащить мышкой Module1 из одной книги в другую.
Вот в этой строке:

[f2].Formula = "=IFERROR(VLOOKUP(B2,'" & ThisWorkbook.path & "\[KPI.xlsx]Лист1'!$A$2:$G$2000,7,0),"""")"

записаны имя книги, имя листа и диапазон, из которых берутся данные.

[Vlad.V]

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

Да, можно скопировать макрос в стандартный модуль другой книги или скопировать сразу весь модуль: открыть две книги, и потом в VBE (Alt+F11) перетащить мышкой Module1 из одной книги в другую.
Вот в этой строке:

[f2].Formula = "=IFERROR(VLOOKUP(B2,'" & ThisWorkbook.path & "\[KPI.xlsx]Лист1'!$A$2:$G$2000,7,0),"""")"

записаны имя книги, имя листа и диапазон, из которых берутся данные.

С НОВЫМ ГОДОМ! Удачи, здоровья и легких денег!!

Ты не мог бы, если не сложно описать каждую строку, что она делает.
Хотелось бы понять логику этого скрипта, т.е. я ее понимаю, но не совсем. Вот например я хотел перенести вывод цифр в другую колонку, вроде все заменил, но все равно какая-то хрень выходит...

[nilem]

Вот, попробовал расписать.

[Vlad.V]

Спасибо! Особенно ломал голову над этим:

lr = Cells(Rows.Count, 2).End(xlUp).Row

Немог понять что оно делает.

[Vlad.V]

У меня снова проблема. Перенес скрипт в свой парйс, чуть подогнал под себя. Вроде все ок, но когда скрипт выполняется, цены выводятся через одну, а то и через 5 позиций, что это может быть?
Вот что я исправил:

[F4].Formula = "=IFERROR(VLOOKUP(B4,'" & ThisWorkbook.path & "\[KPI.xls]Лист1'!$A$4:$G$70000,7,0),"""")"

[F4].AutoFill Destination:=Range("F4:F" & lr)

x = Range("E4:E" & lr).Value: y = Range("F4:F" & lr).Value

Columns("F").Delete: [e4].Resize(lr - 1).Value = y

Спасибо!

[nilem]

Сообщение от Vlad.V

...цены выводятся через одну, а то и через 5 позиций, что это может быть?

Значит в файле "мой прайс" есть такие коды поставщиков, которых нет в файле "KPI". ВПР не находит коды и оставляет пустую строку.
Кстати, Вы пишете KPI.xls - у вас же Е2007, должно быть KPI.xlsx

И еще вместо 1 напишите 3 в этих строках:
Cells(i + 3, 5).Interior.ColorIndex = 40
Cells(i + 3, 5).Interior.ColorIndex = 35
Columns("F").Delete: [e4].Resize(lr - 3).Value = y

[Vlad.V]

Фишка в том, что все кода есть и там и там. Проверял, через поиск, есть и кода и цены.
Прайс поставщика, тот который KPI, он идет xls., это я тестовый сохранял в xlsx.

[nilem]

Может, эти коды в текстовом формате? Можете показать?

[Vlad.V]

решил проблемму! Да, Вы правы, числа были в тексте, но это особо на полет не влияло. Я убрал путь к книге тут:

[F4].Formula = "=IFERROR(VLOOKUP(B4,'[KPI.xls]Лист1!$A$4:$G$70000,7,0),"""")"

И еще попробовал отрыть файл KPI перед запуском скрипта, все заработало!

[Vlad.V]

Всех с праздничком! Может еще кто подскажет, возможно ли вывести два массива с полученного прайса? Это нужно для обновления цен на сайте, нужно вывести артикул товара и цену, т.е. сверить артикулы и заменить цену если они разные.
Вот так выглядит xml:

<channel>
<item>
<product_sku>as003</product_sku>
<product_price>122.00000</product_price>
</item>
....
</channel>