Поиск  Пользователи  Правила  Войти
Форумы "Планета Excel" » Вопросы по Microsoft Excel (архив)
Страницы: 1
RSS
Обновление цен в прайс-листе.
 
#1
08.04.2010 11:38:49
Помогите написать макрос, позволяющий реализовать следующую возможность:  
Имеется прайс лист со столбцами: Артикул, наименование, цена, кратность....  
Прайс содержит до 30 тыс строк.    
Периодически поставщик присылает изменения к прайс листу, которое содержит следующие столбцы: артикул, наименование, новая цена.  
Необходим макрос, который будет менять цены в основном прайс листе.
 
 
 
#2
08.04.2010 11:43:15
Я не знаю людей на этом форуме кто нарисует за вас таблицу. Прочитайте правила плиз и выложите прайс на 10 сторк и лист (в том виде в каком) он приходит с изменениями к нему желательно все это в одной книге.
 
 
 
#3
08.04.2010 11:53:47
{quote}{login=The_Prist}{date=08.04.2010 11:44}{thema=}{post}Начнем с того, что для написания макроса нужны хоть какие-то данные, помимо Ваших описаний. Я имею ввиду файл.  
Далее: судя по описанию вполне подойдет ВПР, без всяких макросов.  
И напоследок: что значит помогите? Помощь - это когда Вы что-то сделали, но у Вас не получается и Вам помогают. А то о чем написали Вы принято называть - сделайте.  
 
Подводя итог: читайте правила форума, выкладывайте файл и посмотрим, что можно сделать.{/post}{/quote}  
 
Файл с примером прикрепил.  
В файле 2 листа.  
1. Прайс  
2 Изменения  
 
Если воспользоваться функцией ВПР, тогда на листе "прайс" затрутся цены, которые отсутствуют на листе изменения.
 
 
 
#4
08.04.2010 11:59:48
Если артикул и наименование неизменны (или артикул или наименование уникальны, т.е. по ним можно искать), то и здесь подойдёт  
http://hugo.nxt.ru/CompareFiles.Find.rar
 
 
 
#5
08.04.2010 12:05:27
Примитивно с Впр и доп столбцом потом копировать ...Можно все макрорекордером записать.
 
 
 
#6
08.04.2010 12:07:43
{quote}{login=Hugo}{date=08.04.2010 11:59}{thema=}{post}Если артикул и наименование неизменны (или артикул или наименование уникальны, т.е. по ним можно искать), то и здесь подойдёт  
http://hugo.nxt.ru/CompareFiles.Find.rar{/post}{/quote}  
 
файл не скачивается, пишет отказано в доступе
 
 
 
#7
08.04.2010 12:12:48
{quote}{login=Alexstt}{date=08.04.2010 12:07}{thema=Re: }{post}{quote}{login=Hugo}{date=08.04.2010 11:59}{thema=}{post}Если артикул и наименование неизменны (или артикул или наименование уникальны, т.е. по ним можно искать), то и здесь подойдёт  
http://hugo.nxt.ru/CompareFiles.Find.rar{/post}{/quote}  
 
файл не скачивается, пишет отказано в доступе{/post}{/quote}  
 
Бывает... Хотя я только что ради проверки скачал...
 
 
 
#8
08.04.2010 12:19:52
Попробовал - сработало без всяких переделок.  
Настройки (пометки для контроля, что заменилось):  
Файл - приёмник: C:\temp\пример.xls  
Файл - источник: C:\temp\пример.xls  
Столбцы сравнения в приёмнике: a,b  
Столбцы сравнения в источнике: a,b  
Лист - приёмник (№): 1  
Лист - источник (№): 2  
Столбцы - приёмники: e  
Столбцы - источники: e  
Столбец для пометок в приёмнике: f  
Столбец для пометок в источнике:  
Текст пометки New  
 
 
Результат:  
Цена в RUEUR без НДС  
5.00 New00001  
10.00 New00002  
20.00 New00003  
33.00 New00004  
7.00 New00005  
84.00 New00006  
3.80  
3.80  
48.00 New00007  
1.52  
415.00 New00008  
1.59  
45.00 New00009  
0.84  
1000.00 New00010  
5000.00 New00011  
700.00 New00012  
3000.00 New00013  
1.13  
1.46  
 
Единственное - форматирование ячеек сбивается, посмотрю...
 
 
 
#9
08.04.2010 12:24:01
{quote}{login=Hugo}{date=08.04.2010 12:19}{thema=}{post}Попробовал - сработало без всяких переделок.  
Настройки (пометки для контроля, что заменилось):  
Файл - приёмник: C:\temp\пример.xls  
Файл - источник: C:\temp\пример.xls  
Столбцы сравнения в приёмнике: a,b  
Столбцы сравнения в источнике: a,b  
Лист - приёмник (№): 1  
Лист - источник (№): 2  
Столбцы - приёмники: e  
Столбцы - источники: e  
Столбец для пометок в приёмнике: f  
Столбец для пометок в источнике:  
Текст пометки New  
 
 
Результат:  
Цена в RUEUR без НДС  
5.00 New00001  
10.00 New00002  
20.00 New00003  
33.00 New00004  
7.00 New00005  
84.00 New00006  
3.80  
3.80  
48.00 New00007  
1.52  
415.00 New00008  
1.59  
45.00 New00009  
0.84  
1000.00 New00010  
5000.00 New00011  
700.00 New00012  
3000.00 New00013  
1.13  
1.46  
 
Единственное - форматирование ячеек сбивается, посмотрю...{/post}{/quote}  
 
Скачал твой файл с др. адреса "CompareFiles.Find.Rus.v040.xls", все заработало...  
Спасибо  
Да, с форматированием проблемы,    
новые значения имеют текстовый формат.
 
 
 
#10
08.04.2010 12:32:19
Не помню, зачем так делал, но там в коде два раза закомментируйте строку  
xlsa.Sheets(Lapa).Cells(cc.Row, Trim(TargetColArr(i))).NumberFormat = "@"  
и формат менять не будет.  
Кстати, можно сразу и Мин. заказ подтягивать.
 
 
 
#11
08.04.2010 12:34:36
Что-то сразу не заметил - всё-же лучше поновее версию качнуть, там есть свои плюсы... и где нашлась 040?
 
 
 
#12
08.04.2010 12:59:01
{quote}{login=Hugo}{date=08.04.2010 12:34}{thema=}{post}Что-то сразу не заметил - всё-же лучше поновее версию качнуть, там есть свои плюсы... и где нашлась 040?{/post}{/quote}  
 
на forum.ixbt.com  
 
Сюда можешь выложить новую версию?
 
 
 
#13
08.04.2010 13:02:53
Вот, уже настроенный :)  
Да, там было, помню... Но там тоже линк на nxt последний.
 
 
 
#14
08.04.2010 13:07:13
{quote}{login=Hugo}{date=08.04.2010 01:02}{thema=}{post}Вот, уже настроенный :)  
Да, там было, помню... Но там тоже линк на nxt последний.{/post}{/quote}  
 
спасибо
 
 
 
Страницы: 1
Читают тему
Наверх