Delay copy & paste of data until web query refreshes?

  • Thread starter Thread starter CM4@FL
  • Start date Start date
C

CM4@FL

I need to delay copying my data in cells E10:N:10 while my web query
completely refreshes, after the refresh is complete then can I copy the data.
Can anyone help me with the delay function?

Range("B4:C4").Select
Selection.Copy
Range("E4").Select
ActiveSheet.Paste
Application.CutCopyMode = False
ActiveWorkbook.RefreshAll
********* NEED A DELAY FUNCTION HERE *********
Range("E10:N10").Select
Selection.Copy
Range("E47").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone,
SkipBlanks _
:=False, Transpose:=False

Thanks in advance
 
Paste the below procedure and call Wait (2) in your code to wait for 2
seconds...


Sub Wait(sngDelayInSecs As Single)
EndDelay = Timer + sngDelayInSecs
Do While Timer < EndDelay
DoEvents
Loop
End Sub
 
You can also put a loop until it finds data in Range("E10:N10")..

If this post helps click Yes
 
Back
Top