Bir gün öncesinden hücrenin yanıp sönmesi

[erselonur]

Arkadaşlar iş yerinde bir tebligat çalışması yapmaya çalışıyorum, personelin eğitime gideceği tarihleri hücrelere giriyorum, bu hücrelerdeki tarihlerde personelin eğitime gideceği tarihten bir gün önce yanıp sönmesini istiyorum.
Fakat yapamadım.
Her zamanki gibi sitemizden bir kod buldum ama uyarlayamadım.

mesala; O2 hücresindeki 20/09/2018 tarihi gelmeden bir gün öncesinden yanıp sönsün

veya C78 hücresinde güncel günlük tarih var onu kıstas alarak O2 hücresi 19/09/2018 tarihinden itibaren 20/09/2018 tarihi bitene kadar yanıp sönsün istiyorum.

Yardımcı olabileceklere şimdiden teşekkür ediyorum.

Private Sub Workbook_Open()
For k = 1 To 100 '**** 100 kere yanıp sönecektir arttırıp azaltabilirsiniz.
Cells(2, 2).Interior.ColorIndex = 6
                  basla = Timer
                  bekle = 1 '****** yanıp sönme aralığı 1 saniye arttırıp azalta bilirsiniz.
                  While Timer < basla + bekle
                  DoEvents '1 saniye bekle
                  Wend
Cells(2, 2).Interior.ColorIndex = xlNone
                     basla = Timer
                  bekle = 1 '****** yanıp sönme aralığı 1 saniye arttırıp azalta bilirsiniz.
                  While Timer < basla + bekle
                  DoEvents '1 saniye bekle
                  Wend
Next k
End Sub

 

[erselonur]

Arkadaşlar bir şeyler yapmaya çalışırken;
ThisWorkbook içerisine eklediğim kod üzerinde herhangi bir değişiklik yapamıyorum veya buraya yazdığım kodu silemiyorum,
Değişiklik yapmak için veya bu eklediğim kodu silebilmem için ne yapmalıyım.

Acaba yanlışlıkla bir yerden koruma mı verdim veya başka birşey bir türlü anlayamadım.

 

[erselonur]

değişiklik yapmayı buldum. ThisWorkbook altındaki özellikler listesinden IsAddin'i true yaptım oldu bir ara debug hatası falan verdi ama şimdilik tamam.

İlk mesajımda yazdığım durum için ilgi ve alakanızı bekliyorum.

 

[Korhan Ayhan]

Ekteki örnek dosyayı deneyiniz.

Koşullu biçimlendirme ve makro kullanılmıştır.