tarihin hafta sonu olmasını incelemek

[osmanfenerli1907]

merhaba
bir if deyimi ile A1 deki tarihin hatfasonu olmasında kırmızı haftaiçi olmasında siyah yazılması nasıl yapılabilir?

 

[uzmanamele]

merhaba

bu işinizi görür mü?

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, [a1]) Is Nothing Then Exit Sub
If Weekday([a1], 2) = 7 Then
Range("a1").Font.ColorIndex = 3
Else
Range("a1").Font.ColorIndex = 0
End If
End Sub

 

[Necdet]

Merhaba,

Kodları dener misiniz?

Sub Tarih()
If Weekday([a1], vbMonday) > 5 Then
    Range("A1").Interior.ColorIndex = 3
    Range("A1").Font.ColorIndex = 2
Else
    Range("A1").Interior.ColorIndex = 1
    Range("A1").Font.ColorIndex = 2
End If
End Sub

 

[osmanfenerli1907]

teşekkürler