бюджет от 6000 рэ.-обсуждается! Ввиду большого веса тхзд высылаю вступительную часть задания. Начинаем ИМЕННО с этого места как в задании. Никаких предоплат. Даже не предсталяю как подогнать под размер чтобы загрузилось-если кто заинетересовался вышлю на электроящик сразу. как сделать, чтбы фотку было видно-ума не приложу!(((
я в шоке! перестало видеть таблицу, т.е. периодически видит а потом нет... файлы большие может кому на почту для отладки выслать- былбы ОЧЕНЬ благодарен за раскрытие темы.....далее идут только матершиные слова.
даже комменты не помогают, ибо смотришь на них, и нет никаких ассоциаций... -приходиться заново читать код- вспоминать... что хотел сделать... А как Вы решаете эту проблему, Уважаемые форумчане???
Нашел тут на форуме старый макрос hugo Переделал его под свои нужды, но мне необходимо красить ячейки , в кот. произошла замена+ формат чтобы настроить с выравниванием, сам не могу осилить никак. В столбце Е макрос ищет значения, и если найдено меняет значения в столбце D, если замена произошла- тогда красим их обе) Кто поможет закрасить ))?
Range("F" & i).FormulaLocal = "=ЕСЛИ(ВПР(B" & i & ";'C:\AL\[alko_sez.xls]alko_sez'!$A$1:$IV$65536;6;0)=0;"""";((ВПР(B" & i & ";'C:\AL\[alko_sez.xls]alko_sez'!$A$1:$IV$65536;6;0))))" 2. При попытке отсортировать инвойс выдает ошибку такого типа:"Automation error The object invoker has disconnected from its clients" и ссылатся в отладке вот на этот код: Sub ДобавитьСтроку(ПослеСтроки) Rows(ПослеСтроки + 1).Insert Shift:=xlShiftDown End Sub -и виснет все напрочь. 3. Если убрать блок "Шампанское" опять работет.. 4, Если нижние блоки убрать и оставить "Шампанское" опять работает. т.е. я высылаю ВЕСЬ инвойс, иначе он может опять заработать. 5. Убится легче чем найти причину((( 6. Проблема ТОЛЬКО в ЭТОМ файле за два года работы. Что может быть , в чем проблема??????? Кто подскажет???
ctrl+F8 нажимаем на макрос "Сортировать без градусов" ...и ещё самих формул нет в столбце F иначе по весу файл не проходит.
хотя суммы естественно правильные... вот ЧТО можеть мешать???? хотябы теоретически...(примеры с кодами там куча проста разных маркосов- недавно нашел косяк проста)
как вот эту формулу: =ЕСЛИ(ВПР(B10;'C:\AL\[alko_sez.xls]alko_sez'!$A$1:$IV$65536;7;0)=0;"";((ВПР(B10;'C:\AL\[alko_sez.xls]alko_sez'!$A$1:$IV$65536;7;0)))) написать в самом макросе))? ;)
к сожалению файл весит гораздо больше разрешенных 100 кб,- пишите в личку тогда- я целый день на связи-вышлю сразу-обсудим тему. вот скрин начала тхзд: http://SSMaker.ru/74f47050/