Sheets için güncel kur tabloları

[DigitalGym]

Merhabalar,

Sheets üzerinde güncel kurları görebileceğim ve veri girdiğimde karşısına kur karılıklarını çıkartan bir sheets'e ihtiyacım var.
Merkez bankası ve google ayrı iki tablo olsa çok güzel olur.

Konusu var mış fakat tablolar silinmiş o yüzden erişemedim.

Nasıl yapabilirim ya da yardımcı olabilecek biri var mı?

 

[Korhan Ayhan]

Merhaba,

Arşiv konularını inceleyebilirsiniz.

Sorgu için arama sonuçları: döviz

www.excel.web.tr

 

[DigitalGym]

Merhaba,

Arşiv konularını inceleyebilirsiniz.

Sorgu için arama sonuçları: döviz

www.excel.web.tr

Teşekkür ederim hocam fakat Altın üye değilim bir de bir arkadaş sheets paylaşmış fakat eski olduğu için silinmiş bana sheets üzerinde lazım

 

[excelokyanus500]

Deneyin..

Sub Doviz_TCMB()

    Sheets.Add After:=ActiveSheet
    Application.CutCopyMode = False
    With ActiveSheet.QueryTables.Add(Connection:= _
        "URL;https://www.tcmb.gov.tr/kurlar/today.xml", Destination:=Range("$A$1"))
        '.CommandType = 0
        .Name = "today"
        .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 = "1"
        .WebPreFormattedTextToColumns = True
        .WebConsecutiveDelimitersAsOne = True
        .WebSingleBlockTextImport = False
        .WebDisableDateRecognition = False
        .WebDisableRedirections = False
        .Refresh BackgroundQuery:=False
    End With
    Range("A1:G24").Select

    With Selection
        .HorizontalAlignment = xlCenter
        .VerticalAlignment = xlBottom
        
    End With
    Range("A1:G24").Borders(xlInsideHorizontal).LineStyle = XlLineStyle.xlContinuous
    Range("A1").Select
End Sub

 

[Levent Menteşoğlu]

Aşağıdaki linkte hazırlamış olduğum bir TCMB sitesinden kurları çeken dosyamı paylaşıyorum.

TCMB KURLAR

 

[DigitalGym]

Aşağıdaki linkte hazırlamış olduğum bir TCMB sitesinden kurları çeken dosyamı paylaşıyorum.

TCMB KURLAR

Harikasınız teşekkür ederim. Sheets üzerine taşımayı deneyeceğim

 

[DigitalGym]

Deneyin..

Sub Doviz_TCMB()

    Sheets.Add After:=ActiveSheet
    Application.CutCopyMode = False
    With ActiveSheet.QueryTables.Add(Connection:= _
        "URL;https://www.tcmb.gov.tr/kurlar/today.xml", Destination:=Range("$A$1"))
        '.CommandType = 0
        .Name = "today"
        .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 = "1"
        .WebPreFormattedTextToColumns = True
        .WebConsecutiveDelimitersAsOne = True
        .WebSingleBlockTextImport = False
        .WebDisableDateRecognition = False
        .WebDisableRedirections = False
        .Refresh BackgroundQuery:=False
    End With
    Range("A1:G24").Select

    With Selection
        .HorizontalAlignment = xlCenter
        .VerticalAlignment = xlBottom
       
    End With
    Range("A1:G24").Borders(xlInsideHorizontal).LineStyle = XlLineStyle.xlContinuous
    Range("A1").Select
End Sub

Eyvallah hocam bunu sheets'de yapabilir miyim?

 

[Haluk]

=IMPORTXML("https://www.tcmb.gov.tr/kurlar/today.xml","//Currency")

Google Sheets ayarlarınız Türkçe ise virgül yerine noktalı virgül kullanın....


.

 

[DigitalGym]

=IMPORTXML("https://www.tcmb.gov.tr/kurlar/today.xml","//Currency")

Google Sheets ayarlarınız Türkçe ise virgül yerine noktalı virgül kullanın....


.

Harika oldu çok teşkkür ederim