• FORUMU MOBİL UYGULAMADAN TAKİP EDİN

    Forumu isteyen üyelerimiz Tapatalk (Harici bir hizmet) üzerinden mobil uygulamadan takip edebilirler.
    iOS için : https://itunes.apple.com/app/id307880732?mt=8
    Android için : https://play.google.com/store/apps/details?id=com.quoord.tapatalkpro.activity
    adreslerinden indirebilirsiniz.

    Bir iki haftaya da foruma özel kendi uygulamamız yayında olacak.
ALTIN ÜYELİK Hakkında Bilgi
-----------------------

Webden sayfa kaynak kodu excele nasıl alınır

assenucler

Altın Üye
Altın Üye
Katılım
19 Ağustos 2004
Mesajlar
2,657
Beğeniler
11
Excel Vers. ve Dili
Office 2016 TR - Windows 10 TR x64
#22
Değerli Üstatlar;

Emek ve paylaşımlarınız için teşekkürler.

Veriler 5 dakika arayla alınmak istendiğinde, kodun hangi kısmında, ne şekilde değişiklik yapmak gerekiyor?

Sayın Zeki Gürsoy, Sayın netzone ve Sayın Haluk'un kod ve dosyaları, ben de sorunsuz çalıştı.
 

Haluk

Özel Üye
Katılım
7 Temmuz 2004
Mesajlar
6,453
Beğeniler
225
Excel Vers. ve Dili
32 Bit 2010 - İngilizce
#23
Değerli Üstatlar;

......
Veriler 5 dakika arayla alınmak istendiğinde, kodun hangi kısmında, ne şekilde değişiklik yapmak gerekiyor?
.....
Bunun için, aşağıdaki satırda kırmızı ile belirtilen değişikliklerin yapılması yeterlidir.

Rich (BB code):
    RunWhen = Now + TimeSerial(0, 5, 0)
.
 

netzone

Altın Üye
Altın Üye
Katılım
10 Mayıs 2006
Mesajlar
353
Beğeniler
66
Excel Vers. ve Dili
Office 2016 64 Bit TR
Windows 10 64 Bit TR
#24
...
Veriler 5 dakika arayla alınmak istendiğinde, kodun hangi kısmında, ne şekilde değişiklik yapmak gerekiyor?
...
Merhaba

Zeki Bey'in kodlarında Kırmızı ile belirtilen yeri değiştirin.
Rich (BB code):
...
        'Otomatik güncelleme için aşağıdaki satıra dakika
        'cinsinden değer yazın...
        .RefreshPeriod = 0
..
Haluk Bey cevabını vermiş .

Ve benim eklediğim dosyada süre vermek için:
sorgu_ozellikleri.png

iyi çalışmalar.
 

Haluk

Özel Üye
Katılım
7 Temmuz 2004
Mesajlar
6,453
Beğeniler
225
Excel Vers. ve Dili
32 Bit 2010 - İngilizce
#25
İlave bilgi:

Kodlarda aşağıda kırmızı ile belirtilen ufak bir ilave yaptım, şimdi daha iyi oldu ....

Rich (BB code):
            For i = 1 To noRows
                For j = 2 To noColumns + 1
                    Temp = Replace(myTable.Rows(i - 1).Cells(j - 2).innerText, ".", "")
                    Cells(i, j) = Replace(Temp, ",", ".")
                    Temp = ""
                Next
            Next
 

assenucler

Altın Üye
Altın Üye
Katılım
19 Ağustos 2004
Mesajlar
2,657
Beğeniler
11
Excel Vers. ve Dili
Office 2016 TR - Windows 10 TR x64
#26
Değerli üstatlarımız,


Hepimizin yardımına en kısa sürede koşuyorlar. Allah sizlerden razı ve her şey gönlünüzce olsun.

Sevgi ve saygılar.
 

Haluk

Özel Üye
Katılım
7 Temmuz 2004
Mesajlar
6,453
Beğeniler
225
Excel Vers. ve Dili
32 Bit 2010 - İngilizce
#27
Tekrar merhaba;

Doğrusu bugün piyasaları takip ederken insanın başı dönüyor......

Daha önceki dosyama bir ilave yaptım. Aşağıdaki animasyonda da görüldüğü gibi; veriler 5 saniye aralıklarla güncellenirken, yeni alınan değerlerin bir öncekine göre artış veya azalış yönünde olup olmadığı, kırmızı ve yeşil oklarla belirtilmektedir. Güncellenen veride değişiklik yoksa, "----" ile belirtilmektedir.

Bu revizyonu içeren dosya da ektedir.

Umarım döviz makul bir seviyeye iner artık....

 

Ekli dosyalar

Son düzenleme:

assenucler

Altın Üye
Altın Üye
Katılım
19 Ağustos 2004
Mesajlar
2,657
Beğeniler
11
Excel Vers. ve Dili
Office 2016 TR - Windows 10 TR x64
#28
Sayın Haluk,

Yeni paylaşımınız için teşekkürler.

Böyle giderse vay ekonomi ve vatandaşın haline!
 
Üst