Автоматическое скрытие/отображение столбцов по условию

[staniiislav]

Здравствуйте уважаемые форумчане.
У меня есть небольшая проблемка, надеюсь Вы сможете помочь ее решить.
И так, в файлике есть таблица свод, мне нужно, что автоматически скрывало и отображало столбцы по условию (если в первой строе, значение ячейки равно нулю, то скрыть этот(и) столбцы.
Я уже открывал такую тему :
http://programmersforum.ru/showthrea...EB%E1%F6%EE%E2
мне очень помогли на тот момент, но столбцы скрывались и отображались только при пересчете формул. Я нашел еще одну тему:
http://programmersforum.ru/showthrea...EB%E1%F6%EE%E2
в которой используется функция
Private Sub Worksheet_Change(ByVal Target As Range)
вот я и решил попросить у знатоков экселя, помочь составить макрос с помощью предыдущей темы (http://programmersforum.ru/showthrea...EB%E1%F6%EE%E2)
Заранее благодарю, тех кто откликнуться

[staniiislav]

Может поможете оптимизировать вот этот код, для моего примера:

Const r = "c3:al3"
Dim x As Range
 'Отобразить все; январь;февраль; март; апрель; май; июнь; июль; август;  сентябрь; октябрь; ноябрь; декабрь

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Address <> [b1].Address Then Exit Sub
    Select Case [b1]
    Case "Отобразить все"
        Range(r).EntireColumn.Hidden = False
    Case ""
        HideColumns
    Case Else
        HideColumns
        Set x = Range(r).Find([b1].Value, , , xlPart, , , False)
        If Not x Is Nothing Then ShowColumns x
    End Select
End Sub

Sub HideColumns()
    Range(r).EntireColumn.Hidden = True
End Sub

Sub ShowColumns(ByRef cell As Range)
    cell.Resize(, 3).EntireColumn.Hidden = False
End Sub

вот к пример этого его работы

[staniiislav]

Если кому интересно, нашел решение для себя, вот такое:

Private Sub Worksheet_Activate()
Dim i As Long: Application.ScreenUpdating = False
        For i = 1 To Cells(1, 73).Column
        If Cells(1, i) > 0 Then
            Columns(i).Hidden = False
        Else
            Columns(i).Hidden = True: Columns(i).AutoFit
        End If
    Next
    Application.ScreenUpdating = True
End Sub

Тему можно закрывать. Спасибо