Hücre Rengini ÖDENDİ ile silme

[Yesilyurtlu]

Ekli dosyada D10 hücresi 7 gün öncesinden hücre rengini değiştiriyor. Makroyu da siteden almıştım. Buna ek olarak D13 hücresine ÖDENDİ yazınca Hücre rengi Pasif Olsun .
Bu Konuda yardımcı olabilir misiniz

 

[Korhan Ayhan]

Selamlar,

Sayfanıza ait kodu aşağıdaki şekilde değiştirip denermisiniz.

Private Sub Worksheet_Change(ByVal Target As Range)
    If Intersect(Target, Range("D10")) Is Nothing Then Exit Sub
    Range("D10").Interior.ColorIndex = 0
    For Each hcr In Range("D10")
    If (hcr.Value - 7 = Date Or hcr.Value - 7 = Date - 1) And _
    UCase(Replace(Replace(Range("D13"), "ı", "I"), "i", "İ")) <> "ÖDENDİ" Then
    hcr.Interior.ColorIndex = 29
    End If
    Next
End Sub

 

[Yesilyurtlu]

Korhan Abi Selamün Aleyküm;
Abi hiçbirşey olmadı vallaha. Bir bakabilir misin?

 

[Yesilyurtlu]

Korhan Abi ;
Dosyaya bakmadın unuttun herhalde. Sana zahmet bir bak abi . ÖDENDİ yazısını yazdığın halde Hücre rengi ortadan kalkmıyor