Time Pop-Up after every 10 min - new

[RuggerBiker]

I found this code posted here in 2014. I got it to work, sort of. But it doesn't run automatically when opening the document. Macros are enabled, and it's a trusted document. I have to open the Visual Basic Editor and start it. Perhaps something has changed since 2014.

Since it's so old, I've made a new post.

Time Pop-Up after every 10 min

Hello Everyone,　I need your help to create a pop-up in excel which will appear after every 10 min and 10 min should be variable (like any cell value where I’ll mention any time).　 Even if I am working on different application, excel should pop-up .　Time should start on my click and it should...

www.mrexcel.com

Public RunWhen As Double
Public Const cRunIntervalSeconds = 10 ' <------- This number represents 10 seconds. Change to 600 for 10 minutes
Public Const cRunWhat = "Timer"  ' the name of the procedure to run
 
 Sub StartTimer()
    RunWhen = Now + TimeSerial(0, 0, cRunIntervalSeconds)
    Application.OnTime EarliestTime:=RunWhen, Procedure:=cRunWhat, _
        Schedule:=True
End Sub
 Sub Timer()
   
    MsgBox "10 seconds has elapsed", , "Time is up"   ' Change 10 seconds to whatever you want that matches the time set in line 2
    
    StartTimer  ' Reschedules/Resets the procedure to run again and again
End Sub

 

[smozgur]

Welcome to the MrExcel Message Board.

You see how the Timer() sub routine reschedules the timer? You just need to schedule the timer when you Open the workbook.

Open the Thisworkbook class module, and schedule the timer by calling the StartTimer in the Workbook_Open event procedure as shown below:

Private Sub Workbook_Open()
    ' Schedule the timer for the initial execution
    StartTimer
End Sub

 

[RuggerBiker]

Welcome to the MrExcel Message Board.

You see how the Timer() sub routine reschedules the timer? You just need to schedule the timer when you Open the workbook.

Open the Thisworkbook class module, and schedule the timer by calling the StartTimer in the Workbook_Open event procedure as shown below:

Private Sub Workbook_Open()
    ' Schedule the timer for the initial execution
    StartTimer
End Sub

Thank you, but it's still not working. Here is a screen shot:

 

[RuggerBiker]

image

 

[smozgur]

Remove Class1 class module. You don't need it.
Double click on the Thisworkbook class at the bottom of the Microsoft Excel Objects category in the VBAProject.
Copy and paste that code into that class module.

It will look like the following:

 

[smozgur]

Thisworkbook and Sheet in the VBAProject are the existing class modules that belong to the workbook and worksheets objects as default in the workbook.

These class modules contain various associated event procedures that you can use to catch various events on the objects.

Workbook_Open() event procedure is triggered when the workbook is opened.

Basically, you should use the Workbook_Open event procedure to call the other macros that you want to execute when the workbook is opened.

Note: I suggest looking at the other event procedures (click on the second drop-down that currently shows Open in the code window) and get familiarized with them. Those are magical events that you'll realize that you can use for many other purposes during the development.

 

[RuggerBiker]

It works! I'm new to VBA and knowing where to put everything has been the challenge.
Thank you.

 

[smozgur]

It works! I'm new to VBA and knowing where to put everything has been the challenge.
Thank you.

You're welcome. Glad to hear it helps.