Yenile

[Yarkan]

Arkadaşlar çok basit bir makro soracağım ama acil gerekli olduğu için düzgün arayamadım bile;
5 saniyede bir sayfayı yenileyecek bir makro lazım.

YANİ: ben bir sayfaya veri gireceğim, ağdan grafik sayfasını başka bir bilgisayar açacak, ikisi arası formüller var, benim giriş yaptığım sayfadan diğerine gidiyor, diğer bilgisayarda grafik sayfası açıkken, her 5 saniyede bir benim verileri alması için sayfayı yenileyecek bir makroya ihtiyacım var.
Şimdiden ilgilenenlere teşekkürler ederim....

 

[Korhan Ayhan]

Grafik olan dosyanıza aşağıdaki kodu uygulayıp deneyiniz.

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

Sub Yenile()
    ActiveWorkbook.RefreshAll
    Calculate
    Auto_Open
End Sub

 

[Yarkan]

Sağol, ilgi ve bilgine teşekkürler.