Печать листа по условию.

Старая форма входа

Страница 1 из 1 1
Модератор форума: китин, _Boroda_

Печать листа по условию. (Макросы/Sub)

Amator

Дата: Среда, 22.05.2019, 21:04 | Сообщение № 1

Группа: Проверенные

Ранг: Форумчанин

Сообщений: 107

Репутация: 0 ±

Замечаний: 0% ±

Excel 2007

Здравствуйте. Прошу помощи в написании макроса.На форме в ListBox1 отображаются названия листов (красные ярлычки).После выбора листа необходимо напечатать "АКТ" к этому листу (жолтые ярлычки). Тоесть , после выбора листа в ListBox1, просматриваем листы имена которых начинается на "АКТ". И , если значение в ячейке М20 соответствует названию листа из ListBox1, выводим этот "АКТ" на печать. Заранее спасибо.

К сообщению приложен файл: 0144689.xlsb (49.4 Kb)

Ответить

K-SerJC

Дата: Четверг, 23.05.2019, 09:54 | Сообщение № 2

Группа: Проверенные

Ранг: Обитатель

Сообщений: 487

Репутация: 86 ±

Замечаний: 0% ±

Excel 2013

так?
[vba]

Код

Private Sub CommandButton4_Click()
Dim sh, nm, itm
For Each sh In ThisWorkbook.Sheets
nm = sh.Name
If Left(nm, 3) = "АКТ" Then
For itm = 0 To ListBox1.ListCount - 1
If ListBox1.List(itm) = sh.Range("M20").Value And ListBox1.Selected(itm) = True Then
sh.PrintOut Copies:=1, Collate:=True, IgnorePrintAreas:=False
Exit For
End If
Next itm
End If
Next sh
End Sub

[/vba]

К сообщению приложен файл: Amator.xlsb (53.6 Kb)

Благими намерениями выстелена дорога в АД.

Сообщение отредактировал K-SerJC - Четверг, 23.05.2019, 09:55

Ответить

Amator

Дата: Четверг, 23.05.2019, 12:32 | Сообщение № 3

Группа: Проверенные

Ранг: Форумчанин

Сообщений: 107

Репутация: 0 ±

Замечаний: 0% ±

Excel 2007

K-SerJC, большое спасибо. То , что надо.

Ответить

Печать листа по условию. (Макросы/Sub)

Страница 1 из 1
1