Webden veri alırken hücredeki bir önceki değeri nasıl alırım acaba?

[birdhane]

Verdiğim makroyu dosyaya ilave ettiğiniz yeni bir modüle (Bu Çalışma Kitabı veya sayfa modulleri değil !) yerleştirdiyseniz, sizin " Workbook_Open" prosedürüne yazdığınız kod satırı ile; dosya ilk açıldıktan 40 saniye sonra "GetData_RegExp" makrosu çalışır, bir daha da çalışmaz....

Amacınız her 40 saniyede bir verileri alıp, sayfayı güncellemekse; biraz daha detaylı bir kod yazmak gerekir...

.

öncelikle yardımınız ve cevabınız için teşekkür ederim. Ben verileri zaten dakikada 1 otomatik olarak yüklüyorum sorun da oluşmuyor aslınsa. Benim sorunum çektiğim bu veriyi yedekleyememek. 1 dakika önceki veriyi farklı bir yere alabilsem , veri yenilendikçe eski veriyle karşılaştırabilirim ve sorunum çözülecek

 

[Haluk]

O zaman, linkteki konuyu inceleyebilirsiniz...

Soru - DÖVİZ KURU DEĞİŞİKLİKLERİNİ SÜTUNLARDA TAKİP ETME

Merhaba foruma yeni üye oldum. excelde döviz kurları ile ilgili bir çalışma yapıyorum. ykb nin sitesinden döviz kurlarını webden veri al ile excel sayfasında 1 dakikada bir güncellettiriyorum. ancak benim istediğim kurlar her güncellendiğinde yan taraftaki sütunlarda kaydetsin. örneğin şu an...

www.excel.web.tr

.

 

[birdhane]

O zaman, linkteki konuyu inceleyebilirsiniz...

Soru - DÖVİZ KURU DEĞİŞİKLİKLERİNİ SÜTUNLARDA TAKİP ETME

Merhaba foruma yeni üye oldum. excelde döviz kurları ile ilgili bir çalışma yapıyorum. ykb nin sitesinden döviz kurlarını webden veri al ile excel sayfasında 1 dakikada bir güncellettiriyorum. ancak benim istediğim kurlar her güncellendiğinde yan taraftaki sütunlarda kaydetsin. örneğin şu an...

www.excel.web.tr

.

Çok teşekkür ederim

 

[Korhan Ayhan]

Ekteki dosyaları inceleyiniz.

Klasördeki iki dosyayı açıp öyle deneyiniz. Tabi dosya bağlantıları benim pc'ye göre ayarlı olduğu için sizde hata verecektir. Siz kendinize göre düzenlersiniz.

İstediğiniz gibi çalışıyorsa sayfadaki kodu kendi dosyanıza uyarlarsınız.

 

[birdhane]

Ekteki dosyaları inceleyiniz.

Klasördeki iki dosyayı açıp öyle deneyiniz. Tabi dosya bağlantıları benim pc'ye göre ayarlı olduğu için sizde hata verecektir. Siz kendinize göre düzenlersiniz.

İstediğiniz gibi çalışıyorsa sayfadaki kodu kendi dosyanıza uyarlarsınız.

Hocam kusura bakmayın sizleri de çok uğraştırdım. Kur dosyası yedek aldığı için işime yarar ancak her seferinde Sayfa 1 deki Veri 1 in 1 dakika önceki verisinin, Sayfa 2 deki yeri sürekli değiştiği için sayfa 1 deki anlık Veri 1 değeri ile Sayfa 2 deki 1 dakika önceki değeri formülle nasıl karşılaştırırım içinden çıkamadım. . Ücretli yardım edecek arkadaş varsa özelden yazabilir

 

[Korhan Ayhan]

Üstteki mesajımda ki dosyaya küçük bir ekleme yaptım. Yedeklediği verileri Z-A şeklinde sıralıyor. Böylece son aldığı veriler üste konumlanıyor.

Bu şekilde biraz daha kullanışlı oldu gibi..

 

[birdhane]

Üstteki mesajımda ki dosyaya küçük bir ekleme yaptım. Yedeklediği verileri Z-A şeklinde sıralıyor. Böylece son aldığı veriler üste konumlanıyor.

Bu şekilde biraz daha kullanışlı oldu gibi..

Yardımlarınız ve emekleriniz için teşekkür ederim.

 

[birdhane]

Üstteki mesajımda ki dosyaya küçük bir ekleme yaptım. Yedeklediği verileri Z-A şeklinde sıralıyor. Böylece son aldığı veriler üste konumlanıyor.

Bu şekilde biraz daha kullanışlı oldu gibi..

Hocam bu dosyanızda Veri belgesinin işlevi nedir acaba? Veri belgesindeki verileri Kur belgesine yazdırıyor doğru mu anladım? Eğer öyleyse benim Veri belgesiyle işim yok sadece Kur belgesindeki tablo verilerini kendi tablo verilerimle doldurursam istediğim olacak bu durumda

 

[Korhan Ayhan]

Kur tablosundaki sayfa kodlarını alırsanız olacaktır. Ben örnek teşkil etmesi açısından VERİ belgesini de ekledim.

 

[birdhane]

Kur tablosundaki sayfa kodlarını alırsanız olacaktır. Ben örnek teşkil etmesi açısından VERİ belgesini de ekledim.

Hocam emin olun dediklerinizi aynen uyguluyorum ama benim bilgisayarda mı sorun var anlamadım. Aynı kodları uyguladım ama nedense Sayfa 1 e aktarmadı. Son halini ekiyorum. Size zahmet kontrol edebilirseniz sevinirim.

 

[Korhan Ayhan]

Sayfa1 için sütun başlıklarınızıda giriniz.

 

[birdhane]

Sayfa1 için sütun başlıklarınızıda giriniz.

Hocam bilgisayarı yeniden başlattım hiçbir şeyi değiştirmeden çalışmaya başladı. Çok teşekkür ederim. Emeklerinize sağlık. Sayfa 1 de liste uyayıp gidecek böyle mesela 100 satırdan fazla olursa fazla olan satırları sil gibi bir kod eklenebilir mi acaba?

 

[Korhan Ayhan]

Bu kodu deneyiniz.

A100 satırından sonraki satırların tümü silinir. Siz kendinize göre uyarlarsınız.

Option Explicit

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim S1 As Worksheet, S2 As Worksheet, Son As Long, Alan As Range, Satir As Long

    Set S1 = Sheets("Sayfa1")
    Set S2 = Sheets("Sayfa2")

    Application.EnableEvents = False

    Son = S1.Cells(Rows.Count, 1).End(3).Row
    Set Alan = S1.Range("A2:C" & Son)

    Satir = S2.Cells(S2.Rows.Count, 1).End(3).Row + 1

    S2.Range("A" & Satir & ":A" & Satir).Resize(Son - 1).Value = Now
    S2.Range("B" & Satir & ":D" & Satir).Resize(Son - 1).Value = Alan.Value
    S2.Range("A:D").Sort S2.Range("A1"), xlDescending
    S2.Range("A101:A" & S2.Rows.Count).EntireRow.Delete

    Application.EnableEvents = True
End Sub

 

[birdhane]

Bu kodu deneyiniz.

A100 satırından sonraki satırların tümü silinir. Siz kendinize göre uyarlarsınız.

Option Explicit

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim S1 As Worksheet, S2 As Worksheet, Son As Long, Alan As Range, Satir As Long

    Set S1 = Sheets("Sayfa1")
    Set S2 = Sheets("Sayfa2")

    Application.EnableEvents = False

    Son = S1.Cells(Rows.Count, 1).End(3).Row
    Set Alan = S1.Range("A2:C" & Son)

    Satir = S2.Cells(S2.Rows.Count, 1).End(3).Row + 1

    S2.Range("A" & Satir & ":A" & Satir).Resize(Son - 1).Value = Now
    S2.Range("B" & Satir & ":D" & Satir).Resize(Son - 1).Value = Alan.Value
    S2.Range("A:D").Sort S2.Range("A1"), xlDescending
    S2.Range("A101:A" & S2.Rows.Count).EntireRow.Delete

    Application.EnableEvents = True
End Sub

Hocam her şey için tekrar teşekkür ederim.

 

[birdhane]

Bu kodu deneyiniz.

A100 satırından sonraki satırların tümü silinir. Siz kendinize göre uyarlarsınız.

Option Explicit

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim S1 As Worksheet, S2 As Worksheet, Son As Long, Alan As Range, Satir As Long

    Set S1 = Sheets("Sayfa1")
    Set S2 = Sheets("Sayfa2")

    Application.EnableEvents = False

    Son = S1.Cells(Rows.Count, 1).End(3).Row
    Set Alan = S1.Range("A2:C" & Son)

    Satir = S2.Cells(S2.Rows.Count, 1).End(3).Row + 1

    S2.Range("A" & Satir & ":A" & Satir).Resize(Son - 1).Value = Now
    S2.Range("B" & Satir & ":D" & Satir).Resize(Son - 1).Value = Alan.Value
    S2.Range("A:D").Sort S2.Range("A1"), xlDescending
    S2.Range("A101:A" & S2.Rows.Count).EntireRow.Delete

    Application.EnableEvents = True
End Sub

Hocam tekrar merhaba, güncellerken sık sık şu hatayı veriyor. Bunun sebebi ne olabilir acaba. Fareyle Hata satırının üzerine gelince S2=Nothing yazıyor. bazen de Sheets("Yedek") = <Subscript out of range> yazıyor

 

[Korhan Ayhan]

Dosyanızda Sayfa2 adında bir sayfa olmalıdır diyor.

 

[birdhane]

Dosyanızda Sayfa2 adında bir sayfa olmalıdır diyor.

Sayfa2 ekledim belgeyi kapatıp tekrar açtım bu sefer yine Debug a düştü ve fareyle üzerine gelince şu hatayı veriyor: Sheets("Yedek") = <Subscript out of range> yazıyor

 

[Korhan Ayhan]

Lütfen dosyanızdaki sayfa isimlerini kontrol ediniz. Eğer sayfa varsa hata veren satırın görüntüsünü ve alt sekmelerin isimlerinin görüntüsünü paylaşın.

 

[birdhane]

Lütfen dosyanızdaki sayfa isimlerini kontrol ediniz. Eğer sayfa varsa hata veren satırın görüntüsünü ve alt sekmelerin isimlerinin görüntüsünü paylaşın.

Ne yazık ki yine hata verdi. Ama END deyince devam ediyor

 

[Korhan Ayhan]

Sayfa adında BOŞLUK karakteri olabilir kontrol ediniz.