Türk Lirasını Otomatik Olarak Dolara Çevirme

Bu dosya, Sayfa1 üzerindeki B3:B10 aralığına yazılan Türk Lirası tutarını, Türkiye Cumhuriyet Merkez Bankası günlük kur verisine göre otomatik olarak döviz karşılığına çevirir. Çeviri için ayrı bir düğme veya komut çalıştırmak gerekmez; tutar girildiği anda sonuç yan hücrelere yazılır.

Dosya makro içerir, açarken makroları etkinleştirmeniz gerekir.

Dosyanın içeriği​

• Sayfa1: B2:D6 aralığını kullanan tek sayfadır. TL tutarları B sütununa girilir, çevrilen değerler C ve D sütunlarında görüntülenir.
• Sayfada hücre formülü bulunmaz; hesaplama tamamen sayfaya bağlı makro ile yapılır.

Makrolar​

Dosyada Sayfa1 koduna bağlı tek bir olay makrosu vardır: Worksheet_Change. Elle çalıştırılmaz; B3:B10 aralığındaki bir hücre değiştiğinde kendiliğinden devreye girer.

• Değişiklik B3:B10 dışında yapılmışsa makro hiçbir işlem yapmadan çıkar.
• Girilen hücre boş değilse, tutar TCMB günlük kur dosyasındaki (today.xml) ForexSelling (döviz satış) değerlerine bölünür.
• Sonuçlar girilen hücrenin hemen sağındaki iki hücreye yazılır: C sütununa listedeki birinci, D sütununa dördüncü para biriminin karşılığı gelir.
• Kur verisi WebService ve FilterXML fonksiyonlarıyla okunur. Makro, Merkez Bankası'nın kur adresine (devlet sitesi) internet üzerinden bağlanır; başka bir dış bağlantı veya dosya silme gibi bir işlem yapmaz.
• Makroda On Error Resume Next kullanıldığından bağlantı kurulamazsa hata mesajı verilmez, sonuç hücreleri güncellenmez.

Nasıl kullanılır​

1. Dosyayı açın ve makroları etkinleştirin.
2. Bilgisayarın internete bağlı olduğundan emin olun.
3. Sayfa1'de B3:B10 aralığındaki bir hücreye TL tutarını yazıp Enter tuşuna basın.
4. Aynı satırda sağdaki C ve D hücrelerinde döviz karşılıkları otomatik oluşur.
5. Başka bir tutar için B3:B10 aralığındaki diğer hücreleri kullanın.

Not: WebService ve FilterXML fonksiyonları Windows için Excel 2013 ve üzeri sürümlerde çalışır. Kaynak kod açık olduğundan Alt+F11 ile VBA düzenleyicisinden incelenebilir ve para birimi sırası değiştirilebilir.