excel 2019 için tarihe göre döviz kuru çekmek

[vardaroglu]

Merhaba

istenilen tarihe göre USD, GBP, EUR kurları çekmem gerekiyor ama formül ile çekemiyorum.
@ https://www.excel.web.tr/threads/tarihe-goere-tcmb-doeviz-kuru-aldirma.174146/
'deki KTF'yi deniyorum ama olmuyor. Lütfen güncel bir örnek paylaşabilir misiniz?

 

[Korhan Ayhan]

Paylaştığınız linkte farklı Ktf'ler var. Benim önerimin çalışıyor olması gerekir.

Ek olarak linki inceleyebilirsiniz. (Altın üyelik gerekebilir.)

https://www.excel.web.tr/threads/fonksiyonlarla-tcmb-merkez-bankasi-doeviz-kurlarini-sorgulama-microsoft-ofis-365.195327/

 

[vardaroglu]

Paylaştığınız linkte farklı Ktf'ler var. Benim önerimin çalışıyor olması gerekir.

Ek olarak linki inceleyebilirsiniz. (Altın üyelik gerekebilir.)

https://www.excel.web.tr/threads/fonksiyonlarla-tcmb-merkez-bankasi-doeviz-kurlarini-sorgulama-microsoft-ofis-365.195327/

Merhaba, hızlı dönüşünüz için teşekkür ederim. Fakat benim altın üyeliğim yok malesef.
ilk mesajımda gösterdiğim linkteki bütün KTF'leri denedim ama sonuç vermiyor.
ekteki excelde uygulamak istiyorum ama olmuyor
https://d.docs.live.net/7b5526e1e6d47fc4/ALIS SATIS_örnek Mersin - Kopya.xlsx

 

[Korhan Ayhan]

Paylaştığınız dosyaya erişemedim. Harici bir paylaşım sitesine yüklerseniz inceleyebilirim.

 

[vardaroglu]

Paylaştığınız dosyaya erişemedim. Harici bir paylaşım sitesine yüklerseniz inceleyebilirim.

ALIS SATIS_örnek Mersin - Kopya

files.fm

bu linkten excel olarak indirebilirsiniz.
Örnek dosyada doviz.com sitesinden anlık kur çekebilecek şekilde bir ayar yapmıştım. (tcmb'nin sayfasından almayı denedim ama http ya da https ile bile, kurları alamadım. Excel 2019 kullandığım için midir bilmiyorum.)
Otomatik güncelleme seçeneğini kapattım çünkü önceden girdiğim verilerin değişmesine sebep oluyordu.
Benim asıl amacım, satırın başındaki tarihi girdiğim zaman diğer satırlardan bağımsız olarak döviz kurlarını çekmesi. Şu anki haliyle günlük çekmesi benim işime yaramıyor malesef.
yardımcı olabilirseniz çok sevinirim. Bu kusur yüzünden raporları hazırlamam çok vaktimi alıyor.

 

[Korhan Ayhan]

Bu yapıda makro kullanmanız gerekir.

Dosyanızda gerekli düzenlemeyi yaptım. A sütununa tarih girdiğinizde DV sütununa ABD DOLARI döviz alış kurunu yazacaktır. Fonksiyon parametlerini linkten görebilirsiniz. Kod bölümünü kendinize göre düzenleyebilirsiniz. Yeni isimli sayfanızın kod bölümünden bu işlemi düzenleyebilirsiniz.

Tarihe Göre TCMB Döviz Kuru Aldırma

Merhaba Arkadaşlar, Sahibi olduğum şirkette teklif formatı kullanıyoruz. Teklif formatında USD,EURO ve TL olarak alış fiyatlarını girdiğim bir bölüm var buraya girdiğim rakamları Teklifi verdiğim döviz cinsine göre otomatik çevirip teklifi öyle hazırlıyor. Ancak bunu yaparken USD ve EURO...

www.excel.web.tr

Harici Link (Silinebilir) ; https://dosyam.org/1PvD/ALIS_SATIS_örnek_Mersin.xlsm

 

[vardaroglu]

Bu yapıda makro kullanmanız gerekir.

Dosyanızda gerekli düzenlemeyi yaptım. A sütununa tarih girdiğinizde DV sütununa ABD DOLARI döviz alış kurunu yazacaktır. Fonksiyon parametlerini linkten görebilirsiniz. Kod bölümünü kendinize göre düzenleyebilirsiniz. Yeni isimli sayfanızın kod bölümünden bu işlemi düzenleyebilirsiniz.

Tarihe Göre TCMB Döviz Kuru Aldırma

Merhaba Arkadaşlar, Sahibi olduğum şirkette teklif formatı kullanıyoruz. Teklif formatında USD,EURO ve TL olarak alış fiyatlarını girdiğim bir bölüm var buraya girdiğim rakamları Teklifi verdiğim döviz cinsine göre otomatik çevirip teklifi öyle hazırlıyor. Ancak bunu yaparken USD ve EURO...

www.excel.web.tr

Harici Link (Silinebilir) ; https://dosyam.org/1PvD/ALIS_SATIS_örnek_Mersin.xlsm

A4'de tarih yazdığımda cıkmıyor. ama yazdığım tarihi kopyala/yapıştır yapınca ABD DOLARI DV 'de görebiliyorum.
Çok ama çok teşekkür ediyorum.

2 satır daha ekledim. Bu şekilde EUR ve GBP için rakamları alabiliyorum. Eklemeleri doğru yapmış mıyım?

For Each Veri In Intersect(Selection, Range("A4:A" & Rows.Count)).Cells
Cells(Veri.Row, "DV").ClearContents
Cells(Veri.Row, "DW").ClearContents
Cells(Veri.Row, "DX").ClearContents
If IsDate(Veri) Then
Cells(Veri.Row, "DV") = TCMB_KURU("ABD DOLARI", Veri, "DS")
Cells(Veri.Row, "DW") = TCMB_KURU("EURO", Veri, "DS")
Cells(Veri.Row, "DX") = TCMB_KURU("İNGİLİZ STERLİNİ", Veri, "DS")

 

[Korhan Ayhan]

Aşağıdaki gibi kullanabilirsiniz.

Option Explicit

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim Veri As Range
    
    On Error GoTo 10
    
    Application.EnableEvents = False
    
    For Each Veri In Intersect(Target.Cells, Range("A4:A" & Rows.Count)).Cells
        Cells(Veri.Row, "DV").ClearContents
        Cells(Veri.Row, "DW").ClearContents
        Cells(Veri.Row, "DX").ClearContents
        If IsDate(Veri) Then
            Cells(Veri.Row, "DV") = TCMB_KURU("ABD DOLARI", Veri, "DS")
            Cells(Veri.Row, "DW") = TCMB_KURU("EURO", Veri, "DS")
            Cells(Veri.Row, "DX") = TCMB_KURU("İNGİLİZ STERLİNİ", Veri, "DS")
        End If
    Next

10  Application.EnableEvents = True
End Sub

 

[vardaroglu]

Aşağıdaki gibi kullanabilirsiniz.

Option Explicit

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim Veri As Range
   
    On Error GoTo 10
   
    Application.EnableEvents = False
   
    For Each Veri In Intersect(Target.Cells, Range("A4:A" & Rows.Count)).Cells
        Cells(Veri.Row, "DV").ClearContents
        Cells(Veri.Row, "DW").ClearContents
        Cells(Veri.Row, "DX").ClearContents
        If IsDate(Veri) Then
            Cells(Veri.Row, "DV") = TCMB_KURU("ABD DOLARI", Veri, "DS")
            Cells(Veri.Row, "DW") = TCMB_KURU("EURO", Veri, "DS")
            Cells(Veri.Row, "DX") = TCMB_KURU("İNGİLİZ STERLİNİ", Veri, "DS")
        End If
    Next

10  Application.EnableEvents = True
End Sub

Çok teşekkür ederim. Büyük bir yükten kurtardınız.

 

[cakto]

merhaba exceli açtığım tarihdeki kurlarıgetiren bir örnek dosya yollarmısınız

 

[Korhan Ayhan]

Merhaba,

#6 notu nesajda bulunan linkte benim paylaştığım bir kullanıcı tanımlı fonksiyon var. Onu kullanarak dilediğiniz tarihe ait kurları alabilirsiniz.

 

[Haluk]

merhaba exceli açtığım tarihdeki kurlarıgetiren bir örnek dosya yollarmısınız

Makrosuz bir alternatif ekli dosyadadır...

Not: Verileri güncellemek için; tablo üzerinde sağ klik, "XML" >> "Refresh XML Data"

.

 

[cakto]

Öncelikle tşk edrim Verileri güncellediğimde yazdığım tarihi değilde son tarihi getiriyor

 

[cakto]

Merhaba,

#6 notu nesajda bulunan linkte benim paylaştığım bir kullanıcı tanımlı fonksiyon var. Onu kullanarak dilediğiniz tarihe ait kurları alabilirsiniz.

Teşekkür ederim işimi gördü