Otomatik Sütunları Gizle Göster Makrosu

[csncesur]

Çalışma sayfasında E,F,G sütunları buton yardımıyla gizlemek veya göstermek istiyorum GİZLE-GÖSTER Butonu. Yardımlarınız için şimdiden teşekkür ederim.

 

[AdemCan]

Sub Gizle()
    Columns("E:G").EntireColumn.Hidden = True
End Sub

Sub Göster()
    Columns("E:G").EntireColumn.Hidden = False
End Sub

 

[dEdE]

Alternatif,
Sayfaya bir ToggleButton (Değiştirme Düğmesi) ekleyip, butonun kod bölümüne aşağıdaki kodu yapıştırarak tek butonla da yapılabilir.

Private Sub ToggleButton1_Click()
    If ToggleButton1.Value = True Then
        Columns("E:G").EntireColumn.Hidden = True
      Else
        Columns("E:G").EntireColumn.Hidden = False
    End If
End Sub

 

[csncesur]

Sub Gizle()
    Columns("E:G").EntireColumn.Hidden = True
End Sub

Sub Göster()
    Columns("E:G").EntireColumn.Hidden = False
End Sub

Çok Teşekkür ederim Sayın AdemCan

 

[csncesur]

Alternatif,
Sayfaya bir ToggleButton (Değiştirme Düğmesi) ekleyip, butonun kod bölümüne aşağıdaki kodu yapıştırarak tek butonla da yapılabilir.

Private Sub ToggleButton1_Click()
    If ToggleButton1.Value = True Then
        Columns("E:G").EntireColumn.Hidden = True
      Else
        Columns("E:G").EntireColumn.Hidden = False
    End If
End Sub

Çok Teşekkür ederim Sayın dEdE

 

[AdemCan]

Rica ederim

 

[Korhan Ayhan]

Alternatif...

Tek buton ile gizle-göster yapabilirsiniz.

Option Explicit

Sub Columns_Hidden_Unhidden()
    Columns("E:G").Hidden = Not Columns("E:G").Hidden
    ActiveSheet.Shapes(Application.Caller).TextFrame.Characters.Text = _
    IIf(Not Columns("E:G").Hidden = False, "GÖSTER", "GİZLE")
End Sub

 

[csncesur]

Alternatif...

Tek buton ile gizle-göster yapabilirsiniz.

Option Explicit

Sub Columns_Hidden_Unhidden()
    Columns("E:G").Hidden = Not Columns("E:G").Hidden
    ActiveSheet.Shapes(Application.Caller).TextFrame.Characters.Text = _
    IIf(Not Columns("E:G").Hidden = False, "GÖSTER", "GİZLE")
End Sub

Korhan bey çok teşekkür ederim