Gizlenecek sütun aralığı, sayfa üzerinden belirlenebilir mi?

[EKREM1661]

Çok değerli arkadaşlar..!

Sütun bazlı olarak veri girilen bir tabloda, sütunlar dönemsel olarak artış gösterdiği için, geriye dönük sütunların bir kısmını ToggleButton ile gizle/göster yapılıyor. Fakat zaman itibariyle veri sütunları artış gösterdiği için makro koduna gidip gizlenecek sütun aralığında değişiklik yapmak gerekiyor.

Makro koduna gitmeden sayfa üzerinde.. Örneğin, gizlenecek sütun aralığını C2 ve D2 hücrelerine (harflerini veya sayılarını) yazarak istediğimiz aralığı gizleme/açma kolaylığı yapılabilir mi?

 

[Suskun]

Deneyin
Private Sub ToggleButton1_Click()

If ToggleButton1.Value = True Then
ToggleButton1.Caption = "Diğer Rapor Girdileri / Gizle >"
Columns(Range("C2") & ":" & Range("D2")).EntireColumn.Hidden = False
Else
ToggleButton1.Caption = "Diğer Rapor Girdileri / Göster >"
Columns(Range("C2") & ":" & Range("D2")).EntireColumn.Hidden = True
End If
End Sub

 

[EKREM1661]

Sn.Suskun bey.. Harika.. Gayet güzel olmuş, çok teşekkürler, eline sağlık..

 

[Korhan Ayhan]

Alternatif;

Private Sub ToggleButton1_Click()
    ToggleButton1.Caption = "Diğer Rapor Girdileri / " & IIf(ToggleButton1.Value = True, "Gizle >", "Göster >")
    With Columns(Range("C2") & ":" & Range("D2"))
        .Hidden = Not .Hidden
    End With
End Sub

 

[EKREM1661]

Private Sub ToggleButton1_Click() ToggleButton1.Caption = "Diğer Rapor Girdileri / " & IIf(ToggleButton1.Value = True, "Gizle >", "Göster >") With Columns(Range("C2") & ":" & Range("D2")) .Hidden = Not .Hidden End With End Sub

Teşekkür ederim Korhan bey, bu da güzel oldu..