Her Saat Basi Mesaj Cikartma

[mustafaine1]

Gunaydin arkadaslar, bir dosyam gun icerisinde kullanmak istedigim fakat is yogunluygundan pek firsat bulamadigim..

Bu dosyami her sabah actiktan sonra bir daha kullanmiyorum, saat basi msg verirse belki daha fazla kullanimi olur fikri olan varmi?

 

[mustafaine1]

belirli araliklarla mesaj cikartmanin bir yolu vardir saniyorum arkadaslar..

 

[Muzaffer Ali]

Workbook kod editörüne

Private Sub Workbook_BeforeClose(Cancel As Boolean)
    Call Dur
End Sub

Private Sub Workbook_Open()
    i = Now + TimeValue("01:00:00")
    Application.OnTime i, "Basla"
End Sub

Yeni bir Module ekleyip

Dim i As Date

Sub Basla()
    Dim m As Date
    i = Now + TimeValue("01:00:00")
    MsgBox "deneme mesajı"
    Application.OnTime i, "Basla"
End Sub

Sub Dur()
    On Error Resume Next
    Application.OnTime i, "Basla", , False
End Sub

yazınız. Mesaj bir saat arayla gösterilecektir.

zaman ayarını

i = Now + TimeValue("01:00:00")

satırındaki 01:00:00 değerlerini değiştirerek yapabilirsiniz.

 

[mustafaine1]

Gayet yararli ve dogru calisiyor cok tesekkurler...