Saat dolduğunda hücre renklenebilir mi ?

[sward175]

Herkese Merhabalar,

Mola saati üzerine sabit olarak 30 dakika ekliyorum. Örnek: 11:22 + 00:30 dakika = 11:52 bu saat dolduğunda hücre 15 saniye yanıp sönebilir mi ? yada görsel olarak başka bir uyarı verebilir mi ?
Saygılarımla,

 

[Excelmy]

Aşağıdaki kodları deneyiniz

Sub Auto_Open()
Application.OnTime Format(Now + TimeValue("00:01:00"), "hh:mm"), "RENK"
End Sub
Sub RENK()
For i = 4 To Sheets("Sayfa1").Range("D65536").End(3).Row
If Format(Sheets("Sayfa1").Cells(i, "D"), "hh:mm") = Format(Now, "hh:mm") Then
Sheets("Sayfa1").Cells(i, "D").Interior.Color = vbRed
ElseIf Format(Sheets("Sayfa1").Cells(i, "D"), "hh:mm") <> Format(Now, "hh:mm") Then
Sheets("Sayfa1").Cells(i, "D").Interior.Color = xlNone
End If
Next i
Call Auto_Open
End Sub

 

[sward175]

Sayın: Excelmy, Günaydın,
İlginiz için çok teşekkür ederim. Kodu kaydettim, "Sayfa1 RENK" makrosunu çalıştırdım fakat sonuca ulaşamadım. Yardımcı olmanızı rica ederim.
Saygılarımla,
sward175

 

[Excelmy]

Dosyanız ektedir.

 

[sward175]

Sayın: Excelmy, Merhaba,
İlginiz için çok teşekkür ederim. İstediğim buydu.
Yardımlarınız için teşekkür ederim.
Saygılarımla,
sward175