ExcelVBA.Net sitesine katkıda bulunabilirsiniz

[Ozan İLGÜN]

viewtopic.php?f=4&t=31743&hilit=+tcmb
Bu konudaki dosya işinize yarar mı?

[bpeker]

http://www.excelvba.net/viewtopic.php?f=4&t=31743&hilit=+tcmb
Bu konudaki dosya işinize yarar mı?

Merhaba ,

sorunun kod'dan kaynaklanmadığını çözdüm. Şirket IP lerinde sanırım TCMB engelli gibi gözüküyor. Bu yüzden erişemiyor. Sizin atmış olduğunuz link'teki dosya da bu yüzden Run time 9 veriyor.
yardımlarınız için teşekkürler.

[Ozan İLGÜN]

Durumu IT departmanına bildirirseniz düzeltebilirler.

[Tarkan VURAL]

Merhaba,

Rastgele bir tarih querystringi ile veri almak istedim, herhangi bir sorun olmadan listeledi. Kodlar da bu şekilde bir link oluşturuyor.
http://www.tcmb.gov.tr/kurlar/201903/18032019.xml

Dosyadan da denediğimde sorun görmedim, çalışır durumda.

[d_artagnan]

Range("AB1000").Value = "10000" değerini Range("AB1000").Value = "1" olarak değiştirince basamak ayracınızı virgül yerine nokta yapmaya gerek kalmıyor.

[Ruzgarca]

Tarkan Bey merhaba,

İlgili güne ait kur sayfası olamayabiliyor, Genel Tatil Günleri, Resmi Tatil Günleri gibi.

Bu durumda fonksiyonu nasıl kontrol altına alabiliriz?

Fonksiyonla tarih bazında, hücre içine tek tek belirli bir döviz kurunu almak için aşağıdaki KTF kullanılabilir.

Kullanımı:

Kod: Tümünü seç

=WebDoviz(Tarih Parametresi, Döviz Cinsi Parametresi, Döviz Değer Parametresi)

Tarih
Döviz kuru tarihi

Döviz Cinsi
Merkez bankasında kullanılan döviz kodlaması. USD, EUR, GBP vb..

Döviz Değerlendirme Tipi
Döviz Alış : 1
Döviz Satış: 2
Efektif Alış : 3
Efektif Satış : 4

Kod: Tümünü seç

DefVar E
Function Webdoviz(ByVal Tarih As Date, ByVal Dovtip As String, ByVal Tipi As Long) As Variant
Dim gun As String, ay As String, yil As String, path As String, kur As Double
Dim icerik As String, xmlhttp As Object, evn As Variant
Set xmlhttp = CreateObject("MSXML2.XMLHTTP")
Application.Volatile
Dovtip = UCase(Dovtip)
gun = Day(Tarih): ay = Month(Tarih): yil = Year(Tarih)
If Len(gun) = 1 Then gun = "0" & gun
If Len(ay) = 1 Then ay = "0" & ay
path = "http://www.tcmb.gov.tr/kurlar/" & yil & ay & "/" & gun & ay & yil & ".xml"
xmlhttp.Open "GET", path, False
xmlhttp.send "at"
If xmlhttp.Status = 200 Then
    icerik = xmlhttp.responseText
    temizlik = Split(icerik, "<Currency CrossOrder=")
    For y = 0 To UBound(temizlik)
        If temizlik(y) Like "*=""" & Dovtip & "*" Then
            sonuclar = Split(temizlik(y), "</CurrencyName>")
            evn1 = Split(sonuclar(1), "<ForexBuying>")
            evn2 = Split(sonuclar(1), "<ForexSelling>")
            evn3 = Split(sonuclar(1), "<BanknoteBuying>")
            evn4 = Split(sonuclar(1), "<BanknoteSelling>")
            Select Case Tipi
                Case 1: evn = Split(evn1(1), "</")
                Case 2: evn = Split(evn2(1), "</")
                Case 3: evn = Split(evn3(1), "</")
                Case 4: evn = Split(evn4(1), "</")
            End Select
            Exit For
        End If
    Next y
End If
'Kuruş hanesini benim gibi virgül kullananlar için
Webdoviz = Replace(evn(0), ".", ",")

'Kuruş hanesini nokta kullananlar için
'Webdoviz = evn(0)
End Function


y	A	B	C	D	E	F	G	H	I
1	Tarih	Usd Döviz Alış	Usd Döviz Satış	Usd Efektif Alış	Usd Efektif Satış	Euro Döviz Alış	Euro Döviz Satış	Euro Efektif Alış	Euro Efektif Satış
2	29.09.2014	2.2789	2.283	2.2773	2.2864	2.8914	2.8966	2.8894	2.9009
3	30.09.2014

Hücre	Formül
B2	=Webdoviz(A2;"usd";1)
C2	=Webdoviz(A2;"usd";2)
D2	=Webdoviz(A2;"usd";3)
E2	=Webdoviz(A2;"usd";4)
F2	=Webdoviz(A2;"eur";1)
G2	=Webdoviz(A2;"eur";2)
H2	=Webdoviz(A2;"eur";3)
I2	=Webdoviz(A2;"eur";4)

[Tarkan VURAL]

Merhaba, hoş geldiniz.

Kontrol altına almak, sonuç boş döndüğünde bir sonuç yazdırmak mı ? Mesela önceki günün kuru gelsin. Bunu kodlara müdahale etmeden Excel formülleri ile de yapabilirsiniz. Eğer kur fonksiyonu sonucu boşsa üstteki kuru getir, değil ise fonksiyon sonucu gibi...
Başka bir şey demek istiyorsanız kontrol altına almak ifadenizi açıklayınız. Yazılımcı kafası ile olasılık çok

[bcagatay75]

Merhabalar,
Tarkan bey bu kod sizindi sanırım.
kodunuzu 1 senedir falan bir fonksiyon haline getirdim ve programımın çeşitli yerlerinde kullanıyorum
Fakat sanırım Merkez bankası sitesini tekrar değiştirdi ve caanım fonksiyonu bypass etmek zorunda kaldım.
acaba tekrar bir revizyon yapma şansınız var mı?
eğer yardımcı olursanız harika olur.
şimdiden teşekkürler


Function Webdoviz(ByVal TARIH As Date, ByVal Dovtip As String, ByVal Tipi As Long) As Variant
Dim gun As String, ay As String, yil As String, path As String, kur As Double
Dim icerik As String, xmlhttp As Object, evn As Variant
If TARIH = "00:00:00" Then
Webdoviz = CDbl(1#)
Exit Function
Else
' bu gecici cözüm
Webdoviz = CDbl(1#)
Exit Function
End If
Set xmlhttp = CreateObject("MSXML2.XMLHTTP")
Application.Volatile
Dovtip = UCase(Dovtip)
gun = Day(TARIH): ay = Month(TARIH): yil = Year(TARIH)
If Len(gun) = 1 Then gun = "0" & gun
If Len(ay) = 1 Then ay = "0" & ay
path = "http://www.tcmb.gov.tr/kurlar/" & yil & ay & "/" & gun & ay & yil & ".xml"
xmlhttp.Open "GET", path, False
xmlhttp.Send "at"
If xmlhttp.Status = 200 Then
icerik = xmlhttp.responseText
temizlik = Split(icerik, "<Currency CrossOrder=")
For y = 0 To UBound(temizlik)
If temizlik(y) Like "*=""" & Dovtip & "*" Then
sonuclar = Split(temizlik(y), "</CurrencyName>")
evn1 = Split(sonuclar(1), "<ForexBuying>")
evn2 = Split(sonuclar(1), "<ForexSelling>")
evn3 = Split(sonuclar(1), "<BanknoteBuying>")
evn4 = Split(sonuclar(1), "<BanknoteSelling>")
Select Case Tipi
Case 1: evn = Split(evn1(1), "</")
Case 2: evn = Split(evn2(1), "</")
Case 3: evn = Split(evn3(1), "</")
Case 4: evn = Split(evn4(1), "</")
End Select
Exit For
End If
Next y
Webdoviz = Replace(evn(0), ".", ",")
Else
Webdoviz = CDbl(1#)
End If

[Tarkan VURAL]

Evet ajax metotlarıyla geliştirmişler sadece https://www.tcmb.gov.tr/kurlar/today.xml bağlantısı yanıt veriyor.

[bpeker]

Evet ajax metotlarıyla geliştirmişler sadece https://www.tcmb.gov.tr/kurlar/today.xml bağlantısı yanıt veriyor.

Tarkan Hocam merhaba ,

bende aylık olarak yaptığım raporlarda kullanıyorum(çok teşekkürler bu arada). Şuan geriye dönük tüm raporları düzeltmem gerekiyor. Peki şu şekilde nasıl revize edebiliriz, örnek olarak tarih yazıldığında kod 1 sefer çalışsın ve excel her açıldığında kendini yenilemesin.Böylelikle bir değişiklik olduğunda eski raporlar değişmeyecek.

saygılarımla.

[Tarkan VURAL]

Formül hesaplamasını manuel yapabilirsiniz. Elle tetiklediğinizde çalışır.

[Murat OSMA]

Evet ajax metotlarıyla geliştirmişler sadece https://www.tcmb.gov.tr/kurlar/today.xml bağlantısı yanıt veriyor.

Kodlardaki http'yi https yapmak yeterli yani.

[bpeker]

Formül hesaplamasını manuel yapabilirsiniz. Elle tetiklediğinizde çalışır.

hocam onu nasıl yapıcam buton mu eklemem gerekiyor. yada hangi kodu yazmam gerekiyor satır başına ?

[bcagatay75]

Evet ajax metotlarıyla geliştirmişler sadece https://www.tcmb.gov.tr/kurlar/today.xml bağlantısı yanıt veriyor.

Tarkan Bey,
bu durumda geçmiş tarihli kurlara erişim imkanı yok mu demek bu ajax metoduyla yapılmış site sebebiyle.
Burak Çağatay

[Tarkan VURAL]

hocam onu nasıl yapıcam buton mu eklemem gerekiyor. yada hangi kodu yazmam gerekiyor satır başına ?

Formül hesaplamasını Formüller - Hesaplama Seçenekleri sekmesinden elle açıp kapatabilirsiniz. Ya da kodla Application.Calculate özelliğinden yararlanabilirsiniz.

Tarkan Bey,
bu durumda geçmiş tarihli kurlara erişim imkanı yok mu demek bu ajax metoduyla yapılmış site sebebiyle.
Burak Çağatay

Bakmak lazım. Belki erişim için bir servis apisi ya da kolay bir link mevcut olabilir.

Kodlardaki http'yi https yapmak yeterli yani.

Tarih seçimine göre erişim istiyorlar Murat. Günlük, anlık yeterli değil.

[bcagatay75]

hocam onu nasıl yapıcam buton mu eklemem gerekiyor. yada hangi kodu yazmam gerekiyor satır başına ?

Formül hesaplamasını Formüller - Hesaplama Seçenekleri sekmesinden elle açıp kapatabilirsiniz. Ya da kodla Application.Calculate özelliğinden yararlanabilirsiniz.

Tarkan Bey,
bu durumda geçmiş tarihli kurlara erişim imkanı yok mu demek bu ajax metoduyla yapılmış site sebebiyle.
Burak Çağatay

Bakmak lazım. Belki erişim için bir servis apisi ya da kolay bir link mevcut olabilir.

Kodlardaki http'yi https yapmak yeterli yani.

Tarih seçimine göre erişim istiyorlar Murat. Günlük, anlık yeterli değil.

Tarkan Bey teşekkürler,
kolay gelsin

[Murat OSMA]

Kodlardaki http'yi https yapmak yeterli yani.

Tarih seçimine göre erişim istiyorlar Murat. Günlük, anlık yeterli değil.

Sadece senin mesajını desteklemek için yazdım abi.

[BURAK57]

Herkese merhabalar,
Bir haftadır 'Function Webdoviz' kodu çalışmıyor, alternatiflerini denedim olmuyor başka şekilde yazdığımda ,
'Function Webdoviz' kodu gibi olmuyor, yardımlarınızı rica ederiz, herkese iyi çalışmalar dilerim

[Tarkan VURAL]

Bugün denediğimde https ile sonuçları verdi. Fonksiyonu aşağıdaki şekilde kullanabiliyorsunuz:

Kod: Tümünü seç

DefVar E
Function Webdoviz(ByVal Tarih As Date, ByVal Dovtip As String, ByVal Tipi As Long) As Variant
Dim gun As String, ay As String, yil As String, path As String, kur As Double
Dim icerik As String, xmlhttp As Object, evn As Variant
Set xmlhttp = CreateObject("MSXML2.XMLHTTP")
Application.Volatile
Dovtip = UCase(Dovtip)
gun = Day(Tarih): ay = Month(Tarih): yil = Year(Tarih)
If Len(gun) = 1 Then gun = "0" & gun
If Len(ay) = 1 Then ay = "0" & ay
path = "https://www.tcmb.gov.tr/kurlar/" & yil & ay & "/" & gun & ay & yil & ".xml"
xmlhttp.Open "GET", path, False
xmlhttp.send "at"
If xmlhttp.Status = 200 Then
    icerik = xmlhttp.responseText
    temizlik = Split(icerik, "<Currency CrossOrder=")
    For y = 0 To UBound(temizlik)
        If temizlik(y) Like "*=""" & Dovtip & "*" Then
            sonuclar = Split(temizlik(y), "</CurrencyName>")
            evn1 = Split(sonuclar(1), "<ForexBuying>")
            evn2 = Split(sonuclar(1), "<ForexSelling>")
            evn3 = Split(sonuclar(1), "<BanknoteBuying>")
            evn4 = Split(sonuclar(1), "<BanknoteSelling>")
            Select Case Tipi
                Case 1: evn = Split(evn1(1), "</")
                Case 2: evn = Split(evn2(1), "</")
                Case 3: evn = Split(evn3(1), "</")
                Case 4: evn = Split(evn4(1), "</")
            End Select
            Exit For
        End If
    Next y
End If
'Kuruş hanesini benim gibi virgül kullananlar için
Webdoviz = Replace(evn(0), ".", ",")

'Kuruş hanesini nokta kullananlar için
'Webdoviz = evn(0)
End Function



[BURAK57]

Tarkan bey ,
yardımlarınızdan dolayı, çok teşekkür ederiz, iyi çalışmalar