Soru Hatırlatma makrosu güncelleme ve yanıp sönme makrosu ekleme

[teyadih]

Merhaba arkadaşlar. Mevcut kullandığım hatırlatma makrosunu güncelleme ve belirli bir şart oluştuğunda yanıp sönerek uyarı verecek makro ekleme talebime ilişkin örnek dosyayı ekte gönderiyorum. Yardım eder misiniz?

 

[AdemCan]

Merhaba, dosya açılınca mesaj kutusu çıkmaması için ve hücrenin yanıp sönmesi için modul1 de auto_open kodunu değiştiriniz.

Sub auto_open()
Application.OnTime Now + TimeValue("00:00:10"), "yanson"
Rem yanson kodunu çalıştırır

Makro1
Rem Sıralama kodunu çalıştırır

Sheets(1).Select
Rem Ana Menü Sayfasını açar
End Sub

Bu kodu da modul1 içine ekleyiniz.

Sub yanson()

Application.OnTime Now + TimeValue("00:00:10"), "yanson"
DoEvents
say = WorksheetFunction.Max(Sayfa2.Range("G3:G" & Sayfa2.Range("G" & Rows.Count).End(xlUp).Row))

If say > 0 Then
Sayfa3.Activate
    For x = 1 To 1000
        Sayfa3.Range("A1").Interior.Color = vbYellow 
Rem Hücreye sarı dolgu rengini verir

        Sayfa3.Range("A1").Interior.Color = xlNone
    Next x
End If
End Sub

Not:
Application.OnTime Now + TimeValue("00:00:10"), "yanson" kodu ile 10 saniyede bir kod çalışmaya devam eder.
Bu işlem dosyada yavaşlamaya neden olabilir.
Hücre renginin değişmesi için Koşullu Biçimlendirmeyi de iptal ediniz.

 

[teyadih]

Teşekkür ederim

 

[AdemCan]

Rica ederim.