TCMB Sitesinden Günlük Döviz Kur'u ve Çapraz Kur'u Almak

Excel VBA kodlamaları ile yapılmış örnek dosyaları burdan izleyebilir ve paylaşabilirsiniz.

Cevap: TCMB Sitesinden Günlük Döviz Kur'u ve Çapraz Kur'u Al

İleti#21)  Murat OSMA » 02 Ekm 2014 13:05

Uygaroz yazdı:Murat Bey
Makro kullanmadan, "Dış Veri Al" ile kurları çektiğimiz zaman kurlar;
2,2865 yerine 22.865 şeklinde gelmektedir.
Bunun bir çözümü var mı acaba?
Selamlar
Uygar


Bildiğim kadarıyla yok Uygar Bey.
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ş: 36
İleti: 14412
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Bağcılar - İSTANBUL

Cevap: TCMB Sitesinden Günlük Döviz Kur'u ve Çapraz Kur'u Al

İleti#22)  Uygaroz » 02 Ekm 2014 13:11

Murat Bey
Cevap için teşekkür ederim.
Şimdiden hayırlı Bayramlar dilerim.
Uygar
Kullanıcı avatarı
Uygaroz
Siteye Alışmış
 
Adı Soyadı:Uygar ÖZ
Kayıt: 18 Şub 2013 17:12
Konum: Denizli
Meslek: Dış Ticaret
Yaş: 48
İleti: 263
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Denizli

Cevap: TCMB Sitesinden Günlük Döviz Kur'u ve Çapraz Kur'u Al

İleti#23)  nihaka » 07 Ekm 2014 21:04

Elinize sağlık. Teşekkürler
Kullanıcı avatarı
nihaka
Yeni Başlamış
 
Adı Soyadı:atakan akarsu
Kayıt: 01 Arl 2013 21:00
Konum: İstanbul/Kadıköy
Meslek: Memur
Yaş: 38
İleti: 22
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: İstanbul/Kadıköy

Cevap: TCMB Sitesinden Günlük Döviz Kur'u ve Çapraz Kur'u Al

İleti#24)  asballi » 01 Kas 2014 16:53

Merhaba Murat Bey,

Benim bir ricam olacak. Peki Biz bir hücreye tarih yazarak o tarihteki dolar ve euro kurlarının alış ve satış kurlarını aynı sayfadaki başka hücreye alabilirmiyiz.

Bende Merkez bankasının Önceki sayfasından aşağıdaki şekildeki kodla alabiliyordum. Ama Sayfa değişince artık çalışmıyor .
Yeni sayfası şu şekilde değişti. : http://www.tcmb.gov.tr/wps/wcm/connect/ ... i+Kurlarii

Bu sayfadan alabilmek için kodu nasıl değiştirmeliyiz.
Yardımcı olabilirmisiniz.

Teşekkürler şimdiden.


Kod: Tümünü seç
Sub SORGULA()
     
    Dim SDK As Worksheet, SK As Worksheet, SAYFA_ADI As String, URL As String
    Dim X As Long, Y As Long, Kontrol As Byte
    Dim SATIR As Long, SÜTUN As Integer, SAY As Byte
    Dim DÖVİZ_TİPİ As String, DÖVİZ_BUL As Range, DÖVİZ_SATIR As Long, DÖVİZ_SÜTUN As Byte
   
    Application.ScreenUpdating = False
   
    Set SDK = Sheets("Y.İÇİ 320")
    SDK.Select
   
    Range("e2:f2,e3:f3").ClearContents

   
    If InStr(1, Range("D1"), ",") > 0 Or WorksheetFunction.IsText(Range("D1")) Then
        MsgBox Range("D1") & "   Hatalı tarih girişi !" _
        & Chr(10) & Chr(10) & "Lütfen girdiğiniz tarih bilgilerini kontrol ediniz !", vbCritical, "Dikkat !"
        Range("D1").ClearContents
        Range("D1").Select
        Exit Sub
    End If
   
    If Range("D1") > Date Then
        MsgBox "Bugünden sonraki bir günü sorgulayamazsınız !" _
        & Chr(10) & Chr(10) & "Lütfen girdiğiniz tarih bilgilerini kontrol ediniz !", vbCritical, "Dikkat !"
        Range("D1").ClearContents
        Range("D1").Select
        Exit Sub
    End If
   
    On Error Resume Next
    Application.DisplayAlerts = False
        Sheets("KURLAR").Delete
    Application.DisplayAlerts = True
    On Error GoTo 0
   
    If (CheckInternetConnection = False) Then
        MsgBox "İnternet bağlantısı şu anda kurulamıyor." _
        & Chr(10) & "Lütfen daha sonra tekrar deneyiniz.", vbCritical, "Dikkat !"
    Else
   
        Sheets.Add
        SAYFA_ADI = "KURLAR"
        ActiveSheet.Name = SAYFA_ADI
        Set SK = Sheets(SAYFA_ADI)
       
        With Application
            .DecimalSeparator = "."
            .ThousandsSeparator = ","
            .UseSystemSeparators = False
        End With
       
        SDK.Select
       
        For X = Range("D1") To Range("D1") - 7 Step -1
            If SDK.Range("e2") <> "" And SDK.Range("f2") <> "" And _
            SDK.Range("e3") <> "" And SDK.Range("f3") <> "" Then Exit For
           
            Kontrol = Weekday(X, vbMonday)
            If Kontrol > 5 Then
                Y = X - (Kontrol - 5)
            Else
                Y = X
            End If
       
            On Error Resume Next
           
            URL = "URL;http://www.tcmb.gov.tr/wps/wcm/connect/TCMB+TR/TCMB+TR/Main+Menu/Istatistikler/Doviz+Kurlari/Gosterge+Niteligindeki+Merkez+Bankasi+Kurlarii/" & Year(Y) & Format(Month(Y), "00") & "/" & Format(Day(Y), "00") & Format(Month(Y), "00") & Year(Y) & ".html"
           
            With SK.QueryTables.Add(Connection:=URL, Destination:=SK.Range("A1"))
                .Name = Y
                .FieldNames = True
                .RowNumbers = False
                .FillAdjacentFormulas = False
                .PreserveFormatting = True
                .RefreshOnFileOpen = False
                .BackgroundQuery = True
                .RefreshStyle = xlOverwriteCells
                .SavePassword = False
                .SaveData = True
                .AdjustColumnWidth = True
                .RefreshPeriod = 0
                .WebSelectionType = xlAllTables
                .WebFormatting = xlWebFormattingNone
                .WebPreFormattedTextToColumns = True
                .WebConsecutiveDelimitersAsOne = True
                .WebSingleBlockTextImport = False
                .WebDisableDateRecognition = False
                .WebDisableRedirections = False
                .Refresh BackgroundQuery:=False
            End With
           
            If SK.Range("A1") <> "" Then
           
            DÖVİZ_TİPİ = "USD"
           
            Set DÖVİZ_BUL = SK.[A:A].Find(What:=DÖVİZ_TİPİ, LookAt:=xlPart)
            If Not DÖVİZ_BUL Is Nothing Then
            DÖVİZ_SATIR = DÖVİZ_BUL.Row
           
            For SÜTUN = 2 To 256
                SAY = WorksheetFunction.CountIf(SK.Range(SK.Cells(1, SÜTUN), SK.Cells(65536, SÜTUN)), "DÖVİZ") + WorksheetFunction.CountIf(SK.Range(SK.Cells(1, SÜTUN), SK.Cells(65536, SÜTUN)), "ALIŞ")
                If IsNumeric(Right(SK.Cells(DÖVİZ_SATIR, SÜTUN), 1)) = True And SAY > 0 Then
                    DÖVİZ_SÜTUN = SÜTUN
                    Exit For
                End If
            Next
           
            End If
           
            SDK.Range("e2") = SK.Cells(DÖVİZ_SATIR, DÖVİZ_SÜTUN)
            SDK.Range("f2") = SK.Cells(DÖVİZ_SATIR, DÖVİZ_SÜTUN + 1)
           
           
            DÖVİZ_TİPİ = "EUR"
           
            Set DÖVİZ_BUL = SK.[A:A].Find(What:=DÖVİZ_TİPİ, LookAt:=xlPart)
            If Not DÖVİZ_BUL Is Nothing Then
            DÖVİZ_SATIR = DÖVİZ_BUL.Row
           
            For SÜTUN = 2 To 256
                SAY = WorksheetFunction.CountIf(SK.Range(SK.Cells(1, SÜTUN), SK.Cells(65536, SÜTUN)), "DÖVİZ") + WorksheetFunction.CountIf(SK.Range(SK.Cells(1, SÜTUN), SK.Cells(65536, SÜTUN)), "ALIŞ")
                If IsNumeric(Right(SK.Cells(DÖVİZ_SATIR, SÜTUN), 1)) = True And SAY > 0 Then
                    DÖVİZ_SÜTUN = SÜTUN
                    Exit For
                End If
            Next
           
            End If
           
            SDK.Range("e3") = SK.Cells(DÖVİZ_SATIR, DÖVİZ_SÜTUN)
            SDK.Range("f3") = SK.Cells(DÖVİZ_SATIR, DÖVİZ_SÜTUN + 1)
           
            End If
       
        Next

        Application.DisplayAlerts = False
        SK.Delete
        Application.DisplayAlerts = True
       
        With Application
            .DecimalSeparator = ","
            .ThousandsSeparator = "."
            .UseSystemSeparators = False
        End With
       
        Range("D1").Select
        Application.ScreenUpdating = True
       
        MsgBox "Döviz sorgulama işlemi başarıyla tamamlanmıştır.", vbInformation
    End If
End Sub
Kullanıcı avatarı
asballi
Yeni Başlamış
 
Kayıt: 01 Kas 2014 16:41
Meslek: Muhasebe
Yaş: 46
İleti: 24
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Ankara

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

Cevap: TCMB Sitesinden Günlük Döviz Kur'u ve Çapraz Kur'u Al

İleti#25)  Tarkan VURAL » 02 Kas 2014 11:51

asballi yazdı:Peki Biz bir hücreye tarih yazarak o tarihteki dolar ve euro kurlarının alış ve satış kurlarını aynı sayfadaki başka hücreye alabilirmiyiz.

Yanıtı şuradaki iletide vermiştim.
viewtopic.php?f=38&t=19305#p145144
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 ?
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ş: 47
İleti: 27420
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: İstanbul - Beylikdüzü

Cevap: TCMB Sitesinden Günlük Döviz Kur'u ve Çapraz Kur'u Al

İleti#26)  Ersin YALIN » 03 Kas 2014 09:12

Dostlar ellerinize sağlık. [TESEKKÜR]
Ersin YALIN
Forum Moderatörü
 
Adı Soyadı:Ersin Yalın
Kayıt: 10 May 2010 10:52
Yaş: 42
İleti: 1594
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: İstanbul

REKLAM
ETA - Excel Konsolide Raporlama
ETA Excel Personel Entegre Raporu

Cevap: TCMB Sitesinden Günlük Döviz Kur'u ve Çapraz Kur'u Al

İleti#27)  pesimist_cnr » 10 Kas 2014 13:27

Arkadaşlar ellerinize sağlık çok güzel olmuş gerçekten. Yalnız bu webdöviz formülüyle kur çektiğimizde, tatil günlerini #DEĞER hatası veriyor. Bu günler için bir önceki günün kurunu alacak şekilde revize edebilme şansımız var mı makroyu?
Kullanıcı avatarı
pesimist_cnr
 
Adı Soyadı:CANER KAYAŞ
Kayıt: 02 Kas 2010 16:31
Konum: Rusya
Meslek: Muhasebe
Yaş: 32
İleti: 8
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Rusya/Saint Petersburg

Cevap: Cevap: TCMB Sitesinden Günlük Döviz Kur'u ve Çapraz K

İleti#28)  tunciloves » 17 Arl 2014 17:06

pesimist_cnr yazdı:Arkadaşlar ellerinize sağlık çok güzel olmuş gerçekten. Yalnız bu webdöviz formülüyle kur çektiğimizde, tatil günlerini #DEĞER hatası veriyor. Bu günler için bir önceki günün kurunu alacak şekilde revize edebilme şansımız var mı makroyu?


Ben şu şekilde revize ettim ve kullanıyorum. Umarım sizin de işinize yarar.

Kod: Tümünü seç
DefVar E
Function Webdoviz(ByVal Tarih As Date, ByVal Dovtip As String, ByVal Tipi As Long) As Variant
Dim haftaningunu As String, gun As String, ay As String, yil As String, path As String, kur As Double
Dim icerik As String, xmlhttp As Object, evn As Variant
Set xmlhttp = CreateObject("MSXML2.XMLHTTP")
Application.Volatile
Dovtip = UCase(Dovtip)

'Haftanın gününü buluyoruz
haftaningunu = Weekday(Tarih, vbMonday)

'Seçilen tarih gelecekte bir gün ise onu bugün olarak ayarlıyoruz
If Tarih > Date Then Tarih = Date

gun = Day(Tarih): ay = Month(Tarih): yil = Year(Tarih)

'Tarihteki haftanın günü Cumartesi ise 1 gün öncesini alıyoruz
If haftaningunu = 6 Then gun = gun - 1

'Tarihteki haftanın günü Pazar ise 2 gün öncesini alıyoruz
If haftaningunu = 7 Then gun = gun - 2

If Len(gun) = 1 Then gun = "0" & gun
If Len(ay) = 1 Then ay = "0" & ay
path = "http://www.tcmb.gov.tr/kurlar/" & yil & ay & "/" & gun & ay & yil & ".xml"
xmlhttp.Open "GET", path, False
xmlhttp.send "at"
If xmlhttp.Status = 200 Then
    icerik = xmlhttp.responseText
    temizlik = Split(icerik, "<Currency CrossOrder=")
    For y = 0 To UBound(temizlik)
        If temizlik(y) Like "*=""" & Dovtip & "*" Then
            sonuclar = Split(temizlik(y), "</CurrencyName>")
            evn1 = Split(sonuclar(1), "<ForexBuying>")
            evn2 = Split(sonuclar(1), "<ForexSelling>")
            evn3 = Split(sonuclar(1), "<BanknoteBuying>")
            evn4 = Split(sonuclar(1), "<BanknoteSelling>")
            Select Case Tipi
                Case 1: evn = Split(evn1(1), "</")
                Case 2: evn = Split(evn2(1), "</")
                Case 3: evn = Split(evn3(1), "</")
                Case 4: evn = Split(evn4(1), "</")
            End Select
            Exit For
        End If
    Next y
End If
'Kuruş hanesini benim gibi virgül kullananlar için
Webdoviz = Replace(evn(0), ".", ",")

'Kuruş hanesini nokta kullananlar için
'Webdoviz = evn(0)
End Function
Kullanıcı avatarı
tunciloves
 
Adı Soyadı:kemal kara
Kayıt: 14 Haz 2011 15:24
Konum: istanbul
Meslek: mühendis
Yaş: 41
İleti: 1
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: ankara

Cevap: TCMB Sitesinden Günlük Döviz Kur'u ve Çapraz Kur'u Al

İleti#29)  hyberion » 09 Oca 2015 11:07

Merhabalar,

Bu kod çok iyi emeğinize sağlık hocam, günlük işlerimde çok kullanıyorum 2015 yılı için kullanılmıyor değil mi nasıl güncelleyebilirim?
Kullanıcı avatarı
hyberion
 
Kayıt: 09 Oca 2015 09:44
Meslek: Finans
Yaş: 33
İleti: 1
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: İstanbul

Cevap: TCMB Sitesinden Günlük Döviz Kur'u ve Çapraz Kur'u Al

İleti#30)  Tarkan VURAL » 12 Şub 2015 21:08

Kodlardaki Day, Month, Year günün tarihini alıyor, siteye gönderip XML yanıtını ayıklıyor. Site yapısında ve içeriğinde de değişlik göremiyorum. Dolayısıyla 2015 için (hatta TCMB sitesindeki format değişmezse, 2016,2017,2018.... için ) çalışması gerekiyor. Denediniz de çalışmıyor mu ? Sorun nedir ?
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 ?
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ş: 47
İleti: 27420
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: İstanbul - Beylikdüzü

Cevap: TCMB Sitesinden Günlük Döviz Kur'u ve Çapraz Kur'u Al

İleti#31)  foxybull » 12 Mar 2015 11:31

Merhaba Tarkan bey,

Fonksiyon için çok teşekkürler.

Çapraz kurları da aynı yöntemle almamız için ne yaapabiliriz ?
Kullanıcı avatarı
foxybull
 
Adı Soyadı:ERTAN YLMGR
Kayıt: 10 Oca 2014 14:01
Konum: ISTANBUL
Meslek: İş Zekası Geliştirme Uzmanı
Yaş: 39
İleti: 5
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: ISTANBUL

Cevap: TCMB Sitesinden Günlük Döviz Kur'u ve Çapraz Kur'u Al

İleti#32)  Tarkan VURAL » 12 Mar 2015 18:32

Çapraz kurların XML etiketleri farklı. Onlar için de ayrıca çalışma yapmak gerekiyor.
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 ?
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ş: 47
İleti: 27420
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: İstanbul - Beylikdüzü

Cevap: TCMB Sitesinden Günlük Döviz Kur'u ve Çapraz Kur'u Al

İleti#33)  eserk » 29 May 2015 16:43

merhaba belli bir tarih girerek usd eur ruble döviz alış ve satışı alabileceğim bir excel uygulaması var mı biraz acemiyim kodlardan anamıyorum örnek varsa çok memnun olurum
Kullanıcı avatarı
eserk
 
Kayıt: 29 May 2015 12:46
Meslek: MUHASEBE
Yaş: 50
İleti: 3
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: antalya

Cevap: TCMB Sitesinden Günlük Döviz Kur'u ve Çapraz Kur'u Al

İleti#34)  arachnanthe » 11 Haz 2015 11:42

Merhaba Murat Bey
Modül içinde yazılan kodu buton kullanmadan sadece veri sayfasında kullanmak istiyorum.
Yenileme işlemini de dosya ilk açılırken ve saat 15:45:00 de yaptırmak istiyorum.

Kod: Tümünü seç
Private Sub Workbook_Open()
Run "doviz"
Application.OnTime TimeValue("15:45:00"), "doviz"
End Sub


Bu şekilde yaptığımda ekranda aktif olan sayfaya veriler geliyor. Sadece veri sayfasına gelmesini sağlamak için ne yapmalıyım.
Kullanıcı avatarı
arachnanthe
Siteye Alışmış
 
Adı Soyadı:Ömer Koçali
Kayıt: 26 Haz 2009 09:49
Konum: Kocaeli / Gebze
Meslek: Elektrik Teknikeri branş otomasyon
Yaş: 38
İleti: 197
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Kocaeli / Gebze

Cevap: TCMB Sitesinden Günlük Döviz Kur'u ve Çapraz Kur'u Al

İleti#35)  Tarkan VURAL » 11 Haz 2015 13:19

Verileri nereye yazmanız gerekiyorsa, kodlarda o sayfanın Codename kısmını kullanıp sorununuzu çözebilirsiniz.
Örneğin;
Range("a1").value = "Döviz Değeri" yerine Sayfa3.Range("a1").value="Döviz Değeri" mantığını uygulayın.
Ya da;
Range("a1").value = "Döviz Değeri" yerine Sheets("Verilerim").Range("a1").value="Döviz Değeri"
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 ?
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ş: 47
İleti: 27420
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: İstanbul - Beylikdüzü

Cevap: TCMB Sitesinden Günlük Döviz Kur'u ve Çapraz Kur'u Al

İleti#36)  winterwake » 11 Haz 2015 14:01

Merhaba,

Tarkan Bey, "Web'den dosya indirme" konu başlığı ile bir konu açmıştım, ama gözden kaçtı sanırım. Rica etsem müsait bir zamanınızda göz atabilir misiniz? Konuyu görmüş ve inceliyorsanız lütfen dikkate almayın. Bu şekilde başka bir konu üzerinden dikkatinizi çekerek yardım talep ettiğim için bağışlayın. Gözden kaçmış olabilme ihtimaline karşı buraya yazdım.

Saygılar.
Kullanıcı avatarı
winterwake
Yeni Başlamış
 
Adı Soyadı:İbrahim Kamçılı
Kayıt: 19 Tem 2011 14:12
Konum: İstanbul
Meslek: Çevre Mühendisi, Kimyager
Yaş: 38
İleti: 45
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: İstanbul / Küçükçekmece

Cevap: Cevap: TCMB Sitesinden Günlük Döviz Kur'u ve Çapraz K

İleti#37)  arachnanthe » 11 Haz 2015 15:27

Tarkan VURAL yazdı:Verileri nereye yazmanız gerekiyorsa, kodlarda o sayfanın Codename kısmını kullanıp sorununuzu çözebilirsiniz.
Örneğin;
Range("a1").value = "Döviz Değeri" yerine Sayfa3.Range("a1").value="Döviz Değeri" mantığını uygulayın.
Ya da;
Range("a1").value = "Döviz Değeri" yerine Sheets("Verilerim").Range("a1").value="Döviz Değeri"



Tarkan Bey öneriniz için teşekkür ederim.
Sanırım ufak bir düzeltme gerekli alan.Select kısmı hata veriyor.

sanırım bu kısımdan dolayı da aktif sayfaya düzensiz de olsa veri cekiyor
With ActiveSheet.QueryTables.Add

Kod: Tümünü seç
Sub doviz()
    Application.ScreenUpdating = False
    Dim alan As Range
    Cells.Clear
    With ActiveSheet.QueryTables.Add(Connection:= _
        "URL;http://www.tcmb.gov.tr/kurlar/today.xml", Destination:=Range("$A$1"))
        .Name = "today_1"
        .Refresh BackgroundQuery:=False
    End With
    Sayfa2.Range("AB1000").Value = "10000"
    Sayfa2.Range("AB1000").Copy
    Set alan = Sayfa2.Range("D3:G20")
    alan.Select
    For Each evn In alan
        If Left(evn.Value, 2) = 10 Then
            evn.Replace What:=".", Replacement:=",", LookAt:=xlPart, _
            SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
            ReplaceFormat:=False
            evn.Value = CDbl(evn.Value)
        ElseIf Left(evn.Value, 1) > 0 Then
            evn.PasteSpecial Paste:=xlPasteAll, Operation:=xlDivide, SkipBlanks:=False, Transpose:=False
        ElseIf Left(evn.Value, 1) = 0 Then
            evn.PasteSpecial Paste:=xlPasteAll, Operation:=xlMultiply, SkipBlanks:=False, Transpose:=False
            evn.PasteSpecial Paste:=xlPasteAll, Operation:=xlDivide, SkipBlanks:=False, Transpose:=False
        End If
    Next evn
    Sayfa2.Range("D25:D26,D28,D30:D37,D40").PasteSpecial Paste:=xlPasteAll, Operation:=xlDivide, SkipBlanks:=False, Transpose:=False
    Sayfa2.Range("D27,D29,D38,D41").Replace What:=".", Replacement:=","
    Sayfa2.Range("D44").Value = Range("D44").Value / 100000
    Sayfa2.Range("D45").Value = Range("D45").Value / 10000
    Sayfa2.Range("D25:D41").HorizontalAlignment = xlRight
    Application.CutCopyMode = False
    Sayfa2.Columns("D:G").NumberFormat = "#,##0.0000"
    Sayfa2.Range("D44").NumberFormat = "#,##0.00000"
    Sayfa2.Range("D39").NumberFormat = "#,##0"
    Sayfa2.Cells.Font.Size = 8: Columns.AutoFit: Range("A1").Select
    Application.ScreenUpdating = True
   
End Sub
Kullanıcı avatarı
arachnanthe
Siteye Alışmış
 
Adı Soyadı:Ömer Koçali
Kayıt: 26 Haz 2009 09:49
Konum: Kocaeli / Gebze
Meslek: Elektrik Teknikeri branş otomasyon
Yaş: 38
İleti: 197
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Kocaeli / Gebze

Cevap: TCMB Sitesinden Günlük Döviz Kur'u ve Çapraz Kur'u Al

İleti#38)  Tarkan VURAL » 11 Haz 2015 16:46

Alan.select çalışır ama önce sayfa aktif olmalı. Ondan önceye Sayfa2.select yazıp devam edin bakalım...
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 ?
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ş: 47
İleti: 27420
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: İstanbul - Beylikdüzü

Cevap: TCMB Sitesinden Günlük Döviz Kur'u ve Çapraz Kur'u Al

İleti#39)  arachnanthe » 11 Haz 2015 17:02

alttaki uyarıyı verdi

Resim
Kullanıcı avatarı
arachnanthe
Siteye Alışmış
 
Adı Soyadı:Ömer Koçali
Kayıt: 26 Haz 2009 09:49
Konum: Kocaeli / Gebze
Meslek: Elektrik Teknikeri branş otomasyon
Yaş: 38
İleti: 197
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Kocaeli / Gebze

Cevap: Cevap: TCMB Sitesinden Günlük Döviz Kur'u ve Çapraz K

İleti#40)  Tarkan VURAL » 11 Haz 2015 21:25

Tarkan VURAL yazdı:Alan.select çalışır ama önce sayfa aktif olmalı. Ondan önceye Sayfa2.select yazıp devam edin bakalım...
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 ?
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ş: 47
İleti: 27420
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: İstanbul - Beylikdüzü

ÖncekiSonraki

Forum Örnek Dosyalar

Online Kullanıcılar

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

cron
Bumerang - Yazarkafe