Hücre değerine göre sütun açıp kapatma

[Gold_Savt]

Değerli Arkadaşlar;
E13 hücresinde
"Ege" yazdığında AA:AK sütunları arası ile BA:BK sütunları arasının gizlenmesi diğer sütunların açılması gerekiyor.
yine E13 hücresinde "karadeniz" yazdığında AA:AB sütunları ile BA:BB sütunlarının gizlenmesi diğer sütunların açılması gerekiyor.
Açılıp kapanacak hücreler AA'dan başlayıp CA da bitemsi gerekiyor. daha ilerdeki gizli sütunlara gitmemesi gerekiyor.

Bunu yapmak için buton koymak zorundamıyım, yoksa otomatik makrolar mevcut mudur?

 

[Korhan Ayhan]

Merhaba,

Bu işlemi yapmak istediğiniz sayfanızın kod bölümüne aşağıdaki kodu uygulayıp deneyiniz.

E13 hücresine elle EGE ya da KARADENİZ yazdığınızda kod çalışacaktır.

Option Explicit

Private Sub Worksheet_Change(ByVal Target As Range)
    If Intersect(Target, Range("E13")) Is Nothing Then Exit Sub
    Select Case UCase(Replace(Replace(Target, "ı", "I"), "i", "İ"))
        Case "EGE"
            Range("AA:CA").EntireColumn.Hidden = False
            Range("AA:AK,BA:BK").EntireColumn.Hidden = True
        Case "KARADENİZ"
            Range("AA:CA").EntireColumn.Hidden = False
            Range("AA:AB,BA:BB").EntireColumn.Hidden = True
    End Select
End Sub

 

[Gold_Savt]

Teşekkür ederim Korhan Bey.