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