select different excel sheet tab 1 by 1 select.sheet() and wait() for slidehshow

[ijqureshi]

Hi there

I have built a tool to display network performance graphs in excel this tool is extracting data from sql database after every 60 minutes These graphs are
displayed on main wall.I have created 3 sets of graphs as per requirement just like a slide show i would like to display these 3 sets of graphs i created on 3 tabs inside worksheet i have used wait function for this purpose with select.sheets() function in a macro its doing great and displaying 3 tabs 1 by by 1 in sequence.Now here is the real issue i am running this macro continuously and its worked as slideshow for me but unfortunately graphs are not updated dynamically when macro is running

I need you help to help me creating macro which can display slideshow without stopping database connection and refresh function

Option Explicit

Sub Wait(tSecs As Single)
' Timer to create a pause
Dim sngSec As Single

sngSec = Timer + tSecs
Do While Timer < sngSec
DoEvents
Loop
End Sub


Sub ExampleWait()
'
Dim x As Long

For x = 1 To 500000

Sheets("Sheet1").Select

Wait 2.5 'Delay for 2.5 second

Sheets("Sheet2").Select

Wait 2.5 'Delay for 2.5 second

Sheets("Sheet3").Select

Wait 2.5 'Delay for 2.5 second

Next x
End Sub

Challenge is on! sorry dont know how to attach file!

 

[ijqureshi]

come on ppl!

 

[ijqureshi]

ok i have done it with refresh but all graphs disappeared for 20 secs of sheet 3 before switching to sheet 1

here is the code!

Sub ExampleWait()
Dim newHour As Long
Dim newMinute As Long
Dim waitTime As Long
Dim newSecond As Long

Dim x As Long

For x = 1 To 500000

newHour = Hour(Now())
newMinute = Minute(Now())
newSecond = Second(Now()) + 5
waitTime = TimeSerial(newHour, newMinute, newSecond)
'Application.Wait waitTimeThis example displays a message indicating whether 10 seconds have passed.

If Application.Wait(Now + TimeValue("0:00:5")) Then
Sheets("Sheet1").Select
End If
If Application.Wait(Now + TimeValue("0:00:5")) Then
Sheets("Sheet2").Select
End If
If Application.Wait(Now + TimeValue("0:00:5")) Then
Sheets("Sheet3").Select
End If
Sheets("Sheet4").Select
ActiveWorkbook.RefreshAll

Next x
End Sub