Satır ve Sütun Gizleme/Gösterme KOD Yardımı

[Omerullah]

Sayın Uzman Arkadaşlar,

Excelde oluşturulan bir tabloda doğal olarak veriler ve formüller bulunmaktadır. Veri içermeyen satır ve sütunları içerisinde formül sonucu "0" olan tüm satır ve sütunlar, "a2" hücresine çift tıklama ile gizlenmesi, tek tıklama ile görünmesi sağlanmak istenmektedir. Sitedeki çeşitli örneklerden yola çıkarak ekteki örnek dosyayı oluşturdum ama, istenileni tam anlamıyla sağlayamadım.

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Target.Address <> "$A$2" Then Exit Sub
Range("A4:A200").EntireRow.Hidden = True
Range("E:AI").EntireColumn.Hidden = True
End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Address <> "$A$2" Then Exit Sub
Range("A4:A200").EntireRow.Hidden = False
Range("E:AI").EntireColumn.Hidden = False

End Sub

Örnek doyada daha detaylı anlatım mevcut olup, değerli uzman arkadaşlardan çalışma sayfasına eklenecek bir KOD yardımı rica ediyorum.

Saygılarımla.
Ömer ÜZÜMCÜ

 

[Omerullah]

Değerli Uzman Arkadaşlarım,

Yukarıdaki KOD yardımına çok ihtiyacım var, çalışmayı tamamlamak için zamanım kalmadı, sizlerden çok değerli yardımlarızı rica ediyorum.

Saygılarımla.
Ömer ÜZÜMCÜ