- Katılım
- 30 Kasım 2007
- Mesajlar
- 57
- Excel Vers. ve Dili
-
excel 2003 - Türkçe
excel 2007 - Türkçe
excel 2010 - Türkçe
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.
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.
Kod:
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