Togglebutton ile bügunden küçük sütunları gizlemek ve göstermek

[Believing]

Sayın Uzman arkadaşlar,

Ekteki çalışmanın "C3:NC3" aralığında "gg aaa" formatında bir yıllık tarih içeren sütunlar bulunmaktadır.
Sayfaya atana Togglebutton bugünden küçük olan sütunları gizleme veya göstermek istiyorum.
Benim için değerli olan yardımlarınızı rica ediyorum.

Saygılarımla,

 

[ÖmerFaruk]

Butonunuzu A ya da B sütununa yapıştırın.
Aşağıdaki kodu sayfaya ekleyin.

Private Sub ToggleButton1_Click()
    If ToggleButton1.Value = True Then
        Say = WorksheetFunction.Days(DateSerial(Year(Range("C3")), Month(Date), Day(Date)), Range("C3")) + 2
        If Say > 2 Then Range(Cells(3, 3), Cells(3, Say)).EntireColumn.Hidden = True
    Else
        Columns.Hidden = False
    End If
End Sub

 

[Believing]

Sayın NextLevel,

Bütün konulara yetişmek zorunda mısınız?
ALLAH sizden ve sevdiklerinizden razı olsun.
Hakkınızı helal ediniz lütfen.

Saygılarımla,