Soru Buton ile belirli kolonları gizleme/açma

[ercanborais]

Selamlar,

Bir buton koyup bastığımda mesela B,D,E,K,M,X gibi kolonları gizleyecek.

Başka bir butona bastığımda ise bu gizlenenleri tekrardan gösterecek.

Yardımalarınız için çok teşekkür ederim.

 

[Mdemir63]

Selamlar
Aşağıdaki kodları butonlara atayarak deneyiniz.

Sub gizle()
     Range("B:B,D:D,E:E,K:K,M:M,X:X").Select
    Selection.EntireColumn.Hidden = True
End Sub

Sub goster()
    Range("B:B,D:D,E:E,K:K,M:M,X:X").Select
    Selection.EntireColumn.Hidden = False
    Range("A1").Select
End Sub

 

[Korhan Ayhan]

Alternatif;

Tek buton ile sütunları hem gizleyip hem de gösterebilirsiniz.

Option Explicit

Sub Gizle_Goster()
    With Range("B:B,D:D,E:E,K:K,M:M,X:X")
        .EntireColumn.Hidden = Not .EntireColumn.Hidden
    End With
End Sub

Ya da;

Option Explicit

Sub Gizle_Goster()
    Range("B:B,D:D,E:E,K:K,M:M,X:X").EntireColumn.Hidden = Not _
    Range("B:B,D:D,E:E,K:K,M:M,X:X").EntireColumn.Hidden
End Sub

 

[ercanborais]

Allah razı olsun.... teşekkürler