Excel sheets koşullu sayfa gizleme

[mesutaygun70]

Excel sheetste bir form var.
Sayfa adları hafta içi günler(18.03.2024) yani ortalama 250 civarında sayfa olacak.
Bugün formülü ile o günden önceki sayfalar otamatik gizlenecek (Bu şekilde olmassa sayfada örneğin c1 sütununa =bugün()-18.03.2024 formülü kullanırım. C1 hücresi eğer - (eksi ) değer ise gizlensin makrosu yazmak istiyorum.
Eğer bu makroyu yazabilirsem tetikleyici ile açılışta makro çalıştırabilirim makro için yardıma ihtiyacım var.

 

[ÖmerBey]

Merhaba,
Deneyiniz...

Sub kod()
Dim s As Worksheet
For Each s In Sheets
    If IsDate(s.Name) Then
        If DateValue(s.Name) < Date Then s.Visible = xlSheetHidden
    End If
Next
End Sub