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

teyadih

Altın Üye
Altın Üye
Katılım
15 Ekim 2014
Mesajlar
678
Excel Vers. ve Dili
Excell 2010 Türkçe
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?
 

Ekli dosyalar

faye_efsane

Altın Üye
Destek Ekibi
Katılım
1 Eylül 2008
Mesajlar
564
Excel Vers. ve Dili
2010 TR
2019 TR
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.
Kod:
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.
Kod:
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.
 

faye_efsane

Altın Üye
Destek Ekibi
Katılım
1 Eylül 2008
Mesajlar
564
Excel Vers. ve Dili
2010 TR
2019 TR
Rica ederim.
 
Üst