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

vardaroglu · 22 Kasım 2021

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 · 22 Kasım 2021

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 · 22 Kasım 2021

Korhan Ayhan' Alıntı:
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 · 23 Kasım 2021

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

vardaroglu · 23 Kasım 2021

Korhan Ayhan' Alıntı:
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 · 23 Kasım 2021

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 · 24 Kasım 2021

Korhan Ayhan' Alıntı:
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 · 27 Kasım 2021

Aşağıdaki gibi kullanabilirsiniz.

C++:

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 · 28 Kasım 2021

Korhan Ayhan' Alıntı:

Aşağıdaki gibi kullanabilirsiniz.

C++:

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 · 6 Aralık 2021

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

Korhan Ayhan · 6 Aralık 2021

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 · 6 Aralık 2021

cakto' Alıntı:
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 · 22 Aralık 2021

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

cakto · 22 Aralık 2021

Korhan Ayhan' Alıntı:
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ü

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

vardaroglu

Korhan Ayhan

Administrator

vardaroglu

Korhan Ayhan

Administrator

vardaroglu

ALIS SATIS_örnek Mersin - Kopya

Korhan Ayhan

Administrator

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

Ekli dosyalar

vardaroglu

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

Korhan Ayhan

Administrator

vardaroglu

cakto

Korhan Ayhan

Administrator

Haluk

Özel Üye

Ekli dosyalar

cakto

cakto