Birden fazla sayfada sütun gizleme

[enteresan]

Sevgili excel'ci arkadaşlar. Forumda aramama rağmen soruma uygun bir örnek bulamadım. EK'te gönderdiğim dosyada bir hücredeki rakam değişikliğine göre 3 ayrı sayfada istediğim sütunları gizlemek veya göztermek istiyorum. Bir kısmı çalıştı bir kısmı çalışmadı. Buna uygun bir kod yazacak arkadaşa minnettar olurum. Saygılarımla...

 

[Orion1]

Dosyanız ekte.

Private Sub Worksheet_Change(ByVal Target As Range)
On Error Resume Next
If Intersect(Target, [C5]) Is Nothing Then Exit Sub
If Target.Value = 20 Then
    Sheets("Sayfa1").Range("W:AA").EntireColumn.Hidden = True
    Sheets("Sayfa2").Range("W:AB").EntireColumn.Hidden = True
    Sheets("Sayfa3").Range("W:AA").EntireColumn.Hidden = True
    Else
    Sheets("Sayfa1").Range("W:AA").EntireColumn.Hidden = False
    Sheets("Sayfa2").Range("W:AB").EntireColumn.Hidden = False
    Sheets("Sayfa3").Range("W:AA").EntireColumn.Hidden = False
End If
End Sub

 

[enteresan]

Sevgili Evren Gizlen üstadım, elinize sağlık. Lakin bu C5 hücresine değeri manuel girersem makro çalışıyor, oysa ki bu C5 hücresine user formdaki bir textbox ile değer atıyorum. Yani bu 20 ve 25 değerini userform ile verdiğimde makro çalışmıyor. Bir de siz deneyebilir misiniz?

 

[enteresan]

Özür...

Sevgili Evren Gizlen üstadım, elinize sağlık. Lakin bu C5 hücresine değeri manuel girersem makro çalışıyor, oysa ki bu C5 hücresine user formdaki bir textbox ile değer atıyorum. Yani bu 20 ve 25 değerini userform ile verdiğimde makro çalışmıyor. Bir de siz deneyebilir misiniz?

Hocam özür diliyorum. Hatayı ben yapmışım. Çok teşekkür eder, saygılar sunarım...