Страницы: 1
RSS
Печать диапазона по условию
 
Здравствуйте, подскажите что поменять в коде, что б печать шла так же по условия как сейчас, но условие была не одна ячейка, а диапазон, раньше просто было если в ячейке р55 стояло значение, печать шла, сейчас немного стало сложнее, в нескольких ячейках могут быть значения, а строки с ошибками скрыты...нужно что б на печать шло то что не скрыто, вне зависимости от ячейки, если это конечно реально, столбец всегда один и тот же, диапазон от р55 до р100, но среди диапазона могут быть строки с ошибками, но они скрываются с помощью другого макроса, в общем если есть значение, не зависимо от того в какой ячейке, что б шла печать, а если везде ошибки, то соответственно что б не выводилось, именно если по всему диапазону ошибки, то вывода на печать нет, а если среди диапазона есть хоть одно значение, то вывод на печать
Код
Sub printtt()
    Dim sh As Worksheet
    For Each sh In Worksheets
       If Not IsError(sh.Cells(55, 16).Value) Then
         If sh.Cells(55, 16) <> "" Then
             sh.PrintOut Copies:=1
         End If
       End If
    Next sh
End Sub


Изменено: denka1982 - 13.01.2021 15:17:25
 
в принципе как должен выглядеть макрос, задан диапазон, если в нем есть хоть одно значение, даже если и будут ошибки, идет печать, если в диапазоне только ошибки, вывода на печать нет, просто я не макрописец, ну идея такая
Страницы: 1
Наверх