sayfa yenileme

[soner72121]

arkadaşlar merhaba;
2 ayrı kaynaktan excele veri çekiyorum. makro çalıştırarak verilerin geliş sürelerini ayarlayabiliyorum. yalnız kullandığım kod iki sayfanında aynı anda yenilenmesini sağlıyor.
benim istediğim iki veri kaynağının da ayrı süreler ayarlanarak yenilemesini sağlamak. misal 1. kaynak 5 sn, 2. kaynak 10. sn aralıklarla veri yüklenmesini sağlamak. şuan kullandığım kod:

Sub AUTO_OPEN()
DoEvents
Application.OnTime Now + TimeValue("00:00:03"), "Yenile"
End Sub

Sub Yenile()
DoEvents
Application.CalculateFull
ActiveWorkbook.RefreshAll
Application.OnTime Now + TimeValue("00:00:03"), "Yenile"
End Sub
iki sayfa da aynı sürede yenileniyor. nasıl bir kod yapabiliriz.? şimdiden teşekkürler.

 

[hamitcan]

Bence Yenile2 olarak bir kod daha oluşturun. Auto_ open kodu içinde Sayfa ismine göre bu iki kodu ayrı şarta bağlı şekilde çalıştırabilirsiniz.

 

[Lenadro]

Sub AUTO_OPEN()
Call Refresh1
Call Resreh2
End Sub

Sub Refresh1()
DoEvents
Application.CalculateFull
ActiveWorkbook.RefreshAll
Application.OnTime Now + TimeValue("00:00:05"), "Yenile"
End Sub

Sub Refresh2()
DoEvents
Application.CalculateFull
ActiveWorkbook.RefreshAll
Application.OnTime Now + TimeValue("00:00:10"), "Yenile"
End Sub