DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
Altın Üyelik Hakkında Bilgi
Sub AUTO_OPEN()
DoEvents
Application.OnTime Now + TimeValue("00:00:02"), "Yenile"
End Sub
Sub Yenile()
DoEvents
Application.CalculateFull
ActiveWorkbook.RefreshAll
Application.OnTime Now + TimeValue("00:00:02"), "Yenile"
End Sub
Bu code çok işime yaradı ama buna herhangi bir hücrenin değerini istediğimiz sayı aralığında örneğin 1 den 100 e kadar 1 den başlayarak 1 er 1 er artacak şekilde 100 geldiği zamanda tekrar 1 e dönecek şekilde düzenleyebilirmiyiz.Aşağıdaki gibi kullanabilirsiniz.
Kod:Sub AUTO_OPEN() DoEvents Application.OnTime Now + TimeValue("00:00:02"), "Yenile" End Sub Sub Yenile() DoEvents Application.CalculateFull ActiveWorkbook.RefreshAll Application.OnTime Now + TimeValue("00:00:02"), "Yenile" End Sub
Teşekkür ederimCevabınızı diğer başlıkta verdim.
İncelersiniz.
https://www.excel.web.tr/threads/belirli-zamanda-huecre-degerinin-degismesi.182544/