Всем доброго вечера!
Есть два макроса(нашёл на форуме):
-первый печатает только те листы книги в которых ячейка А1 не пуста или не равна нулю, но если листы скрыть то макрос выдаёт ошибку и ничего не печатает.
-второй код печатает листы если их скрыть, но в нём нужно перечислять название листов.
Моя задача-записать код который будет печатать листы в которых ячейка A1 не пуста и будет их печатать даже если эти листы скрыты.
Сижу верчу, кручу эти два кода но ничего так и не вышло.
Буду несказанно благодарен за любую помощь.
Ниже два моих макроса(без Sub и End Sub)
Dim sh As Worksheet
For Each sh In ThisWorkbook.Worksheets
If Not sh.[A1].Value = 0 Then sh.PrintOut Copies:=1
Next sh
Application.ScreenUpdating = False
For Each ws In Sheets(Array("Лист1", "Лист2", "Лист3"))
With ws
.Visible = -1
.PrintOut
.Visible = 0
End With
Next
Есть два макроса(нашёл на форуме):
-первый печатает только те листы книги в которых ячейка А1 не пуста или не равна нулю, но если листы скрыть то макрос выдаёт ошибку и ничего не печатает.
-второй код печатает листы если их скрыть, но в нём нужно перечислять название листов.
Моя задача-записать код который будет печатать листы в которых ячейка A1 не пуста и будет их печатать даже если эти листы скрыты.
Сижу верчу, кручу эти два кода но ничего так и не вышло.
Буду несказанно благодарен за любую помощь.
Ниже два моих макроса(без Sub и End Sub)
Dim sh As Worksheet
For Each sh In ThisWorkbook.Worksheets
If Not sh.[A1].Value = 0 Then sh.PrintOut Copies:=1
Next sh
Application.ScreenUpdating = False
For Each ws In Sheets(Array("Лист1", "Лист2", "Лист3"))
With ws
.Visible = -1
.PrintOut
.Visible = 0
End With
Next