Всем доброго времени суток!!!  
По примеру приведенному на сайте(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

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

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

Сделал таблицу по приведенному на сайте примеру (http://www.planetaexcel.ru/tip.php?aid=99 -Заполнение бланков данными из списка (базы данных)). В примере приведен один бланк. У меня же их несколько. Можно ли сделать возможность выбора бланка для заполнения.

Есть макрос по снятию защиты со всех листов книги сразу.  
Как сделать так чтобы при вводе не правильного пароля выводилось сообщение.  
Вариант с On Error Resume Next не подходит.  
 
Sub UnProtectAllSheets()  
Dim strPassword As String  
Dim wsh As Worksheet  
strPassword = InputBox("Enter the password for the worksheet")  
For Each wsh In ThisWorkbook.Worksheets  
wsh.Unprotect (strPassword)  
Next  
End Sub

Помогите доработать форму поиска листов в книге. Условия в файле

Как изменить приведенный в примерах сайта макрос по сортировке листов в книге

Помогите не много переделать форму поиска и редактирования данных в таблицах.    
Есть две таблицы размещенные на одном листе и форма по поиску и редактированию в них данных.    
Необходимо сделать так что бы можно было еще добавлять данные в эти таблицы  с помощью этой же формы.

Есть макрос  
 
Sub OK()  
   Dim a(1 To 4), I&  
   For I = 1 To 4  
   a(I) = Range("o" & I * 2)  
   Next  
   Sheets("лист1").[a65536].End(xlUp)(2).Resize(, 4) = a
End Sub  
 
Помогите изменить макрос. Он вставляет во 2-ю строку, а надо например в 11 строку.

Помогите пожалуйста!!! Есть две книги "Списки" и "База" . В "Списки" распологаются три выпадающих списка с данными из "База". Нужен исходный текст который позволил бы произоводить автоматическое добавление  
новой инфы в выпадающие списки с последующей возможностью ее выбора в этих списках. За ранее премного благодарен.

Помогите пожалуйста в EXEL я мало что понимаю. По работе очень нужен автоотчет выданных путевых листов автотраспорта.  
На листе "путевка" список с возможностью добавления новых гаражных номеров где выбирается гаражный номер авто, поле ввода номера путевки и дата выдачи. Нужно что бы эти три поля автоматически или хотя бы по нажатию кнопки помещались в таблицу на листе "отчет". Заранее  выражаю свою благодарность всем откликнувшимся на мою просьбу.