Ödeme Gününü renklendiren macro'ya ilave

[1Al2Ver]

Merhabalar,

Ek'li dosyadaki macro , ödeme günü bugün olanları ikaz edip ilgili hücreyi kırmızı renk ile dolduruyor,

Ancak, bu işlem gerçekleştiğinde geçmiş tarihlere ait renklendirme kalkmıyor,

İstenen; Bugün'ün tarihini içermeyen hücrelerdeki renklenmenin kalkmasıdır,

Teşekkür ederim.

 

[uzmanamele]

merhaba
bu şekilde dener misiniz

Sub Auto_open()
Range("D31000").Interior.ColorIndex = 2
Dim gün As Date
gün = Format(Now(), "dd.mm.yyyy")
For Each ayni In Range("D31000")
If ayni.Value = gün Then
DUR4 = MsgBox("Ödeme Günü Gelmiştir.", vbYes, "UYARI")
ayni.Interior.ColorIndex = 3
End If
Next

End Sub

 

[1Al2Ver]

merhaba
bu şekilde dener misiniz

Sub Auto_open()
Range("D31000").Interior.ColorIndex = 2
Dim gün As Date
gün = Format(Now(), "dd.mm.yyyy")
For Each ayni In Range("D31000")
If ayni.Value = gün Then
DUR4 = MsgBox("Ödeme Günü Gelmiştir.", vbYes, "UYARI")
ayni.Interior.ColorIndex = 3
End If
Next

End Sub

Sayın uzmanamele, sorun çözüldü, teşekkür ederim.