Sadece belirli hücreleri otomatik yeniden hesaplatma

[blackshine]

Merhaba arkadaşlar,

Bazı hücreler internetten veri çekiyor. Bunları belirli periyodlarla yeniden çekmesini istiyorum. (Excel'in kendi uygulaması değil de SeoToolsforExcel adlı eklentiyle XpathonURL fonksiyonu ile çekiyorum)

Aşağıdaki kod işimi görüyor ama sayfadaki tüm hücreleri yenilediği için hem bu refresh zaman alıyor hem de dosyada çalışmak hantallaşıyor.

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

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

Sadece belirli hücreleri calculate edemedim.
Rica etsem yardımcı olur musunuz ?

 

[blackshine]

yardımcı olabilecek bir arkadaş yok mu

 

[TanerSaydam]

Bunu mutlaka denemişsinizdir ama fikir olsun diye yazacağım.

Sub Yenile()
    DoEvents
    Application.CalculateFull
    ActiveWorkbook.Sayfa1.Range("A").RefreshAll
    Application.OnTime Now + TimeValue("00:01:00"), "Yenile"
End Sub

 

[blackshine]

dosya

Bunu mutlaka denemişsinizdir ama fikir olsun diye yazacağım.

Sub Yenile()
    DoEvents
    Application.CalculateFull
    ActiveWorkbook.Sayfa1.Range("A").RefreshAll
    Application.OnTime Now + TimeValue("00:01:00"), "Yenile"
End Sub

yok üstad denememiştim ama deneyince de hata aldım.

Ben dosyayı yalın haliyle ekliyeyim. Anlayacağınız üzere 2 sütundan birinin buttona basılında yenilenmesini diğerinin yenilenmemesini araştırıyorum.

URL: https://drive.google.com/file/d/1cs4bQYZMelCHCsDx-RxyR7RZepYVnQrW/view?usp=sharing

.

 

[Korhan Ayhan]

Hücrelerde kullandığınız fonksiyon yapısı gereği sürekli yenilenmektedir. Değerleri manuel üretmeyi deneyin. Böylece sabit değerler değişmeyecektir.

 

[blackshine]

Hücrelerde kullandığınız fonksiyon yapısı gereği sürekli yenilenmektedir. Değerleri manuel üretmeyi deneyin. Böylece sabit değerler değişmeyecektir.

Aslında o rand fonksiyonu sadece en yalın olarak derdimi anlatmak için yazmıştım.

İnternetten bir plugin ile xpathurl yoluyla otomatik olarak gelen bir döviz verisi var. Onu kendi başına çekecek kodu yazınca tüm kitabı calculate ediyor. Sadece ilgili hücreleri hesaplatıp hantallaşmayı önlemeye çalışıyordum.

.

 

[Korhan Ayhan]

Normalde aşağıdaki kod ile belli aralığı hesaplatabilirsiniz.

Range("A1:A10").Calculate