Tarihe göre TCMB sitesinden kur bilgisi almak

Excel VBA açık kodlarını buradan izleyebilir ve paylaşabilirsiniz.

Tarihe göre TCMB sitesinden kur bilgisi almak

İleti#1)  Bülent » 05 Arl 2009 09:24

Kod: Tümünü seç
Sub kur_getir()
Dim tarih As Date
Rem excelvba.net
On Error GoTo yok
Set evn = CreateObject("microsoft.xmlhttp")
tarih = InputBox("Tarih yazınız?", "Kur Tarihi:", FormatDateTime(Now, vbShortDate))
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)

[C5] = dolara
[C6] = euroa
[C7] = gbpa
[G2] = tarih

Exit Sub
yok:
MsgBox "Bu tarihe ait kur bilgisi bulunamadı!"
End Sub

(Ücretli program talepleriniz için iletişime geçebilirsiniz, excelvbprogram@ gmail.com)
Kullanıcı avatarı
Bülent
Yönetim Kurulu
 
Adı Soyadı:Bülent ÖZTÜRK
Kayıt: 15 Haz 2008 00:08
Meslek: Bilgi Sistemleri
Yaş: 42
İleti: 3621
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: İst/Çekmeköy

Tarihe göre TCMB sitesinden kur bilgisi almak

İleti#2)  SİBEL70 » 05 Arl 2009 11:09

Bülent Bey merhabalar,

Verdiğiniz kodlar tamam butona atayıp kullanabiliyorum. Sadece m6 hücresindeki tarihi inputbox'a aldırabilmek mümkün müdür?

tarih = InputBox("Tarih yazınız?", "Kur Tarihi:", FormatDateTime(Now, vbShortDate)) kodunda now yerine [M6] yazmayı denedim ancak hücrelere di-p ve enemad ifadelerini yazdı.
Kullanıcı avatarı
SİBEL70
Siteye Alışmış
 
Adı Soyadı:sibel bardakçı
Kayıt: 26 Oca 2009 03:02
Yaş: 48
İleti: 320
 
Cinsiyet: Bayan
Bulunduğunuz İl / Semt: istanbul

Cevap: Tarihe göre TCMB sitesinden kur bilgisi almak

İleti#3)  Bülent » 05 Arl 2009 12:05

Merhaba.

tarih=[M6]

şeklinde denediniz mi?
(Ücretli program talepleriniz için iletişime geçebilirsiniz, excelvbprogram@ gmail.com)
Kullanıcı avatarı
Bülent
Yönetim Kurulu
 
Adı Soyadı:Bülent ÖZTÜRK
Kayıt: 15 Haz 2008 00:08
Meslek: Bilgi Sistemleri
Yaş: 42
İleti: 3621
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: İst/Çekmeköy

Cevap: Tarihe göre TCMB sitesinden kur bilgisi almak

İleti#4)  SİBEL70 » 05 Arl 2009 12:25

Bülent bey,

iş günlerine ait kısmı düzenleyince oldu. Ancak hafta sonuna gelen tarihleri seçtiğimde hücrelere di-p ve enemed ifadeleri geliyor.
Kullanıcı avatarı
SİBEL70
Siteye Alışmış
 
Adı Soyadı:sibel bardakçı
Kayıt: 26 Oca 2009 03:02
Yaş: 48
İleti: 320
 
Cinsiyet: Bayan
Bulunduğunuz İl / Semt: istanbul

REKLAM
Excel Logo XML Oluşturucu
Logo Object Designer ile Uyarlama

Cevap: Tarihe göre TCMB sitesinden kur bilgisi almak

İleti#5)  Bülent » 05 Arl 2009 12:32

Kodu şöyle revize edelim;

Kod: Tümünü seç
Dim tarih As Date
Rem excelvba.net
On Error GoTo yok
Set evn = CreateObject("microsoft.xmlhttp")
tarih =[M6]
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ı!"
(Ücretli program talepleriniz için iletişime geçebilirsiniz, excelvbprogram@ gmail.com)
Kullanıcı avatarı
Bülent
Yönetim Kurulu
 
Adı Soyadı:Bülent ÖZTÜRK
Kayıt: 15 Haz 2008 00:08
Meslek: Bilgi Sistemleri
Yaş: 42
İleti: 3621
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: İst/Çekmeköy

Cevap: Tarihe göre TCMB sitesinden kur bilgisi almak

İleti#6)  Tarkan VURAL » 05 Arl 2009 15:27

Bülent eline sağlık. şkşk [mersi]
Resim
www.tarkanvural.com.tr

İnnâ lillâhi ve innâ ileyhi raciûn
Şüphesiz ki; biz Allah’a âidiz ve vakti geldiğinde O’na döndürüleceğiz.

HasbunAllâhu ve nimel vekîl
Bize Allah yeter. O ne güzel vekildir.


ExcelVBA.NET' e katkıda bulunmak ister misiniz ? O halde BAĞIŞ butonunu tıklayın...
Kullanıcı avatarı
Tarkan VURAL
Yönetim Kurulu
 
Adı Soyadı:Tarkan VURAL
Kayıt: 14 Haz 2008 18:27
Konum: @tarkanvural73
Meslek: LUU, Database Expert, Senior Software Specialist, Developer
Yaş: 45
İleti: 26990
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: İstanbul - Beylikdüzü

REKLAM
ETA - Excel Konsolide Raporlama
ETA Excel Personel Entegre Raporu

Cevap: Tarihe göre TCMB sitesinden kur bilgisi almak

İleti#7)  SİBEL70 » 05 Arl 2009 17:40

Bülent bey,
[TESEKKÜR] sorun çözüldü. İyi akşamlar diliyorum.
Kullanıcı avatarı
SİBEL70
Siteye Alışmış
 
Adı Soyadı:sibel bardakçı
Kayıt: 26 Oca 2009 03:02
Yaş: 48
İleti: 320
 
Cinsiyet: Bayan
Bulunduğunuz İl / Semt: istanbul

Cevap: Tarihe göre TCMB sitesinden kur bilgisi almak

İleti#8)  Murat OSMA » 14 May 2011 16:49

Ellerine sağlık Bülent abi, teşekkür ederim. --)(
Kullanıcı avatarı
Murat OSMA
Site Forum Yöneticisi
 
Adı Soyadı:Murat OSMA
Kayıt: 04 Arl 2008 22:34
Konum: İstanbul
Meslek: Excel & VBA Eğitmeni
Yaş: 34
İleti: 14336
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Bağcılar - İSTANBUL

Cevap: Tarihe göre TCMB sitesinden kur bilgisi almak

İleti#9)  xanthosweb » 11 Eyl 2014 08:58

Öncelikle herkese merhaba;
Yukarıda yazmış olduğunuz kodları kendi çalışma sayfamda çalıştırdığımda kurlar tek haneli yani tamsayı olarak geliyor. Bu sorunu nasıl çözebilirim? Selamlar.
Kullanıcı avatarı
xanthosweb
Yeni Başlamış
 
Adı Soyadı:Oğuzhan Genç
Kayıt: 24 Eyl 2010 15:59
Konum: Denizli
Meslek: Makina Mühendisi ve iş Güvenliği Uzmanı
Yaş: 39
İleti: 60
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Denizli



Cevap: Tarihe göre TCMB sitesinden kur bilgisi almak

İleti#10)  Murat OSMA » 11 Eyl 2014 11:06

Merhaba Oğuzhan Bey,

Kodlardaki bu satırda 6' yı 7 yapın lütfen.
dolara = Mid(gethttp, da + 42, 6)
euroa = Mid(gethttp, ea + 42, 6)
gbpa = Mid(gethttp, ga + 37, 6)
Kullanıcı avatarı
Murat OSMA
Site Forum Yöneticisi
 
Adı Soyadı:Murat OSMA
Kayıt: 04 Arl 2008 22:34
Konum: İstanbul
Meslek: Excel & VBA Eğitmeni
Yaş: 34
İleti: 14336
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Bağcılar - İSTANBUL

Cevap: Tarihe göre TCMB sitesinden kur bilgisi almak

İleti#11)  xanthosweb » 15 Eyl 2014 17:05

Çok tşekkür ederim Murat Bey. İletinize cevabım geç oldu kusura bakmayın. İyi çalışmalar.
Kullanıcı avatarı
xanthosweb
Yeni Başlamış
 
Adı Soyadı:Oğuzhan Genç
Kayıt: 24 Eyl 2010 15:59
Konum: Denizli
Meslek: Makina Mühendisi ve iş Güvenliği Uzmanı
Yaş: 39
İleti: 60
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Denizli



Cevap: Tarihe göre TCMB sitesinden kur bilgisi almak

İleti#12)  Murat OSMA » 16 Eyl 2014 11:19

Rica ederim Oğuzhan Bey, iyi günler. --)(
Kullanıcı avatarı
Murat OSMA
Site Forum Yöneticisi
 
Adı Soyadı:Murat OSMA
Kayıt: 04 Arl 2008 22:34
Konum: İstanbul
Meslek: Excel & VBA Eğitmeni
Yaş: 34
İleti: 14336
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Bağcılar - İSTANBUL

Cevap: Tarihe göre TCMB sitesinden kur bilgisi almak

İleti#13)  oguzaltindal » 24 Arl 2014 10:53

Merhabalar,
Makrolu hali ile dosyayı paylaşabilecek olan var mı ? Bu çalışma işimi çok kolaylaştıracak. [TESEKKÜR]
Kullanıcı avatarı
oguzaltindal
 
Kayıt: 24 Arl 2014 10:36
Meslek: Finans
Yaş: 30
İleti: 3
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: İstanbul / Bağcılar

Cevap: Tarihe göre TCMB sitesinden kur bilgisi almak

İleti#14)  Tarkan VURAL » 24 Arl 2014 11:27

Merhaba, sitemize hoş geldiniz. Bakınız: viewtopic.php?f=38&t=19305
Resim
www.tarkanvural.com.tr

İnnâ lillâhi ve innâ ileyhi raciûn
Şüphesiz ki; biz Allah’a âidiz ve vakti geldiğinde O’na döndürüleceğiz.

HasbunAllâhu ve nimel vekîl
Bize Allah yeter. O ne güzel vekildir.


ExcelVBA.NET' e katkıda bulunmak ister misiniz ? O halde BAĞIŞ butonunu tıklayın...
Kullanıcı avatarı
Tarkan VURAL
Yönetim Kurulu
 
Adı Soyadı:Tarkan VURAL
Kayıt: 14 Haz 2008 18:27
Konum: @tarkanvural73
Meslek: LUU, Database Expert, Senior Software Specialist, Developer
Yaş: 45
İleti: 26990
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: İstanbul - Beylikdüzü

Cevap: Tarihe göre TCMB sitesinden kur bilgisi almak

İleti#15)  oguzaltindal » 24 Arl 2014 12:06

Hoşbuldum Tarkan bey,

Önceliklikle ilgilinz için çok teşekkür ederim.
Sitenizi uzun zamandır takip ediyorum özellikle eğitim videolarından çok faydalandım. Fakat nedense üye olmamıştım.
Artık gizli takipçilikten çıktım :)

Gönderdiğiniz linkteki dosya da geçmiş tarihli kur bilgisi alabiliyor muyuz ?
Kullanıcı avatarı
oguzaltindal
 
Kayıt: 24 Arl 2014 10:36
Meslek: Finans
Yaş: 30
İleti: 3
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: İstanbul / Bağcılar

Cevap: Tarihe göre TCMB sitesinden kur bilgisi almak

İleti#16)  Tarkan VURAL » 24 Arl 2014 12:26

Konuya diğer başlıktan devam ediniz. Geçmiş tarihler ile ilgili de veri alabiliyorsunuz. İyi çalışmalar.
Resim
www.tarkanvural.com.tr

İnnâ lillâhi ve innâ ileyhi raciûn
Şüphesiz ki; biz Allah’a âidiz ve vakti geldiğinde O’na döndürüleceğiz.

HasbunAllâhu ve nimel vekîl
Bize Allah yeter. O ne güzel vekildir.


ExcelVBA.NET' e katkıda bulunmak ister misiniz ? O halde BAĞIŞ butonunu tıklayın...
Kullanıcı avatarı
Tarkan VURAL
Yönetim Kurulu
 
Adı Soyadı:Tarkan VURAL
Kayıt: 14 Haz 2008 18:27
Konum: @tarkanvural73
Meslek: LUU, Database Expert, Senior Software Specialist, Developer
Yaş: 45
İleti: 26990
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: İstanbul - Beylikdüzü

Cevap: Tarihe göre TCMB sitesinden kur bilgisi almak

İleti#17)  gul_11 » 16 Oca 2015 17:54

Arkadaşlar merhaba, ben logodan tüm günlük döviz kurlarının 4 türünü de excel e çekmek istiyorum, tek bulabildiğim tablonun adı dailyexcahanges değişmediyse o da, ne alanları var ne başka bir bilgi, yardımcı olabilir misiniz, teşekkürler...
Kullanıcı avatarı
gul_11
Yeni Başlamış
 
Adı Soyadı:gül özdemir
Kayıt: 06 May 2014 11:06
Konum: istanbul
Meslek: müşavir
Yaş: 46
İleti: 10
 
Cinsiyet: Bayan
Bulunduğunuz İl / Semt: istanbul

Cevap: Tarihe göre TCMB sitesinden kur bilgisi almak

İleti#18)  gul_11 » 16 Oca 2015 17:57

Tüm günlük döviz kurları ile kastım - ilgili gündeki tüm döviz türlerinin 4 çeşit kuru;
günü ayrı bir hücreye girip listeyi güncelleme düğmesi ekleyeceğim...
Kullanıcı avatarı
gul_11
Yeni Başlamış
 
Adı Soyadı:gül özdemir
Kayıt: 06 May 2014 11:06
Konum: istanbul
Meslek: müşavir
Yaş: 46
İleti: 10
 
Cinsiyet: Bayan
Bulunduğunuz İl / Semt: istanbul

Cevap: Cevap: Tarihe göre TCMB sitesinden kur bilgisi almak

İleti#19)  Tarkan VURAL » 17 Oca 2015 01:29

gul_11 yazdı:Arkadaşlar merhaba, ben logodan tüm günlük döviz kurlarının 4 türünü de excel e çekmek istiyorum, tek bulabildiğim tablonun adı dailyexcahanges değişmediyse o da, ne alanları var ne başka bir bilgi, yardımcı olabilir misiniz, teşekkürler...


DAILYEXCHANGES tablosunda tutulan kurlar tüm firmalarda ortak kullanılan kurlardır. Firma bazlı kur çalışıyorsanız LG_EXCHANGE_FIRMANO tablolarına bakın. SQL içinde yazılı 4 adet Rates alanı var. Burada kurlar var. Crtype alanında ise kur id numarası tutulur. L_CURRENCYLIST tablosunda ise döviz adları ve id numaralarını bulabilirsiniz. Hangi döviz türü lazımsa adına karşılık gelen id numarasına buradan bakabilirsiniz.

Logo içinden kur güncellemesi yapmazsanız, o tablolar doldurulmazlar. Önce kur güncelleyiniz.

İyi akşamlar.
Resim
www.tarkanvural.com.tr

İnnâ lillâhi ve innâ ileyhi raciûn
Şüphesiz ki; biz Allah’a âidiz ve vakti geldiğinde O’na döndürüleceğiz.

HasbunAllâhu ve nimel vekîl
Bize Allah yeter. O ne güzel vekildir.


ExcelVBA.NET' e katkıda bulunmak ister misiniz ? O halde BAĞIŞ butonunu tıklayın...
Kullanıcı avatarı
Tarkan VURAL
Yönetim Kurulu
 
Adı Soyadı:Tarkan VURAL
Kayıt: 14 Haz 2008 18:27
Konum: @tarkanvural73
Meslek: LUU, Database Expert, Senior Software Specialist, Developer
Yaş: 45
İleti: 26990
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: İstanbul - Beylikdüzü

Cevap: Tarihe göre TCMB sitesinden kur bilgisi almak

İleti#20)  gul_11 » 19 Oca 2015 11:00

Tarkan Bey ilginize teşekkürler, kurlar lbs kur aktarımı vasıtasıyle web ten gelmektedir, zamanlanmış görev tanımladık.
Sizin belirtiğiniz tabloları L_DAILYEXCHANGES ve L_CURRENCYLIST birbirine bağlamam gerekiyor, ortak alanları nelerdir, id olarak birbirine bağlamaya çalıştım ancak sorun yaşadım. L_DAILYEXCHANGES tablosunda sadece crtype alanı çalıştı, rates, id vb alanlar çalışmadı.
Alanların isimlerini de göremediğimden tabloyu sonuçlandıramıyorum. Ne yapmalıyım, sonra tarih aralığı kriteri ekleyeceğim...
Kullanıcı avatarı
gul_11
Yeni Başlamış
 
Adı Soyadı:gül özdemir
Kayıt: 06 May 2014 11:06
Konum: istanbul
Meslek: müşavir
Yaş: 46
İleti: 10
 
Cinsiyet: Bayan
Bulunduğunuz İl / Semt: istanbul

Sonraki

Forum Örnek Kodlar

Online Kullanıcılar

Bu forumu görüntüleyenler: Kayıtlı kullanıcı yok ve 1 misafir

Bumerang - Yazarkafe