Boş hücreye makro ile nasıl formül yazdırırım?

[birdhane]

Merhaba arkadaşlar,
Boş bir hücreye dakikada bir aynı formülün uygulanmasını istiyorum. Hücrenin boş olmasını istiyorum sebebi şu: Kur sayfasından =kur!A1 şeklinde kur fiyatını aldığımda Kur sayfasındaki fiyat yenilendikçe formül bulunan hücremde yenileniyor. Oysa ben her zaman değil belli zaman dilimlerinde yenilenmesini istiyorum. Bu nedenle hücre boş olsun makro ile formülü çalıştırayım değeri hücreye yazdıktan sonra makro ile yenileninceye kadar hücre içeriği yenilenmesin istiyorum.

 

[Korhan Ayhan]

Deneyiniz.

Sub Formul_Yaz()
Range("A1").Formula = "=Kur!A1"
End Sub

 

[birdhane]

Deneyiniz.

Sub Formul_Yaz()
Range("A1").Formula = "=Kur!A1"
End Sub

Cevabınız için teşekkür ederim. Bu formülü 40 saniyede 1 nasıl ayarlarım acaba? Ayrıca denedim de tetiklenmedi. Tetiklenmesini nasıl sağlarım acaba?

 

[birdhane]

Deneyiniz.

Sub Formul_Yaz()
Range("A1").Formula = "=Kur!A1"
End Sub

Bu kodu sizin kodla birleştirdim ama çalışmadı,
Sub Auto__Open()
DoEvents
Application.OnTime Now + TimeValue("00:00:01"), "Formul_Yaz"
End Sub

Sub Formul_Yaz()
Range("A1").Formula = "=Kur!A1"
End Sub

 

[Korhan Ayhan]

Aşağıdaki kodu dosyanızın BuÇalışmaKitabı bölümüne uygulayın.

Diğer mesajda önerdiğim kodu modüle uygulayın.

Dosyanızı kaydedip kapatıp açın.

Dosyanızın açılışında kod devreye girecektir.

Option Explicit

Private Sub Workbook_Open()
    Application.OnTime Now + TimeValue("00:00:40"), "Formul_Yaz"
End Sub

 

[birdhane]

Aşağıdaki kodu dosyanızın BuÇalışmaKitabı bölümüne uygulayın.

Diğer mesajda önerdiğim kodu modüle uygulayın.

Dosyanızı kaydedip kapatıp açın.

Dosyanızın açılışında kod devreye girecektir.

Option Explicit

Private Sub Workbook_Open()
    Application.OnTime Now + TimeValue("00:00:40"), "Formul_Yaz"
End Sub

Hocam gerçekten çok teşekkür ederim, Allah razı olsun, çalıştı ancak tam olarak istediğim gibi olmuyor sebep şu ilk kez çalıştıktan ve veriyi hücreye yazdıktan sonra formül hücrede kaldığından kaynak veri değişince süresi dolmasa bile Makro ile formül yazdırdığımız hücre verisi yenileniyor. Bu işime yaramıyor çünkü eski veri ile yeni veriyi karşılaştırmak istiyorum ama bu şekilde sürekli veri yenilendiği için her iki hücre içeriği de her zaman aynı oluyor. Dilerseniz dosyayı yükleyebilirim.

 

[Korhan Ayhan]

Siz dosyanızı ekleyin. Onun üzerinden çözüm üretmeye çalışalım.

 

[birdhane]

Siz dosyanızı ekleyin. Onun üzerinden çözüm üretmeye çalışalım.

Emekleriniz için teşekkürler

 

[Korhan Ayhan]

Yapmak istediğiniz işlem nedir?

 

[birdhane]

Yapmak istediğiniz işlem nedir?

Kur sayfasında B2 verisi dakikada bir otomatik olarak yenileniyor. Ben yenilenmeden önceki değerle yenilenen değer arasındaki farkı bulmak istiyorum. Bu nedenle yenilenmeden önceki değeri başka bir hücreye yazsam ve oradan okusam diye düşündün ve sizin önerdiğiniz kodları uyguladım ama ne yazık ki ilk yenileme sonrası aynı anda her ikisi değiştiği için aradaki farkı alamıyorum

 

[Korhan Ayhan]

Sadece B2 hücresi mi karşılaştırılacak?

 

[birdhane]

Sadece B2 hücresi mi karşılaştırılacak?

aslında kur sayfasındaki tüm veriyi karşılaştıracağım ama siz 1 tanesini gösterirseniz muhtemelen diğerini yaparım diye düşünüyorum

 

[Korhan Ayhan]

Kur sayfasındaki bilgiler sürekli olarak 1 dakikada bir yenilendikçe yandaki sayfaya alt alta aktarılsa olur mu?

 

[birdhane]

Kur sayfasındaki bilgiler sürekli olarak 1 dakikada bir yenilendikçe yandaki sayfaya alt alta aktarılsa olur mu?

olmaz çünkü karşılaştırma yapmam için yandaki sayfa her zaman kur sayfasındaki bilgilerin 1 dk önceki bilgileri içeriyor olması gerekiyor. Şöyle örnek verebilirim: BTC fiyatı şu an 8812 diyelim bu fiyat kur sayfasındaki fiyat. Kur sayfasında bu fiyat güncellendiğinde bu fiyatın yandaki sayfaya geçmesi gerekiyor. Dolayısıyla Kur sayfası her zaman yeni verileri içeririken yandaki sayfa ise her zaman 1 dk gecikmeli verileri içermesi lazım ki 1 dk lık karşılaştırma yapabileyim.

 

[Korhan Ayhan]

O şekilde olabileceğini zannetmiyorum.

Benim bahsettiğim şekilde yan sayfaya verileri arşivleyip sonrasında formüller ya da makro yardımı ile karşılaştırma yapabilirsiniz.

 

[birdhane]

O şekilde olabileceğini zannetmiyorum.

Benim bahsettiğim şekilde yan sayfaya verileri arşivleyip sonrasında formüller ya da makro yardımı ile karşılaştırma yapabilirsiniz.

Yan sayfaya arşivleyince her zaman 1 dk önceki veri aynı hücrede olursa işime yarar. Mesela 1 dk önceki BTC verisi yan sayfada B2 de. Her zaman B2 deki veri 1 dk önceki veri olacaksa işime yarar diğerlerinin arşivlemesi önemli değil yani, arşivleyedebilir.

 

[Korhan Ayhan]

Ekteki dosyayı bir inceleyin.

Yandaki sayfada tarih bilgisi de yer alıyor. Bu şekilde işinize yarayabilir.

 

[birdhane]

Ekteki dosyayı bir inceleyin.

Yandaki sayfada tarih bilgisi de yer alıyor. Bu şekilde işinize yarayabilir.

Zahmet verdim çok teşekkür ederim. Tarih sayfadaki veriler ilk açılışta güncelleniyor sonrası artık güncellenmiyor bu nedenle işime yaramayacak ama gecenin bu saatinde zaman ayırdığınız için tekrar teşekkür ederim.

 

[Korhan Ayhan]

Benim eklediğim dosyada mı denediniz? Yoksa kendi dosyanıza mı uyarladınız?

 

[birdhane]

Benim eklediğim dosyada mı denediniz? Yoksa kendi dosyanıza mı uyarladınız?

sizin eklediğiniz dosyayı denedim, ilk yükleyiş sonrası güncellemedi artık. Tarih saaat bilgisi de var