• DİKKAT

    DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
    Altın Üyelik Hakkında Bilgi

Hücre içindeki kur

V

volkan.kopuz

Katılım
18 Nisan 2009
Mesajlar
72
Excel Vers. ve Dili
Microsoft Office Excell 2007 Türkçe
merhaba

hücreye link atmayı biliyorum fakat hücre içinde o günkü döviz kurunu güncel bir siteden alıp göstermem mümkünmü?? bir hücrede veya çizimi yapılacak herhangi bir şeklin içinde,pencere vs...??şimdiden teşekkürler..
 
Kod: 
Sub Hücreye_Kur_Al()
Dim tarih As Date
On Error GoTo yok
Set evn = CreateObject("microsoft.xmlhttp")
tarih = VBA.Date
yil = Year(tarih)
ay = Month(tarih)
gun = Day(tarih)
If ay < 10 Then ay = "0" & ay
If gun < 10 Then gun = "0" & gun

EVN_URL = "http://www.tcmb.gov.tr/kurlar/" & yil & ay & "/" & gun & ay & yil & ".html"
evn.Open "get", EVN_URL, False
evn.send
gethttp = evn.responsetext

da = InStr(1, gethttp, "USD") 'Dolar alış
dolara = Mid(gethttp, da + 42, 6)
ds = InStr(1, gethttp, "USD") 'Dolar satış
dolars = Mid(gethttp, ds + 55, 6)

ea = InStr(1, gethttp, "EUR") 'Euro alış
euroa = Mid(gethttp, ea + 42, 6)
es = InStr(1, gethttp, "EUR") 'Euro satış
euros = Mid(gethttp, es + 55, 6)

ga = InStr(1, gethttp, "GBP") 'Pound alış
gbpa = Mid(gethttp, ga + 37, 6)
gs = InStr(1, gethttp, "GBP") 'Pound satış
gbps = Mid(gethttp, ga + 50, 6)

If IsNumeric(dolara) Then
    [C5] = dolara
    [C6] = euroa
    [C7] = gbpa
Else
    GoTo yok
End If
Exit Sub
yok:
MsgBox "Bu tarihe ait kur bilgisi bulunamadı!"

End Sub
 
pardon,dün bu kodu yazdım veri çekti fakat ertesi günü yani bugün kur'un yine dünkü gibi olduğunu gördüm.Yani güncellememiş? excel sayfasında hergün kendini güncellemesi gerekmiyormu??
 
oplis' Alıntı:
yardımlarınızı rica ederim.
Genişletmek için tıkla ...

Yukarıdaki mesajdaki koda bazı ilaveler yaptım

kod:

Kod: 
Sub Hücreye_Kur_Al()
Dim tarih As Date
baslangıc = Format(Now, "dd.mm.yyyy")
tarih = InputBox("Kur bilgisi alacağınız tarihi girin.", "Tarih", baslangıc)
On Error GoTo yok
Set evn = CreateObject("microsoft.xmlhttp")
yil = Format(tarih, "yyyy")
ay = Format(tarih, "mm")
gun = Format(tarih, "dd")
EVN_URL = "[URL]http://www.tcmb.gov.tr/kurlar/[/URL]" & yil & ay & "/" & gun & ay & yil & ".html"
evn.Open "get", EVN_URL, False
evn.send
gethttp = evn.responsetext
da = InStr(1, gethttp, "USD") 'Dolar alış
dolara = Mid(gethttp, da + 42, 6)
ds = InStr(1, gethttp, "USD") 'Dolar satış
dolars = Mid(gethttp, ds + 55, 6)
ea = InStr(1, gethttp, "EUR") 'Euro alış
euroa = Mid(gethttp, ea + 42, 6)
es = InStr(1, gethttp, "EUR") 'Euro satış
euros = Mid(gethttp, es + 55, 6)
ga = InStr(1, gethttp, "GBP") 'Pound alış
gbpa = Mid(gethttp, ga + 37, 6)
gs = InStr(1, gethttp, "GBP") 'Pound satış
gbps = Mid(gethttp, ga + 50, 6)
If IsNumeric(dolara) Then
[C5] = dolara
[C6] = euroa
[C7] = gbpa
Else
GoTo yok
End If
Exit Sub
yok:
MsgBox "Bu tarihe ait kur bilgisi bulunamadı!"
End Sub
 
öncelikle yardımınız için çok teşekkür ederim..kodu kopyaladım..bir kereye mahsus sorgulamanması istenen tarihi istedi.sonrasında exceli kapatıp açtığımda istemedi.acaba her gün bir kereye mahsus mu bu sorgulanması istenen tarihi istiyor?? ayrıca bu kodu bir kaç sayfada kullanacağım,her bir sayfaya yapıştırmama gerekiyor değilmi?
 
oplis' Alıntı:
öncelikle yardımınız için çok teşekkür ederim..kodu kopyaladım..bir kereye mahsus sorgulamanması istenen tarihi istedi.sonrasında exceli kapatıp açtığımda istemedi.acaba her gün bir kereye mahsus mu bu sorgulanması istenen tarihi istiyor?? ayrıca bu kodu bir kaç sayfada kullanacağım,her bir sayfaya yapıştırmama gerekiyor değilmi?
Genişletmek için tıkla ...

Sorunuzu alıntı yaparak sorun

Kodu çalıştırdığınızda açılan mesaj kutusuna gelen tarihi siz istediğiniz bir tarih yazarak kur bilgilerini alabilirsiniz. ve bütün sayfalarda kulanabilirsiniz.

Not kur bilgileri aynı güne aitse herhelde 15.30 dan sonra yayınlanıyor.
 
Halit bey

Sizden mümkünse çok ricam Ek'teki dosyayı kodu kaydetmeniz.ben kaydettiğimde bir kereye mahsus veriyi çekiyor,sonra tekrar baktığımda kodun kaybolduğunu görüyorum.Bir türlü işin içinden çıkamadım.Bir de göreceğiniz sayfanın birden fazla kopyasını yaapcağım.bEn visual basic açtığım zaman sol üst köşedeki sayfaları tek tek tıklayarakmı bu kodu gireceğim?yani her bir sayfa için aynı kodumu kopyalayacağım??Bilmem anlatabildimmi :)..ilginiz için şimdiden teşekkürler..
 
Cevap yazmak için giriş yap yada kayıt ol.
Geri
Üst