Will do Events help me with this code?

tonywatsonhelp

Well-known Member
Joined
Feb 24, 2014
Messages
2,574
Office Version
  1. 365
  2. 2019
  3. 2016
Platform
  1. Windows
Hi Everyone,

The code below has an "
Application.Wait" command
in it.

But what I need is the macro to get triggered then stop for 1 minute before sending the email but have everything else continue to run (I have other macros formulas etc.)

Will Do Events help me here? if so how do i add it in, if not what can?

Thanks

Tony

Code:
Private Sub Worksheet_Calculate()  'created by tw


Application.EnableEvents = False
    If Range("T1") <> 0 Then
    Range("V1").Value = Now()
   Sleep 500
    If Range("T1") <> 0 Then
    If Range("R1") = "y" Then
    Range("V2").Value = Now()
    Range("W2").Value = Now + TimeSerial(0, 5, 0)
    
    Application.Wait (Now + TimeValue(Range("R14").Text))
    
    Call EmailSendNew2
   ''MsgBox ("Test worked!" & Chr(10) & Range("V1").Value & Chr(10) & Range("V2").Value & Chr(10) & Range("W2").Value & Chr(10) & Chr(10) & "Thank You"), , ""
    End If
    End If
    End If
 Application.EnableEvents = True
End Sub
 

Some videos you may like

Excel Facts

How to find 2nd largest value in a column?
MAX finds the largest value. =LARGE(A:A,2) will find the second largest. =SMALL(A:A,3) will find the third smallest

paulxmw

Board Regular
Joined
Oct 13, 2015
Messages
88
Hi


Try adding
Code:
Dim Delay As String

' add delay time        hh:mm
'Delay = Now + TimeValue("00:10"

Paul
 

Watch MrExcel Video

Forum statistics

Threads
1,109,335
Messages
5,528,096
Members
409,802
Latest member
joeino

This Week's Hot Topics

  • Change military grades into rank
    Afternoon all Need help with formula that will change military rank (i.e. 1, 2, 3 into Amn, A1C, SrA). Running IF formula that does not work...
  • VBA COUNTIF SOLUTION
    Hi The following are the errors spread across the several columns from E to Q ie. 13 columns across several sheets with more than 500 rows per...
  • INSERT ROW WITH SPECIFIS TEXT IN A COLUMN
    Hi All! How can identify that that the row to be inserted has to be inserted before 1st row with specific text in column F. If I record the...
  • Auto-Create a monthly Sign in sheet for preschool students
    The image below is what each page looks like. Above is space for the "Child Name" "Month" "Class" School days are obviously Monday-Friday but...
  • VBA vlookup multiple results
    Hi folks, Hopefully someone out there can help. I have a list to vlookup which works (ish). the lookup only picks up the first instance of the...
  • Extract values for earliest/latest times
    I am trying to put together a formula to get the earliest start time, the latest end time from column A for each person in Column B-F without the...
Top