Выбрать дату в календареВыбрать дату в календаре

Страницы: 1
Собрать данные в целевую ячейку)), Повторно! версия 1,01
 
бюджет от 6000 рэ.-обсуждается!
Ввиду большого веса тхзд высылаю вступительную часть задания.
Начинаем ИМЕННО с этого места как в задании.
Никаких предоплат.
Даже не предсталяю как подогнать под размер чтобы загрузилось-если кто заинетересовался вышлю на электроящик сразу.    
как сделать, чтбы фотку было видно-ума не приложу!(((

Изменено: free - 26.11.2013 17:01:06
Как программно пронумеровать товары -блоки?, если больше одной позиции в блоке-товаре, чтобы нумеровало итоговые значения???
 
сейчас макрос протягивает формулу в столбцах  "G"  и "H", а вот уже хочется покрасивше чтобы было, не поможете) ;) )?
нумерация должна быть в  столбце "G"..
Может ли при переезде на новое место работы перестать работать макрос?
 
я в шоке!
перестало видеть таблицу, т.е. периодически видит а потом нет... файлы большие может кому на почту для отладки выслать- былбы ОЧЕНЬ  благодарен за раскрытие темы.....далее идут только матершиные слова.
Как можно помнить все?, и ориентироваться в разных созданных ранее макросах???
 
даже комменты не помогают, ибо смотришь на них, и нет никаких ассоциаций...
-приходиться заново читать код- вспоминать... что хотел сделать...
А как Вы решаете эту проблему, Уважаемые форумчане???
Закрасить ячейки, в которых произошла замена значений
 
Нашел тут на форуме старый макрос hugo Переделал его под свои нужды, но мне необходимо красить ячейки , в кот. произошла замена+ формат чтобы настроить с выравниванием, сам не могу осилить никак.
В столбце Е макрос ищет значения, и если найдено меняет значения в столбце D, если замена произошла- тогда красим их обе)
Кто поможет закрасить ))?
Изменено: free - 01.11.2013 21:34:15
Ошибка в работе макроса. При попытке отсортировать инвойс выдает ошибку
 
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 иначе по весу файл не проходит.
Изменено: free - 30.10.2013 23:13:36 (каммент)
Почему макросом просуммированые ячейки, при поверке другим макросом выдает ошибку??
 
хотя суммы естественно правильные... вот ЧТО можеть мешать???? хотябы теоретически...(примеры с кодами там куча проста разных маркосов- недавно нашел косяк проста)
Добавить в код условия для другого столбца
 
Код
For i = Nachalo To Konec
 KodVd = Val(Cells(i, 4).Value) -4й столбец
If KodVd > 0 Then
 Range("G" & i).FormulaR1C1 = _ любая формула

_______________________________________
как два условия прописать?????? например:
Код
KodVd = Val(Cells(i, 4).Value) -4й столбец
Lit = Val(Cells(i, 11).Value) - +11й столбец
If KodVd > 0 And Lit =0 Then
Range("G" & i).FormulaR1C1 = 
_ чтобы другая любая формула вставлялась в таблицу???
выручайте)))
Изменено: free - 26.08.2013 11:42:59 (ошибся)
Вставить формулу в код макроса:
 
как вот эту формулу:
=ЕСЛИ(ВПР(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))))
написать в самом макросе))?  ;)
[ Закрыто] Есть проект, бюджет 2000(обсуждается)
 
к сожалению файл  весит гораздо больше разрешенных 100 кб,- пишите в личку тогда- я целый день на связи-вышлю сразу-обсудим тему.
вот скрин начала тхзд:
http://SSMaker.ru/74f47050/
Двойной формал чисел, формат округление до двух чисел после запятой+ основной
 
Необходимо, чтобы не было нулей на конце у чисел, одновременно округляя до двух знаков
пример прилагаю..
спасибо!
Страницы: 1
Наверх