Скрытие столбцы где есть пустые ячейки в таблице.

[jain_39]

Добрый день. Прошу помощи новичку. Нужно скрыть СТОЛБЦЫ где нет данных. Суть да дело. Есть две таблицы одна под другой, где разносятся продажи товара. Искал макрос так и не нашел чтобы скрывал столбцы где нет занесенных данных. Сложность в том что если в таблице есть формула но данные в ней равны нулю все равно не скрывают макросы что нашел на сайте.

[Hugo121]

Sub скрыть()
    Dim cc
    Application.ScreenUpdating = False
    For Each cc In [bs9:cn50].Columns
        cc.EntireColumn.Hidden = cc.Text = ""
    Next
    Application.ScreenUpdating = True
End Sub

Sub отобразить()
    Dim cc
    Application.ScreenUpdating = False
    For Each cc In [bs9:cn50].Columns
        cc.EntireColumn.Hidden = Not cc.Text = ""
    Next
    Application.ScreenUpdating = True
End Sub

Можно написать один код на ToggleButton - добавить анализ статуса кнопки.
Или в зависимости от статуса выполнять один из этих.

[jain_39]

Сообщение от Hugo121

Sub скрыть()
    Dim cc
    Application.ScreenUpdating = False
    For Each cc In [bs9:cn50].Columns
        cc.EntireColumn.Hidden = cc.Text = ""
    Next
    Application.ScreenUpdating = True
End Sub

Sub отобразить()
    Dim cc
    Application.ScreenUpdating = False
    For Each cc In [bs9:cn50].Columns
    Debug.Print cc.Text = ""
        cc.EntireColumn.Hidden = Not cc.Text = ""
    Next
    Application.ScreenUpdating = True
End Sub

Можно написать один код на ToggleButton - добавить анализ статуса кнопки.
Или в зависимости от статуса выполнять один из этих.

Спасибо за код. К сожалению я не разбираюсь в программировании макросов на эксель. Пока только записью макроса пользуюсь. Подскажи куда его поставить и как подвесить на кнопку. За ранее спасибо.

[Hugo121]

Вот туда, куда пишет рекордер - и вставляйте.
Хотя в данном случае можно вставить коды и в модуль листа.
А на кнопки (их в этом варианте нужно 2 штуки) поставьте вызов этих макросов - т.е. типа такого:

Private Sub CommandButton1_Click()
скрыть
End Sub

Private Sub CommandButton2_Click()
отобразить
End Sub

Если делать на одной обычной кнопке, то нужно добавлять публичную переменную (лучше типа boolean, но не обязательно), состяние которой менять кнопкой на противоположное, потом его анализировать и вызывать соотв. макрос.
Если делать на ToggleButton, то там анализируется статус самой кнопки.

В общем, вариантов больше одного

P.S. Файл приложить не могу - не дома

[jain_39]

Да разобрался. Еще один вопрос. А как можно сделать чтобы скрывал на не все пустые, например оставил два пустых для разноски новых данных.

[jain_39]

Сообщение от Hugo121

Вот туда, куда пишет рекордер - и вставляйте.
Хотя в данном случае можно вставить коды и в модуль листа.
А на кнопки (их в этом варианте нужно 2 штуки) поставьте вызов этих макросов - т.е. типа такого:

Private Sub CommandButton1_Click()
скрыть
End Sub

Private Sub CommandButton2_Click()
отобразить
End Sub

Если делать на одной обычной кнопке, то нужно добавлять публичную переменную (лучше типа boolean, но не обязательно), состяние которой менять кнопкой на противоположное, потом его анализировать и вызывать соотв. макрос.
Если делать на ToggleButton, то там анализируется статус самой кнопки.

В общем, вариантов больше одного

P.S. Файл приложить не могу - не дома

Да разобрался. Еще один вопрос. А как можно сделать чтобы скрывал на не все пустые, например оставил два пустых для разноски новых данных.

[Hugo121]

Задаёте переменную-счётчик.
Перед каждым скрытием увеличиваете счётчик, затем анализируете его.
Как только счётчик больше 2х - можно скрывать.
Так останутся видимыми два первых пустых столбца, т.к for each перебирает с начала листа.

[RAN.]

Небольшое уточнение.
При наличии формул, возвращающих 0, этот макрос будет корректно работать только при снятом флажке "Показывать нули...". Если 0 будет отображаться - столбец определиться как не пустой.

Обмануть можно так

Sub скрыть()
    Dim cc
    Application.ScreenUpdating = False
    ActiveWindow.DisplayZeros = False
    For Each cc In [bs9:cn50].Columns
        cc.EntireColumn.Hidden = cc.Text = ""
    Next
    ActiveWindow.DisplayZeros = True
    Application.ScreenUpdating = True
End Sub