Автоматический процесс скрытия и раскрытиестолбцов в зависимости от значения.

[Aleves]

Здравствуйте,

Имею небольшой опыт в написании формул, однако с VBA столкнулся впервые и нужна определенная функция, а времени на изучение с нуля мало.
Для примера: ячейки на главном листе ссылаются на ячейки в других листах. В ячейках на других листах одно из возможных значений будет "no", которое соответственно будет выводится на главный лист.
Нужно чтобы макрос атоматически скрывал столбцы на главном листе, если значение в исходных ячейках менялось на "no" и раскрывал те столбцы где значение "no" поменялось на какое-либо другое.
Из всех найденных решений не смог найти полностью пдходящее или же просто не знаю, как их совместить (знаний пока не хватает)

Самое близкое из работающих:

Код: (vb)

Sub Hide_Columns_Containing_Value()

    
Dim c As Range

    For Each c In Range("A1:z22").Cells
        If c.Value = "no" Then
            c.EntireColumn.Hidden = True
           End If
Next c
End Sub

но оно просто скрывает столбец при ручном запуске макроса.

Буду признателен если сможете помочь. Заранее спасибо.

[Дмитрий Щербаков(The_Prist)]

Сложно помочь когда нет файл и вообще не ясно где записаны эти "no" и где именно они меняются: на том же листе или на другом...
По сути Вам надо смотреть в сторону событийных процедур листа - здесь чуть подробнее.
По итогу в модуль того листа, где будут меняться "no":

Код: (vb)

Private Sub Worksheet_Change(ByVal Target As Range)
if not intersect(Range("A1:z22"),target) is nothing then
    Dim c As Range
    For Each c In Range("A1:z22").Cells  
        If c.Value = "no" Then  
            c.EntireColumn.Hidden = True  
        End If  
    Next
end if
End Sub 

Событие срабатывает только при ручном внесении изменений. Изменения формулами не отслеживаются.