Спасибо всем. Получилось хорошо.  
HUGO вы молодец!  
Можно ли запрограммировать скачок на D13, после заполнения обязаловки?  
А то, ограничивали передвижение, ограничивали и тут бац - вольница. После C10, курсор на C11. Непорядок.  
P.S. за решение перечисляю  HUGO - 300 рублей.  
на развитие сайта тоже 300, так как реквизитоов Юрия М и RAN не знаю - тоже на счет HUGO

Набор заказа осуществляется в колонке D в диапазоне D13:21.  
То есть пользователь сразу может заказать и отправить файл, а то что обязательные поля не заполнены, ему не известно. Ваш вариант Юрий - позволяет сообщать об этом, и обнулять кол-во. Вариант Hugo - сразу же останавливается на обязательных полях. Но разобраться как спуститься на D13:21 в его макросе не могу.

Наконец-то, смог зайти в тему!!  
Итак, чего в супе не хватает?  
Устранить проблему не заполнения обязательных полей.    
C5 E5 C7  E7 C8 E8 C9 E9 C10  
Сначала хотел постепенное осветление, но можно и без этого - только заполнение  
важных ячеек. Вариант Hugo хорош. Но он зациклен, при заполнении значений курсор не спускается в рабочую область. Печалька ((  
В вариантах RAN  и Юрия М - курсор может быть в наборе, но на страже текстбокс!  
То есть пользователь вступил на набор, хотя обязательные поля пусты. Мелочь, но хочется идеала.  
Помогите, плиз.

Поставил, спасибо отрабатывает.  
Но хочется полной автоматизации, почти как у HUGO.  
Сначала заполни обязательные поля, а затем уж будет доступ на заказ.  
P.S. Возможно ли поддержать развитие planetaexcel.ru  скромной помощью?  
На какие эл. деньги переслать 300 рублей?

{quote}{login=Юрий М}{date=08.06.2012 01:53}{thema=}{post}Тогда .CountA, раз не дружит... :-){/post}{/quote}  
 
А что это за зверь .CountA,? И куда его поставить.  
 
tu RAN    
Ничего не понял.  
Какому "моему предложению"?  
Какого "транспаранта"?  
 
Писал ответ Юрию, решил снять полное затемнение, смотрю а там ваш вариант без    
черной заливки, поэтому и "моему предложению".  
 
Какого "транспаранта"?  
Да это сообщение MsgBox,

Главное не допустить до смертоубийства!  
Подумал, а может действительно больше открытости.  
Снял затемнение с таблицы, тогда макросы HUGO  - рулят и педалят.  
Осталось только, проследить, чтобы все поля были заполнены и курсор смог вырваться  
В доступный диапазон  перемещений D13- D21, а то он сейчас крутится как белка в колесе :))  
 
Второй вариант, все светло,  затемнение  только на   D13- D21,  и после выполнения условий  
Заполняемости обязательных полей – перескок на D13, с осветлением D13- D21  
 
RAN, ваш пример подобен моему предложению. Было бы замечательно, если  после транспаранта курсор отскакивал на незаполненное поле, а не оставался, как есть.  
 
 
А первоначально задумывалось вот так.  
Итак, более подробное задание. При открытии заказа,  
Все внизу темное. Мы находимся в C4, после его заполнения, Энтер,  
Осветляется область  A5-C5 – курсор в ячейке C5. после его заполнения  
Осветляется область  D5-E5 – курсор в ячейке E5. после его заполнения  
Осветляется область  строка 6  
Осветляется область  A7-C7 – курсор в ячейке C7. после его заполнения  
Осветляется область  D7-E7 – курсор в ячейке E7. после его заполнения  
Осветляется область  A8-C8 – курсор в ячейке C8. после его заполнения  
Осветляется область  D8-E8 – курсор в ячейке E8. после его заполнения  
Осветляется область  A9-C9 – курсор в ячейке C9. после его заполнения  
Осветляется область  D9-E9 – курсор в ячейке E9. после его заполнения  
Осветляется область  A10-E109 – курсор в ячейке C10. после его заполнения.  
Снимается затемнение с нижней области  A11-E21, курсор в ячейке  D13.

Задача возникла из-за конфликта сторон.  
Отправлялась заявка с пустыми обязательными полями.  
Пролучающая сторона не принимала из-за этого. Одна сторона ждала счет, а вторая полного заполнения.  
Чтоб исключить это попробовал набросать заказ с ограничением передвижения.  
Заполнишь все нужные поля, получишь (морковку)доступ к набору заказа.  
Остался последний рывок, и вознаграждение найдет героя форума!

Юрий спасибо, по схеме разобрался.  
В группу модулей добавил Модуль1  
И вставил крохотулечку Public i&  
Теперь вроде бы забегало, только,  
почему-то не заходит в ячейку С5?  
Отчего и не открывается нижняя область.  
 
Второе, наверное не до конца поставил за дачу,  
после того как перешел с заполненной ячейки в пустую, в ней должно сняться  
условное форматирование с черного на белый. Как бы пошагово снимается затемнение.

Уважаемый Юрий  
Так не знаю где это находится,  
 
"Кабы схемка, аль чертеж.  
Так б затеяли вертеж"

Вопрос по той же теме (закрыта):  
<EM>http://www.planetaexcel.ru/forum.php?thread_id=42023</EM>  
Программировал прайс с обязательным заполнением полей.    
Положился на условное форматирование.  
В 2003 EXCEL  их три.  
Возможно ли запрограммировать передвижение по ячейкам, так чтобы были заполнены обязательно поля в шапке.  
Дорожка такая - C4-C5-E5-C7-E7-C8-E8-C9-E9-C10  
После чего снимается условное форматирование, с нижней области  
и курсор на С13.  
получилось запрограммировать только 3 шага C4-C5-E5  
если туда поставить по единичке, то откроется область  
А11-Е21  
P.S. не успел поблагодарить HUGO в первом посте.  
Большое спасибо за помощь.  
Все получилось как задумывалось.

Hugo.  
Большое спасибо.  
Синева - это оказывается - цвет подложки экселя 2007 )).  
А макрос на печать постранично не сварганите?  
А я подсоединю вашу шикарную кнопочку "GO"  
P.S. По проекту "чумара" переслал вам вчера 1000 рублей.

Не ясно как задать области заливки и области печати.  
Подскажите пожалуйста.

Уважаемый 1xs.  
Большое спасибо за файл, очень приятный голубой цвет заливки.  
Но не понятно, как это получается.  
И можно ли это решить макросом на всех листах.  
Вот примерный макрос написанный форумчанами.  
Sub qqq()  
'для торг29  
'Изменяет формат на числовой и считает кол-во документов  
'приложенных в торговом отчете функция 2 счет  
Dim iSheet As Worksheet, I As Long  
Application.ScreenUpdating = False  
For Each iSheet In Worksheets  
With iSheet  
For I = 1 To .Cells(Rows.Count, 3).End(xlUp).Row  
If IsNumeric(.Cells(I, 3)) Then  
.Range("C94:R94").NumberFormat = "0"  
.Range("C94").FormulaR1C1 = _  
"=SUBTOTAL(2,R[-66]C[10]:R[-43]C[12], R[-34]C[10]:R[-5]C[12])"
 
End If: Next  
End With: Next  
Application.ScreenUpdating = True  
End Sub

Добрый день всем.  
Облегчил работу пожилым товароведам, скачав в интенете форму торг-29.  
Настроил авторасчет, все хорошо.  
 
Только они иногда залетают куда-то вниз на строки трехсотые. И поднимают панику, что все пропало. Как возможно ограничить движение по листу?  
 
Недавно нашел другую форму торг-29, там применена область печати и серая заливка.  
Подскажите, как это можно организовать?  
 
Форма двухсторонняя - можно ли написать макрос на печать страниц по отдельности,с сообщением о необходимости перевернуть лист.  
 
Прилагаю форму торг-29, Лист1 - это на этом образце реализован сейчас отчет, и лист Товарный отчет - с заливками и областями печати.

Большое спасибо за помощь. Меня смутил модуль книги, вот поэтому и полез создавать новый Модуль)).  
За добро плачу добром.    
Хочь куницей, хочь бобром.  
А не хочь - могу монетой,  
златом али серебром.    
Переслал 100 рублей.

Докладываю, случился форсмажор,  
перестанавливаю операционку на главном компьютере,  
пришлось с антресолей достать старый, подключать принтер,    
Запускаю отчет, все выходит без точек!!  
Наверное, это из-за разных моделей принтера.  
Проверяю условие, вместо 20 знаков поставил 10.  
Не помогает, выходит 20 как в 1 строке.  
Наверное, что-то не так подключил.  
Пошагово что делал.  
Открыл шаблон. Создать макрос. Остановиь макрос.  
Вместо Sub Макрос1  
заменил кодом уважаемого Казанского.  
Сохранил. Запустил программу, передал значение в шаблон.  
После появление xls файла с именем шаблон1. Нажал кнопку принтера.  
Пошла печать.Проверил наличие макроса Казанского. Присутсвует.  
В module4.  
Что я сделал неправильно?

Уважаемый Казанский, спасибо за отклик.  
Проблема в том, что это передаваемый параметр в шаблон, ограничит его на стадии шаблона, не позволяет передаваемая функция.  
Найденный параметр высоты ячейки и шрифта устраивает всех.  
А так как не хочется нагружать пользователя нажатием на кнопки макроса, зачем - ведь на экране все четко - без точек. То макрос на обрезание длины строки, при печати наиболее элегантное решение.

Добрый день, планетяне.  
Столкнулся с проблемой дизайна.  
Выводится через шаблон таблица. Столбец E с основанием платежа  
на экране вмещает 20 знаков и смотрится хорошо.  
Но при печати, не уместившиеся символы, проявляются точками над нижнем границей ячейки.  
Что то наподобие ряби.  
Как оставить только 20 знаков, в значимых ячейках столбца E?  
Понимаю, что макрос надо привязать на событие ПЕЧАТЬ.  
А как написать не хватает знаний.

На первой таблице полный торговый оборот остатокНач +приход -расход остатокКонечный.  
 
Во второй таблице остатокКонечный, тогда непонятно зачем эти таблице вам нужны, если в первой есть ВСЕ!  
 
Вы пишите  
раньше было просто, у каждой позиции был свой код    
 
Можете привести кусочек правильного расположения старого образца.  
Какая номенклатурная позиция доставила наибольшей трудности.  
Примерчик прикрепите!

Светлана,по первому взгляду в обоих таблицах, все одинаково.  
Где различия? и каким образом хочется видеть "сложную" номенклатуру.  
Позиции 2 хотя-бы приведите, как они сейчас и как надо.  
 
P.S. Hugo со вчерашнего вечера боролся с вирусами, только недавно отправил вам письмо.

Вопрос как увязать боковые выпадающие списки (отпуск, больничный, командировка)с отображением в нужные дни в табеле    
 
Да из этого предложения трудно решить, что автор хочет автоматизировать ЗАПОЛНЕНИЕ табеля, а не группировать свод отработанного времени.  
Значится где-то на бумажечке ведется учет нестандартных случаев, а затем Николай используя переключатель ставит вилку дат и пространство этого периода заполняется  
нужными буковками. Да, протянуть буковку по ячейкам это не наш метод!

Да молодой человек еще не говорит о Тайланде и КНДР.  
А это та же самая "новая счетфактура" только с правого края))  
Подождем открытий чудных!

Hugo, все работает!  
Сам виноват:(  
Скопировал без ведущих точек перед Range!??

Изменил, на ваш - не помогает.  
 
Наверное я неправильно задал условие цикла.  
For I = 1 To .Cells(Rows.Count, 3).End(xlUp).Row  
If IsNumeric(.Cells(I, 3)) Then  
 
Ведь там необходимо было поменять формат и вставить нули впереди  во всём столбце.  
А тут только к одной ячейке.  
 
Зачем повторять много раз?  
 
Да тут десятидневка на лист, их 37 в книге. Поэтому и цикл.))

Попробовал применить макрос на дополнение нулями во всех листах книги,  
для торг29 формулы промежут итого этой.  
Срабатывает только на активном листе?  
Что не так описано?  
 
Sub qqq()  
Dim iSheet As Worksheet, I As Long  
Application.ScreenUpdating = False  
For Each iSheet In Worksheets  
With iSheet  
For I = 1 To .Cells(Rows.Count, 3).End(xlUp).Row  
If IsNumeric(.Cells(I, 3)) Then  
'.Cells(I, 3).NumberFormat = "%"  
'.Cells(I, 3) = Format(.Cells(I, 3), "000000")  
Range("C94:R94").Select  
   Selection.NumberFormat = "0"  
   ActiveCell.FormulaR1C1 = _  
       "=SUBTOTAL(2,R[-66]C[10]:R[-43]C[12], R[-34]C[10]:R[-5]C[12])"
End If: Next  
End With: Next  
Application.ScreenUpdating = True  
End Sub

Ребята Спасибо!!  
 
P.S.Hugo я вам написал письмецо на hugo_песик_nxt_точечка_ру.  
жду ответа

Решил модернизировать пустографку торг 29, но в строке 94  
выводится формула, хотя в окне аргументы функции показывает значение 13

По поводу перехода в офлайн - Хорошо, надо так надо.  
По поводу  
" на форуме этот сугубо индивидуальный проект никому не интересен и никому не пригодится."  
 
По моему, важен сам принцип связывания эл. документов одного отдела со смежными.  
А табель это важная часть работы фирм. так как необходим для расчета зарплаты.  
Это довольно распространенное явление - ведение экселевского табеля. А дальше что.  
Распечатка на принтере и передача бумаге в бухгалтерию?  
Так что имея этот вариант связки - наиболее продвинутые экселеводы вашего прекрасного форума могут найти применения в своей деятельности.  
 
Еще раз большое спасибо всем планетянам!

Это пока консервативная организация.  
У меня девиз -"малая автоматизация",то есть убыстряем все из того что есть.  
Пока у меня есть возможность только убыстрить обработку имеющегося документооборота. И то с тревогой смотрят на мои предложения, а вдруг будет хуже?  
 
Если все пройдет идеально, тогда перейти ко второму этапу и предложить свое "прогрессивное" решение, условное название СУПЕРАВТОМАТИЗАЦИЯ.  
 
Так-что, сейчас нужен "скользящий" макрос с пробежкой по имеющимся у них расчетной таблице и табелям.  
Большое спасибо за вас свежий взгляд на ситуацию.

Помогаем))   
http://www.planetaexcel.ru/tip.php?aid=26