Excelde sadece dolar ve euro satış kurlarını cekmek

[excel47]

Merhaba arkadaşlar aranızda daha yeniyim umarımda benide aranıza kabul ederseniz sorunuma gelicek olursa ben misal

b2 ye euro
b3 de usd

satış kurlarını online olarak her excel tablosu açıldıgında cekilmesini istyiroum acaba bunu nasıl yapabilirz içeri veri aktarda tam istedigim noktayı secemiyorum. şimdidem tüm yardımcı olan arkadaslarıma canı gönülde teşekkürü bir borç bilirm

 

[Korhan Ayhan]

Selamlar,

Forumumuza hoşgeldiniz.

Aşağıdak linkteki konuları inceleyiniz.

http://www.excel.web.tr/forumdisplay.php?f=125

 

[excel47]

İnceledim ama hocam tam işime yarar birşey bulamadım daha doğrusu çözemedim bu işi

 

[Korhan Ayhan]

Selamlar,

Aşağıdaki kodu kullanabilirsiniz.

Option Explicit
 
Sub KUR_GÜNCELLE()
    Range("A1:C4").Clear
 
    With Application
        .DecimalSeparator = "."
        .ThousandsSeparator = ","
        .UseSystemSeparators = False
    End With
 
    With ActiveSheet.QueryTables.Add(Connection:= _
        "URL;http://www.tcmb.gov.tr/yeni/tablolar.php", Destination:=Range("A1"))
        .Name = "tablolar"
        .FieldNames = True
        .RowNumbers = False
        .FillAdjacentFormulas = False
        .PreserveFormatting = True
        .RefreshOnFileOpen = False
        .BackgroundQuery = True
        .RefreshStyle = xlInsertDeleteCells
        .SavePassword = False
        .SaveData = True
        .AdjustColumnWidth = True
        .RefreshPeriod = 0
        .WebSelectionType = xlSpecifiedTables
        .WebFormatting = xlWebFormattingNone
        .WebTables = "4"
        .WebPreFormattedTextToColumns = True
        .WebConsecutiveDelimitersAsOne = True
        .WebSingleBlockTextImport = False
        .WebDisableDateRecognition = False
        .WebDisableRedirections = False
        .Refresh BackgroundQuery:=False
    End With
 
    With Application
        .DecimalSeparator = ","
        .ThousandsSeparator = "."
        .UseSystemSeparators = True
    End With
End Sub