Çözüldü Süreli Mesaj Kutusu

[cavanoos]

Günaydın;

Excelde çalışırken her on dakikada bir hatırlatma mesaj kutusu yapılabilir mi ?

 

[tugkan]

Günaydın,
Excel'de her on dakikada bir hatırlatma mesajı görüntülemek için VBA ile bir zamanlayıcı makrosu kullanabilirsiniz. Bu makro, belirli aralıklarla bir mesaj kutusu açarak sizi uyarabilir. Aşağıdaki adımları izleyerek uygulayabilirsiniz:

1. VBA Penceresini Açın: Alt + F11 tuşlarına basarak VBA penceresini açın.
2. Modül Oluşturun: "Ekle" menüsünden "Modül" seçeneğine tıklayın.
3. Kodları Yapıştırın: Aşağıdaki VBA kodlarını yeni açılan modüle yapıştırın:

Dim zamanlayici As Date

Sub HatirlatmaBaslat()
    ' 10 dakika sonrasına zamanlayıcı kurar
    zamanlayici = Now + TimeValue("00:10:00")
    Application.OnTime EarliestTime:=zamanlayici, Procedure:="HatirlatmaGoster", _
        Schedule:=True
End Sub

Sub HatirlatmaGoster()
    ' Hatırlatma mesajını gösterir
    MsgBox "10 dakikadır çalışıyorsunuz, ara vermeyi unutmayın!", vbInformation, "Hatırlatma"
    ' Zamanlayıcıyı yeniden başlatır
    HatirlatmaBaslat
End Sub

Sub HatirlatmaDurdur()
    ' Zamanlayıcıyı durdurur
    On Error Resume Next
    Application.OnTime EarliestTime:=zamanlayici, Procedure:="HatirlatmaGoster", _
        Schedule:=False
End Sub

1. Makroyu Çalıştırın: HatirlatmaBaslat isimli makroyu çalıştırarak zamanlayıcıyı başlatın. Bu makro her on dakikada bir mesaj kutusu açacaktır.
2. Hatırlatmayı Durdurmak için: Hatırlatmayı durdurmak istediğinizde HatirlatmaDurdur makrosunu çalıştırabilirsiniz.

Bu şekilde, Excel’de çalışırken her on dakikada bir hatırlatma alabilirsiniz.

 

[Biolightant]

10 dakikadır çalışıyorsunuz, ara vermeyi unutmayın!

aman dikkat kendini yorma

 

[cavanoos]

Teşekkür ederim, çok güzel oldu