Anlık kur takibi (otomatik)

[arnavut]

Merhaba arkadaşlar,
Sitede arama yaptırdım ama takıldığım şey ile ilgili bir şey bulamadım.
Yapmak istediğim şey şu;
Gün içerisinde kurların değişimini izlemem gerekiyor.
Bir siteden kurları her on dakikada bir güncellenecek şekilde çekiyorum. Ama bu değerleri boş bir sütunda satır satır manuel olarak saati saatine yazıyorum. bu işlem için her on dakikada bir dosyaya göz atmam gerekiyor. Yerimde olamadığım zamanlarda haliyle kaçırıyorum.
Bu işi otomatik olarak yapmak için ne denediysem bir türlü olmadı. Veri güncellemesi olduğunda bir üst satırdaki veride değişiyor.
Bunu yapmak mümkünmüdür ? yoksa böyle bir ihtimal yokmudur.
Yardımcı olabilirseniz çok sevinirim.
Açıklama belki biraz karışık gibi oldu ama ekteki dosyayı incelediğinizde ne demek istediğimi anlayacaksınız.
şimdiden teşekkür ederim.

 

[arnavut]

arkadaşlar çokmu imkansız bir şey yapmak istiyorum sizce ??

 

[tahsinanarat]

arşivimde önceden indirdiğim döviz ile ilgili dosyam

Belki işinizi görebilir, belki bir ışık tutabilir, arşivimde bulduğum dosyayı gönderiyorum

 

[arnavut]

teşekkür ederim ama kurları benim örnektede aynı yöntemle kurları çekiyorum zaten ama değişen her veriyi saklayamıyorum. yine de çok teşşekürler ilginize.

 

[arnavut]

????

 

[Biolight]

Merhaba,

...
Bir siteden kurları her on dakikada bir güncellenecek şekilde çekiyorum.
Ama bu değerleri boş bir sütunda satır satır manuel olarak saati saatine yazıyorum....
Bu işi otomatik olarak yapmak....

Sayfa ismini sağ tıklayınız.
Kod görüntüle tıklayınız
Açılan sayfaya aşağıda ki kodları yazınız.

' Sayfada değişiklik olduğun da çalış
Private Sub Worksheet_Change(ByVal Target As Range)

' Değişiklik olan hücreler D1:G18 çalış
If Target.Address(False, False) = "D1:G18" Then
 
 Dim sonnoA
 ' A sutununda ki en son yazılı hücrenin satır numarasını bul
 sonnoA = Range("A65536").End(xlUp).Row
 
 ' F6 hücresi ile A sutununun en son yazılı satırı eşit değilse VEYA
 ' F7 hücresi ile B sutununun en son yazılı satırı eşit degilse çalış
 If Range("F6") <> Range("A" & sonnoA) Or Range("F7") <> Range("B" & sonnoA) Then
  ' A sutununda ki en son yazılı hücrenin bir altındaki hücre değerini F6 la aynı olsun
  Range("A" & sonnoA + 1).Value = Range("F6").Value
  ' B sutununda ki en son yazılı hücrenin bir altındaki hücre değerini F7 le aynı olsun
  Range("B" & sonnoA + 1).Value = Range("F7").Value
  ' C sutununda ki en son yazılı hücrenin bir altındaki hücre değerini J1 le aynı olsun
  Range("C" & sonnoA + 1).Value = Range("J1").Value
 End If

End If

End Sub

Sanırım istediğiniz bu şekilde.

Kolay gelsin.

 

[arnavut]

Çok teşekkür ederim Sayın, Biolight. Tam istediğim şey buydu. Ellerinize sağlık.
Anlık kurları takip etmek isteyen arkadaşlar için çalışmamın son hali ektedir.
döviz aldığınızda kardamısınız zarardamısınız bunu da ekranda bir mesaj ile görülebilir.
kolay gelsin

 

[Biolight]

Merhaba,
Kodların işe yaramasına sevindim
ilginç bir çalışma olmuş.
Kolay gelsin.

 

[Ahmedt]

arnavut kardes ahmet_td@yahoo mail adresim rica etsem anlık kurtakip dosyasını mail olarak atarmısın

 

[yukselbalbay]

efe_balbay@hotmail.com
mail adresime mumkunse anlık kurtakip dosyasını mail atabilirmsiniz!!
tesekkurler!!!!

 

[patroklos]

Eklenmis dosyayi indiremiyorum.Sorun siteden mi kaynaklaniyor, yardim edebilirmisiniz.

 

[arnavut]

merhaba, şu anda yurtdışındayım,
ancak döndükten sonra yani en erken pazartesi günü programı siteye ekleyebilirim.
kolay gelsin

 

[arnavut]

Merhaba,

Dosyayı ekte bulabilirsiniz.
Kolay Gelsin


Chart bölümündeki GÜNCELLE butonunu kullanmaya gerek yok. Güncelleme işlemi zaten otomatik yapılıyor.
Ben dosyayı sabah açtığımda akşam işten çıkana kadar açık tutuyorum. Gün bitiminde MAIN alt-sekmesine
giderek gri bölümdeki tüm değerleri diğer günlere ait alanlara kopyalayıp gri alanı bir sonraki gün için
temizliyorum. Çünkü otomatik güncelleme işlemi gri alanda yapılıyor. Diğer renkler arşiv tutmak için.

 

[mustafakoker]

Arkadaşlar yaptığımız çalışmaları sıtede yayınlasak ıhtıyacaı olanlar buradan faydalansa daha ıyı olmazmı?Tekrar eklermısınız

 

[arnavut]

merhaba,
herkesin geçmiş bayramını bir kez daha kutluyorum.
dosya iş yerindeki bilgisayarımda ve son değişiklikleri henüz ekleme fırsatım olmadı bayram tatilinde olmamdan dolayı.
Önümüzdeki hafta son halini ekleyebilirim ancak.
Bu sitedeki değerli ustalar sayesinde çok güzel bişey çıktı ortaya, hepinizle paylaşmayı bende çok istiyorum.
İyi akşamlar.

 

[eskişehirli1]

mail adresim bulent.sari.kaya@hotmail.com kur takip dosyasını mail atabilirmisiniz.
Şimdiden teşekkürler.

 

[arnavut]

Merhaba,

Dosyayı ekte bulabilirsiniz.

 

[ERDEM_EGE]

Anlık kur dosyasını mail atma imkanını var mı?

 

[arnavut]

işyerindeki bilgisayarımda kayıtlı, izin bitimi gönderebilirim. pazartesi link'i güncellerim.

 

[bosnak_kızı]

merhaba
anlık kur takibi dosyasını nasıl kullanabilirim?