Добрый день! Создал бланк и теперь необходимо напечатать отмеченные значком "п" (в первом столбце) бланки. Это листы "путевка1 и "путёвка2" (будет двусторонняя печать). И после печати хорошо бы, чтоб отметки "п" удалялись. Помогите сделать макрос... за ранее спасибо!
Добрый день! Создал бланк и теперь необходимо напечатать отмеченные значком "п" (в первом столбце) бланки. Это листы "путевка1 и "путёвка2" (будет двусторонняя печать). И после печати хорошо бы, чтоб отметки "п" удалялись. Помогите сделать макрос... за ранее спасибо!DARR
Sub FormPrint() Dim rX As Range Set rX = [tabl1].Columns(1).Find("п") If rX Is Nothing Then MsgBox "Не найден п", 64: Exit Sub Do While Len(rX.Offset(, 2).Value) 'печатаем, пока есть даты в колонке С Sheets("Легковые АВТО").PrintOut Copies:=1, Collate:=True, IgnorePrintAreas:=False rX.Value = "" 'see Worksheet_Change Set rX = rX.Offset(1): rX.Value = "x" Loop End Sub
[/vba] В похожем примере нашёл такой макрос. Надо подредактировать под мой случай, только я не знаю как(
[vba]
Код
Sub FormPrint() Dim rX As Range Set rX = [tabl1].Columns(1).Find("п") If rX Is Nothing Then MsgBox "Не найден п", 64: Exit Sub Do While Len(rX.Offset(, 2).Value) 'печатаем, пока есть даты в колонке С Sheets("Легковые АВТО").PrintOut Copies:=1, Collate:=True, IgnorePrintAreas:=False rX.Value = "" 'see Worksheet_Change Set rX = rX.Offset(1): rX.Value = "x" Loop End Sub
[/vba] В похожем примере нашёл такой макрос. Надо подредактировать под мой случай, только я не знаю как(DARR
Sub FormPrint() Dim rX As Range With Sheets("ТТС") For Each rX In .Range("A6", .Cells(Rows.Count, 1).End(xlUp)) If rX.Value = "п" Then Sheets("путевка1").PrintOut Copies:=1, Collate:=True rX.ClearContents End If Next rX End With End Sub
[/vba]
попробуйте вот так: [vba]
Код
Sub FormPrint() Dim rX As Range With Sheets("ТТС") For Each rX In .Range("A6", .Cells(Rows.Count, 1).End(xlUp)) If rX.Value = "п" Then Sheets("путевка1").PrintOut Copies:=1, Collate:=True rX.ClearContents End If Next rX End With End Sub
Вход
Регистрация
Напомнить пароль
Автосумма
Часто используемые
ВПР
ЕСЛИ
СУММЕСЛИ
Финансовые
Логические
Текстовые
Даты и времени 
Ссылки и массивы 
Математические
Другие функции
Проверка свойств и значений
Баз данных
Математические
Обработки массивов
Обработки строк
Преобразования типов данных 
Загрузки данных
Работы с файлами
Обработки системных параметров
Обработки цвета
Работы с датами и временем
Преобразования в системы счисления
Финансовые
