Merhaba;
Aşağıdaki kodda hafta sonlarını ve perşembe günlerini sarı renk yapıp Perşembe günlerine "T" yazıyor.
WeekDay fonksiyonunu ve bu fonksiyondan dönen haftanın gün numaralarını araştırın. İşinize yarayacaktır.
Makrolu olarak kaydetmek için;

Excel in mesaj kutusunda belirttiği gibi "Hayır" ı tıklayıp kaydedeceğiniz yeri seçtikten sonra Kayıt Türü olarak "Makro içerebilen Excel Çalışma Kitabı(.xlsm)" olan uzantıyı seçerek kaydedin.
İyi çalışmalar.

Dim dolu_sutun, i As Integer

dolu_sutun = WorksheetFunction.CountA(Range("1:1"))



    For i = 2 To dolu_sutun

   

        If WorksheetFunction.Weekday(Cells(1, i), vbMonday) > 5 Then

            Cells(2, i).Interior.Color = 65535

        ElseIf WorksheetFunction.Weekday(Cells(1, i), vbMonday) = 4 Then

            Cells(2, i).Interior.Color = 65535

            Cells(2, i) = "T"

        End If

    Next i

    MsgBox "İşlem tamamlandı."

Range("A1").Select