Haftasonu

[cevatyildiz]

Merhaba,

Bir hücredeki tarih değeri eğer haftasonuna geliyorsa, Cuma olarak göstermek istiyorum. Nasıl yapılabilir?

Tesekkurler, iyi calismalar

 

[hamitcan]

Sub HaftaSonlari()
    Gun = Format([a1], "dddd")
    If Gun = "Cumartesi" Or Gun = "Pazar" Then
        MsgBox "Cuma"
    End If
End Sub

 

[Korhan Ayhan]

A1 hücresindeki tarihi aşağıdaki formülle sorgulayabilirsiniz.

=EĞER(HAFTANINGÜNÜ(A1;2)=6;A1-1;EĞER(HAFTANINGÜNÜ(A1;2)=7;A1-2;A1))

 

[cevatyildiz]

Çok teşekkürler Korhan Bey