Hücre içerisindeki metine göre yanıp sönme

[hakankobe]

Ekteki dosyada hücrenin içerisinde AŞI GÜNÜ ifadesi geçtiğinde hücrenin kırmızı renk yanıp sönmesini istiyorum.
AŞIYA 1 GÜN KALDIĞINDA SARI RENK YANIP SÖNMESİNİ İSTİYORUM.
Şimdiden teşekkürler ...

 

[çıtır]

Modüle kopyalayarak deneyiniz.

Dim Alan As Range: Dim s1 As Worksheet

Sub Auto_Open()
Set s1 = Sheets("ANA SAYFA")
    s1.Select
    s1.Range("C19").Interior.Color = xlNone
    DoEvents
        If s1.Range("c19") = "AŞI GÜNÜ" Then
           s1.Range("c19").Interior.ColorIndex = 3
       End If
       If s1.Range("c19") = "AŞIYA 1 GÜN KALDI" Then
           s1.Range("c19").Interior.ColorIndex = 6
      End If
       Set Alan = Nothing
      Application.OnTime Now + TimeValue("00:00:01"), "Renk"
      End Sub

Sub Renk()
DoEvents
     Set Alan = s1.Range("c19")
            If Not Alan Is Nothing Then
        Alan.Interior.Color = xlNone
        Set Alan = Nothing
        Application.OnTime Now + TimeValue("00:00:01"), "Auto_Open"
    End If
End Sub

 

[hakankobe]

Teşekkürler ...

 

[çıtır]

Teşekkürler ...

Rica ederim.Dönüş yaptığınız için teşekkür ederim.