sütünları gizlemek göstermek için makro

[akhelmet]

Merhaba,

bir düğme çizip buna makro atayıp istediğimiz sütun aralığını gizlemek istiyorum.

3 buton yaptım
birincisine şu makroyu atadım ( makina kaydetti)
Columns("A:U").Select
Selection.EntireColumn.Hidden = False ' önce hepsini göster diyorum
Columns("e:u").Select
Range("J3").Activate ' bu ne işe yarıyor burda
Selection.EntireColumn.Hidden = True
Range("V5").Select
fakat istediğim sonucu vermedi
makroyu çalıştırınca d ile v sütunuarasını gizliyor nedense

 

[Ali]

Sn akhelmet, Mesela A'dan E'ye kadar olan sütunlar gizlenecekse butona

Sub sütungizlegoster()
Columns("A:E").Hidden = Not Columns("A:E").Hidden
End Sub

olarak ayarlamanız yeterli olacaktır

 

[akhelmet]

teşekkürler