buton ile sütun gizleyip açma

[emre_muhendis]

arkadaşlar,

ben bir buton koymak istiyorum excele ve tek işlevi tıklandığında kodda yazdığım sütunları kapatacak, tekrar tıklayınca da açacak. yardımcı olur musunuz

 

[Necdet]

Merhaba,

Bu satırlar sabit satırlar mı?

 

[emre_muhendis]

ever hep sabit olacak. bir nevi görüntü kirliliğini azaltmak için

 

[Orion1]

Togglebutton iyidir bunun için.
Ekli dosyayı inceleyiniz.
Kodlar çalışma sayfasının modülünde.

Private Sub ToggleButton1_Click()
If ToggleButton1 = True Then
    ToggleButton1.Caption = "GÖSTER"
    Range("A:B,G:H,J:J,P:P").EntireColumn.Hidden = True
    Else
    ToggleButton1.Caption = "GİZLE"
    Range("A:B,G:H,J:J,P:P").EntireColumn.Hidden = False
End If
End Sub

 

[emre_muhendis]

süpersiniz Çok teşekkür ediyorum, emeğinize sağlık.

 

[Orion1]

süpersiniz Çok teşekkür ediyorum, emeğinize sağlık.

Rica ederim.
İyi çalışmalar.