Sütun Gizle Göster

Sub goster()
Range("C:C,E:E,G:G,H:H,K:K,L:L").EntireColumn.Hidden = False
End Sub

Sub gizle()
Range("C:C,E:E,G:G,H:H,K:K,L:L").EntireColumn.Hidden = True
End Sub.
Private Sub CommandButton1_Click()
If CommandButton1.Caption = "GÖSTER" Then
Call goster
CommandButton1.Caption = "GİZLE"
CommandButton1.BackColor = &HFFFFC0
Else
Call gizle
CommandButton1.Caption = "GÖSTER"
CommandButton1.BackColor = &HC0E0FF
End If
End Sub Bu şekilde çözdüm arkadaşlar

Merhabalar.

Aşağıdaki kod satırı gizleme işini yapar.
Son kısımdaki True ibaresini False olarak değiştirirseniz sütunlar görünür.


.

Tekrar merhaba.

Gizle/Göster için, kendinizin yazdığı çözümü fark etmeden cevap yazmıştım.
Ancak, yazdığınız çözüme baktığımda, bir CommandButton 'un varlığı anlaşılıyor.

Ayrı ayrı goster/gizle makroları ve CommandButton_Click kodları yerine
aşağıdaki tek kod ile işlem yapılabilir.


.

Teşekkür ederim Ömer bey daha pratik olmuş