Is your cloud always on? With an Always On cloud you won't have to worry about downtime for maintenance or software application code updates, ensuring that your bottom line isn't affected.
Option Explicit Private Declare Function PlaySound Lib "winmm.dll" _ Alias "PlaySoundA" (ByVal lpszName As String, _ ByVal hModule As Long, ByVal dwFlags As Long) As Long Const SND_SYNC = &H0 Const SND_ASYNC = &H1 Const SND_FILENAME = &H20000 Public StopCode As Boolean Public Sub PlayFile(wFile As String) Call PlaySound(wFile, 0&, SND_ASYNC Or SND_FILENAME) End Sub Sub test() If StopCode = True Then Exit Sub 'If A1 has the time and A2 has the trade: Application.OnTime Now() + TimeValue("00:00:05"), "Test" If Range("A1:C1").Value > (Now() - TimeValue("00:00:10")) Then AppActivate ("Microsoft Excel non-commercial use - alert") PlayFile "c:\windows\media\chimes.wav" 'change the path between the quotes to the path of the wav file to play MsgBox Range("A2:C2").Value End If End Sub
Add your voice to the tech community where 5M+ people just like you are talking about what matters.
Join the community of 500,000 technology professionals and ask your questions.