Döviz Kuru bağlantısı ve anlık kayıt

[leonadies]

Merhaba üstadlar.. Enpara gün içinde değişen USD verilerini excele web bağlantı ile almaktayım. ve bu verileri 1 dakikada bir yeniletmekteyim. Yapmak istediğim şey ise;

Excel yenilendikçe bir hücrede yenilenme saati, karşısında da o anki kur değeri ve bu mantıkta aşağı doğru sürekli kayıt tutması..

yapılabilir mi?

 

[Ömer BARAN]

Merhaba.

--ENPARA sayfasında; E sütunun SAAT, F ve G sütununu da virgülden sonra 5 basamak
olacak şekilde SAYI olarak biçimlendirin.
--Alt taraftan SORGU sayfasının adına fareyle sağ tıklayıp KOD GÖRÜNTÜLEyi seçtiğinizde
açılan VBA ekranının sağ tarafına aşağıdaki kod'u yapıştırın.
.

[FONT="Arial Narrow"]Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, [A66]) Is Nothing Then Exit Sub
    With Sheets("ENPARA")
        satır = .[E65536].End(3).Row + 1: .Cells(satır, 5) = Now
        .Cells(satır, 6) = .Cells(2, 2): .Cells(satır, 7) = .Cells(2, 3)
    End With
End Sub[/FONT]

 

[YUSUF44]

Aşağıdaki kodları ilgili sayfanın kod bölümüne yapıştırıp deneyiniz, sayfada hesaplama yapıldığında (bağlantı yenilendiğinde) istediğinizi yapar. E sütununu saat ya da tarih saat olarak biçimlendirmeyi unutmayın:

Private Sub Worksheet_Calculate()
yeni = Cells(Rows.Count, "E").End(3).Row + 1
Cells(yeni, "E") = Time
Cells(yeni, "F") = [B2]
Cells(yeni, "G") = [C2]
End Sub

 

[leonadies]

Hocam ikisinide denedim.. Ömer Baran hocam bu kod çalışmadı. Sanırım bi hatası var.

Yusuf hocam seninki tamam. Sorunsuz çalıştı. Yalnız E2 den başlaması için nasıl bi düzeltme yapabiliriz? Direk E9 dan başlıyo yazmaya

Tamam hallettim

 

[Ömer BARAN]

Gönderdiğim kod'u ENPARA değil SORGU sayfasının kod bölümüne yapıştırmalısınız.
Önceki cevabıma dikkat etmemişsiniz anlaşılan.

Bence kur değişmemişse kayıt yapmayı engelleyici bir satır ilave edilmesinde yarar var.
Böylece sadece kur değiştiğinde listeye eklenebilir.

 

[leonadies]

Ömer hocam çok haklısın yanlış yere yapıştırmışım. Özür dilerim. Dediğiniz tarzda bi kod olsa çok güzel olur aslında

 

[YUSUF44]

Yeni =

Satırından sonra

If cells(yeni-1,"F")=[B2] and cells(yeni-1,"G") =[C2] then exit sub

Satırını ilave edip dener misiniz?

 

[leonadies]

Yusuf Hocam çalıştı. Kur değeri değişmedikçe kayıt almıyor. Tşk ederim

 

[myucebas]

Selamlar.
Çalışmış halini paylaşır mısınız? Aynı şekilde enpara'dan veri alan sistemi bende kullanmak istiyorum.