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

--
If this post helps click Yes
---------------
Jacob Skaria


"CM4@FL" wrote:

> 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
>

You can also put a loop until it finds data in Range("E10:N10")..

If this post helps click Yes
---------------
Jacob Skaria


"CM4@FL" wrote:

> 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
>