Zamana (Saat,e) Göre Mesaj verme

[kykbt]

Arkadaşlar Merhaba

Forum içinde oldukca dolaştım yapmak istediğimi çözemedim. Yardımlarınıza ihtiyacım var.

Yapmak istediğim makro acılan excell dosyası nın acıldığı saate göre çalışsın yani saat 10:00 dan önce faklı makro saat 10:00 dan sonra farklı makro çalıştırmalıyım.

Birde dosya üzerinde 10 dk işlem yapılmaz ise bir uyarı makrosu çalıştırmalıyım.

Çokmu şey istedim.?

 

[uzmanamele]

merhaba

istediğiniz örnekler sitede mevcut, biraz daha arama yapın.
bulamazsanız bir el atan arkadaş olacaktır.

 

[N.Ziya Hiçdurmaz]

yanıt

Private Sub Workbook_Open()
        If Time < ("10:00:00") Then
            MsgBox "saat on olmamış" 'buraya çalışmasını istediğiniz kodları giriniz
        End If
        If Time > ("10:00:00") Then
            MsgBox "saat onu geçmiş"
        End If
End Sub

 

[kykbt]

Hocam Merhaba

İlgin için teşekkür ediyorum.

Birde buna belli süre işlem yapılmazsa çalışan bir kod daha ekleyebilirmiyiz.?

 

[kykbt]

Hocam Merhaba

Aşağıdaki toplama kodu oluşturdum.

Ancak burada sayfadaki her değişiklik için bir uyarı geliyor.

Değişiklikten sonra süre dolmadı ise değişiklik yapıldığında eski timer i nasıl sıfırlayabiliriz.?

-----------------------
Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
TimerMsg
End Sub

Sub TimerMsg()
Dim alertTime
alertTime = Now + TimeValue("00:00:05")
Application.OnTime alertTime, "ThisWorkbook.Uyarı_Mesajı"
End Sub

Sub Uyarı_Mesajı()
MsgBox " 5 saniyedir. İşlem yapmadınız."
End Sub
--------------------