Soru Sütun gizle göster makrosu

[okan32]

Tek butonla C-E-G-H-K-L sütunlarını gizlemek ve göstermek istiyorum. Yardımlarınızı bekliyorum

 

[Tevfik_Kursun]

Merhaba Arkadaş,

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

Deneyiniz
İyi çalışmalar

 

[okan32]

Teşekkür ederim Tevfik bey bunları tek butonda nasıl birleştirebilirim.

 

[Tevfik_Kursun]

Merhaba Arkadaş,

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

Bir CommandButton ekleyin. Bu makroda da button numarasını düzeltin.
İyi çalışmalar

 

[okan32]

Çok teşekkür ederim Tevfik bey

 

[Tevfik_Kursun]

Rica ederim arkadaşım, dönüş yaptığınız için ben teşekkür ederim.
İyi çalışmalar

 

[Korhan Ayhan]

Alternatif;

Option Explicit

Sub Sutun_Gizle_Goster()
    With Range("C:C,E:E,G:G,H:H,K:K,L:L")
        .EntireColumn.Hidden = Not .EntireColumn.Hidden
    End With
End Sub