Sekme Rengi.

[sward175]

Herkese Günaydın,

Gelen mailleri içerik tarihlerine göre kaydediyorum.
İsteğim Tarih ayın kaçıncı günü ise o sayfanın sekme rengi kırmızı olsun.
Saygılarımla,
sward175

 

[u.L.a.s]

Merhaba

Thisworkbook kod sayfasına aşağıdaki kodu yazarsan hangi sekmeyi seçiyorsan o sayfa kırmızı renk olur

Private Sub Workbook_SheetActivate(ByVal Sh As Object)
For Each ws In Worksheets

If ws.Name = ActiveSheet.Name Then
Sheets(ws.Name).Tab.ColorIndex = 3
Else
Sheets(ws.Name).Tab.ColorIndex = xlNone
End If
Next ws
End Sub

 

[sward175]

Sayın, u.L.a.s, Merhaba.
İlginize teşekkürler,
Sekme rengini seçince değil de, Tarih değiştikçe o gün sekmesi renklenmesi uyarı niteliğinde olacaktır.
Bu nedenle tarih hangi gün ise o günün sekme renginin renklenmesi için yardımlarınızı rica ederim.
sward175

 

[EmrExcel16]

Merhaba ,
Tarihe göre günün sayfasının sekme rengini kırmızıya boyar.

Sub Emr()
Dim ws As Worksheet
For Each ws In ThisWorkbook.Worksheets
    If ws.Name = Format(Date, "dd") Then
        ActiveWorkbook.Sheets(ws.Name).Tab.Color = 255
    End If
Next
End Sub

 

[sward175]

Sayın, EmrExcel16 ,
Teşekkür ederim. Gayet güzel oldu,
sward175

 

[EmrExcel16]

Rica ederim , iyi çalışmalar.

 

[Haluk]

Dosya açılınca Tab'ın renklenmesi için;

Private Sub Workbook_Open()
    Dim x As String
    x = Day(Date)
    Sheets(x).Tab.Color = 255
End Sub

.

 

[sward175]

Haluk Bey,
Teşekkürler,
sward175