Private Sub cmdHideRegion_Click()
For Each nm In ActiveWorkbook.Names
    If nm.Name = "Приход" Then Exit For
Next
If cmdHideRegion.Caption = "Убрать пустые строки" Then
    For Each c In nm.RefersToRange.Columns
        If WorksheetFunction.CountA(c) =  0  Then c.EntireColumn.Hidden = True
    Next
    cmdHideRegion.Caption = "Показать пустые строки"
Else
    nm.RefersToRange.Columns.Hidden = False
    cmdHideRegion.Caption = "Убрать пустые строки"
End If

End Sub

На сайте осуществляется обработка файлов cookie, необходимых для работы сайта, а также для анализа использования сайта и улучшения предоставляемых сервисов с использованием метрической программы Яндекс.Метрика.

Продолжая использовать сайт, вы даёте согласие на обработку файлов cookie, необходимых для работы сайта. Другие опции вы можете выбрать по своему усмотрению.

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

Пользовательское соглашение
Политика конфиденциальности

	Необходимые cookie
	Cookie для сбора статистики
	Cookie для маркетинга и рекламы