(18/12/2017, 16:01)direnist yazdı: Merhaba;
Aşağıdaki kodu butonunuzun kod kısmına ekleyip dener misiniz ?
İ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(1, i).Interior.Color = 65535

            Cells(1, i) = Cells(1, i) & "_T"

        End If

    Next i

    Msgbox "İşlem tamamlandı."

Range("A1").Select

Hocam ilginizden dolayı çok teşekkür ederim.  Kodu ilgili yere yazdıktan sonra çalıştı, fakat bir alt satıra perşembe gününe "T" yazdırmak ve sarı renk hücre yapmak istiyorum. Çok uğraştım ama yapamadım. Yardımcı olursanız sevinirim.
Birde makro VB dosyası olarak kayıt yapamıyorum, ne yapmam gerekiyor.