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

Всем доброго времени суток!!!  
По примеру приведенному на сайте(http://www.planetaexcel.ru/tip.php?aid=99)  
сделал таблицу для заполнения бланков. Бланков несколько. Поэтому есть макрос их печати.  
Подскажите пожалуйста как сделать так что бы в ниже приведенном макросе печати  
бланков выполнялось следующие условие:  
если не выбрана или не отмечена ни одна строка с данными для вставки в бланк, то макрос    
выдавал бы сообщение об этом и заканчивал свою работу.  
 
Sub MyPrint()  
Application.ScreenUpdating = False  
Dim Sh As Worksheet  
For Each Sh In ThisWorkbook.Worksheets  
If InStr("Бланк1@Бланк2@Бланк3@Бланк4@Бланк5", Sh.Name) Then  
If Len(Sh.[A1].Value) Then Sh.PrintOut Copies:=1
End If  
Next Sh  
Range("E2").Select  
Application.ScreenUpdating = True  
End Sub

Спасибо за подсказку все работает. Можно закрывать тему.

Доброго времени суток. Есть форма поиска и вставки значений.  
Подскажите пожалуйста, как изменить код формы что бы ячейки в столбцах "А" и "Е" после вставки были сохранены как число а не как текст.

Юрий М, спасибо.

Доброго времени суток.  
Есть два макроса, по отдельности работают, а вместе не хотят, вероятно из-за одинакового имени. Как их совместить для одновременной работы?  
 
Private Sub Worksheet_Change(ByVal Target As Range)  
Dim r As Long  
Dim str As String  
Application.EnableEvents = False  
If Target.Count > 1 Then Exit Sub  
If Target.Column = 1 Then  
   str = Target.Value  
   Application.EnableEvents = False  
   r = Cells(Rows.Count, 2).End(xlUp).Row  
    Range("A2:A" & r).ClearContents  
   Target.Value = str  
End If  
 Application.EnableEvents = True  
End Sub  
 
Private Sub Worksheet_Change(ByVal Target As Range)  
   If Target.Cells.Count > 1 Then Exit Sub  
       If Not Intersect(Target, Range("B:B")) Is Nothing Then  
           With Target(1, 2)  
               .Value = Date  
               .EntireColumn.AutoFit  
           End With  
       End If  
End Sub

Юрий М, спасибо еще раз за помощь!!!  
Для моей задачи больше подходит предложенный Вами вариант на первой странице темы (post_358681.xls). Правда я  не много изменил формулу под свои нужды. Вот файл может кому нужен будет.

Забыл добавить, таблицы на листах "Разнарядка" и "лист1" будут изменяться по количеству строк

В таблице на листе 1 существуют два столбца "1 смена" и "2 смена". В них отмечается выход техники на линию.  
В таблице на листе "Разнарядка" вносятся данные для заполнения шаблонов путевых листов на эту технику. Техника работает в двухсменном режиме. Т.е. на каждое транспортное средство или строймашину заполняется две строки в таблице на листе "Разнарядка", соответственно на 1 и 2 смену. Необходимо:  
При установке номера пут. листа в таб. на листе "Разнарядка", получить надпись "линия".  
При установке буквы "р" в ячейке для номера пут. листа на листе "Разнарядка", получить надпись "ремонт".  
При отсутствии номера пут. листа на листе "Разнарядка", получить надпись "односменный".  
Нагляднее в файле.

Юрий М, тему посмотрел все понял. Спасибо за предложенный вариант.  
Обновил файл для наглядности.  
Данные берутся из столбца "B" листа "Разнарядка". Номер путевки означает что выдан путевой лист в 1-ю или 2-ю смены. Необходимо выбирать ячейки из столбца "B".  
Если можно кодом, то как это реализовать?

{quote}{login=Юрий М}{date=25.08.2012 10:40}{thema=}{post}2. "Похоже это действительно не возможно осуществить"...    
manah, Ну вот не надо этого - кого Вы хотите зацепить подобной фразой?{/post}{/quote}  
Юрий М, приношу свои извинения, если "зацепил" Вас.  
Просто думал, что посмотрев мой вопрос, люди приходят к выводу о не возможности осуществления такового.

ber$erk, спасибо что откликнулись. Вопрос терпит подождем до вечера.

Похоже это действительно не возможно осуществить.

Не уже ли такое не возможно? Или проще будет руками прописывать адрес ячейки.

Есть форма которая заполняет таблицу. В одну из ячеек таблицы макрос вставляет формулу:  
 
=IF('лист2'!XXX=""р"",""ремонт"",IF('лист2'!XXX>0,""линия"",""односменный""))  
 
XXX-это ячейка из которой берутся данные. Можно ли сделать возможность выбора этой  
ячейки при вставке формулы?

Юрий М, спасибо за разъяснения

Есть макрос вставки в динамический диапазон таблицы  
Если нет ни какого символа с столбце А, то макрос не работает  
Каким образом можно исправить эту проблему

Hugo, спасибо опять выручили.

Опять какая то странная вещь происходит  с макросом печати пут. листа.    
Сделал таблицу в которой введены данные для 5 разных бланков пут. листов. Ставлю метку на против нужного листа и  ввожу номер пут. листа (остальные листы без номера), жму печать - вылетает ошибка макроса печати.  
Но если проставить минимум в трех листах номера путевок, то тогда работает все прекрасно.  
Не могу понять в чем причина. Прошу помощи.

Я поставил запятые тоже работает.

{quote}{login=Hugo}{date=20.08.2012 10:29}{thema=}{post}"Лист2|Лист3|Лист4"{/post}{/quote}  
 
А можно спросить что это за знак между листами?

Hugo, а можно сделать так что бы этот макрос проверял не все листы, а только указанные? Например в книге 5 листов с именами "лист1","лист2","лист3,"лист4" и "лист5", макрос проверяет только "лист2","лист3" и "лист4".  
 
Sub MyPrint()  
Dim sh As Worksheet  
For Each sh In ThisWorkbook.Worksheets  
If Len(sh.[A1].Value) Then sh.PrintOut Copies:=1
Next sh  
End Sub

Hugo, огромное спасибо!!!  
Теперь все работает как надо.

Где я их не поставил

Если использовать этот макрос печати на другом чистом листе, то он работает прекрасно. А вот именно на на этих листах не хочет работать так как надо.

Какого конвертера

По моему я поторопился закрывать тему.    
Вчера все работало сегодня не все.    
Почему то на печать стали выводится все бланки. Вывод на печать осуществляется по наличию номера путевого листа, т.е. номер пут. листа формулой переносится в ячейку А1. Но почему то теперь на печать выводится и не заполненный бланк. Не могу понять в чем причина этой проблемы.

Всем спасибо за помощь с частности Hugo за формулу.  
С выводом на печать разобрался. Поиск по форуму великая вещь. Использовал код предложенный GIG_ant вот здесь   
www.planetaexcel.ru/forum.php?thread_id=36613.  
Тему можно закрывать.

Вариант интересный сразу даже и не понял как работает. Но вот бы еще макрос вывода на печать нужного листа

Hugo, не могли бы и с макросом помочь, буду очень признателен