Sekme rengi

[M.ACAR]

Forumdaki herkese iyi geceler;
Ekli resimdeki gibi hangi ay içinde ise O ay'a ait sayfa sekme rengini değiştirmek için kullanılabilen bir formül varmıdır,

 

[Korhan Ayhan]

Selamlar,

Aşağıdaki kodu ThisWorkbook bölümüne uygulayın. Dosyanızı açtığınızda ilgili aya ait sekme rengi kırmızı olacaktır.

Option Explicit
 
Private Sub Workbook_Open()
    Dim SAYFA As Worksheet, AY As String
    
    AY = UCase(Replace(Replace(Format(Date, "mmmm"), "ı", "I"), "i", "İ"))
    
    For Each SAYFA In Worksheets
        If UCase(Replace(Replace(SAYFA.Name, "ı", "I"), "i", "İ")) <> AY Then
            SAYFA.Tab.ColorIndex = xlColorIndexNone
        Else
            SAYFA.Tab.ColorIndex = 3
        End If
    Next
End Sub

 

[M.ACAR]

İyi günler Korhan bey
İstediğim gibi oldu,çok teşekkür ederim.