iki tarih arasında renklendirme ve gün geçti gün kaldı ifadesini ekleme

[ridvansahin]

Merhabalar,

Son belirlenen tarih bugünün tarihini kaç gün geçmişse; geçtiği gün sayısını yazıp " şu kadar gün geçti "yazılmasını ve hücre içini kırmızıya boyasın
Son belirlenen tarih bugünün tarihine 7 gün kalmışsa; 7 gün kaldı yazıp hücre içi sarıya boyansın
Son belirlenen tarih bugünün tarihine 14 gün kalmışsa; 14 gün kaldı yazıp hücre içini turuncuya boyansın
Son belirlenen tarih bugünün tarihine 21 gün kalmışsa; 21 gün kaldı yazıp hücre içini yeşile boyansın
21 günden fazla kalanlar için kalan gün sayısı yazılıp Ş kadar gün kaldı yazıldıktan sonra hücre içi maviye boyansıın.

Formülünü yazabilir misiniz..?

Saygılarımla

 

[recepkull]

C1 hücresine yazılan tarihe göre sonucu A1 hücresinde gösterir. Koşullar kalan gün, 7, 14, 21 ve geçen günlere göre ayarlandı. Bunların dışındaki günler için işlem yapmaz, A1 hücresini temizler.

Sub TarihKontrol()
    Dim tarih As Date
    Dim fark As Integer
   
    tarih = Range("C1").Value
   
    fark = DateDiff("d", Date, tarih)
   
    If fark < 0 Then
        Range("A1").Interior.Color = RGB(255, 0, 0)
        Range("A1").Value = fark & " gün geçti"
    ElseIf fark = 7 Then
        Range("A1").Interior.Color = RGB(255, 255, 0)
        Range("A1").Value = "7 gün kaldı"
    ElseIf fark = 14 Then
        Range("A1").Interior.Color = RGB(255, 165, 0)
        Range("A1").Value = "14 gün kaldı"
    ElseIf fark = 21 Then
        Range("A1").Interior.Color = RGB(0, 255, 0)
        Range("A1").Value = "21 gün kaldı"
    ElseIf fark > 21 Then
        Range("A1").Interior.Color = RGB(0, 0, 255)
        Range("A1").Value = fark & " gün kaldı"
        Else
        Range("A1").Interior.Color = RGB(255, 255, 255)
        Range("A1").Value = ""
    End If
End Sub

 

[Korhan Ayhan]

Eki inceleyiniz.

Koşulları dilediğiniz gibi geliştirebilirsiniz..

Harici Link (Silinebilir) ; https://dosya.co/l8fxkk2d02m6/Tarih_Koşuluna_Göre_Kalan_Gün_Renklendirme.xlsx.html

 

[ridvansahin]

çok teşekkürler @Korhan Ayhan bey ve @recepkull bey.