GÜNÜN TARİHİ OLAN SAYFA RENKLİ OLSUN

[kneehot]

Arkadaşlar merhaba; başlıkta anlatmak zor oldu ama yapmak istediğim excel dosya sayfa isimlerim tarih. Yani 1 2 3 4 5 şeklinde 31 e kadar gidiyor. Yapmak istediğim dosyayı açtığımda ayın kaçı ise o sayfa ismini renkli olması. Örnek olarak 16 sında açtığımda 16 isimli sayfa ismi rengi diğerlerinden farklı bir renk olsun. Şimdiden yardımlara çok teşekkür ederim.

 

[cicosz]

Merhaba,

Sekme adlarının, içerisinde bulunduğumuz tarihlere ait günlerin olduğunu varsaydım.
Örneğin; bugünün (16.08.2020) tarihine ait sayfanın adını 16 olarak kabul edip işlem yapılmıştır.
Aşağıdaki kod işinizi görür mü?
(Çalışma kitabının kod bölümüne ekleyiniz.)

Private Sub Workbook_Open()

Dim gun As Integer
Dim syf As Worksheet

gun = Format(Date, "dd")

    For Each syf In ThisWorkbook.Worksheets
        If syf.Name = gun Then
            syf.Tab.ColorIndex = 6 'sarı renk
        Else
            syf.Tab.ColorIndex = xlNone
        End If
     Next

End Sub

 

[kneehot]

Merhaba,

Sekme adlarının, içerisinde bulunduğumuz tarihlere ait günlerin olduğunu varsaydım.
Örneğin; bugünün (16.08.2020) tarihine ait sayfanın adını 16 olarak kabul edip işlem yapılmıştır.
Aşağıdaki kod işinizi görür mü?
(Çalışma kitabının kod bölümüne ekleyiniz.)

Private Sub Workbook_Open()

Dim gun As Integer
Dim syf As Worksheet

gun = Format(Date, "dd")

    For Each syf In ThisWorkbook.Worksheets
        If syf.Name = gun Then
            syf.Tab.ColorIndex = 6 'sarı renk
        Else
            syf.Tab.ColorIndex = xlNone
        End If
     Next

End Sub

İlginiz için çok teşekkür ederim. Kodu ekledim fakat If syf.Name = gun Then satırında hata verdi. Gerekli sayfa sarı renkli oldu fakat hata uyarısı var.

Private Sub Workbook_Open()

Dim gun As Integer
Dim syf As Worksheet

gun = Format(Date, "dd")

For Each syf In ThisWorkbook.Worksheets
If syf.Name = gun Then
syf.Tab.ColorIndex = 6 'sarı renk
Else
syf.Tab.ColorIndex = xlNone
End If
Next

End Sub

 

[cicosz]

Merhaba,

Çalışma kitabınızdaki sayfa adlarını gösteren ekran fotoğrafı paylaşmanız mümkün mü?

 

[Hepgel]

Merhaba @kneehot

Koddaki

Dim gun As Integer

olan satırı

Dim gun As String

olarak değiştirip, dener misiniz.

 

[kneehot]

Merhaba @kneehot

Koddaki

Dim gun As Integer

olan satırı

Dim gun As String

olarak değiştirip, dener misiniz.

Bu değişikliği yapınca düzeldi. Tüm yardımlara teşekkürler.

 

[kneehot]

Merhaba,

Çalışma kitabınızdaki sayfa adlarını gösteren ekran fotoğrafı paylaşmanız mümkün mü?

Çok teşekkürler.

 

[Hepgel]

Bu değişikliği yapınca düzeldi. Tüm yardımlara teşekkürler.

Rica ederim,
İyi Çalışmalar.