Makro ekleyerek bu işlemi yapabilirsiniz
- Excel'de ALT+F11 tuşuna basın
- Açılan Visual Basic penceresinde insert > module seçeneklerine tıklayın
- Gelen ekrana aşağıdaki kodu yazın
Sub KurCekK2()
Dim IE As Object
Dim HTMLdoc As Object
Dim TableElement As Object
Dim TableRow As Object
Dim LastRow As Long
Set IE = CreateObject("InternetExplorer.Application")
IE.Visible = False
IE.navigate "https://www.turkiye.gov.tr/doviz-kurlari"
Do While IE.Busy Or IE.readyState <> 4
DoEvents
Loop
Set HTMLdoc = IE.document
Set TableElement = HTMLdoc.getElementsByClassName("resultTable striped")(0)
Set TableRow = TableElement.getElementsByTagName("tr")(1)
DovizKuruValue = TableRow.getElementsByTagName("td")(1).innerText
LastRow = ThisWorkbook.Sheets(1).Cells(ThisWorkbook.Sheets(1).Rows.Count, "A").End(xlUp).Row + 1
ThisWorkbook.Sheets(1).Range("A" & LastRow).Value = DovizKuruValue
ThisWorkbook.Sheets(1).Range("B" & LastRow).Value = Date
IE.Quit
Set IE = Nothing
End Sub
Daha sonra Üst menüden Geliştirici > Ekle > Düğme kısımı seçin ve ekranın her hangi bir yerine Butonu ekleyin
Direkt olarak Makro Ata kısmı Çıkacaktır. "KurCekK2" makrosunu seçip Tamam butonuna tıklayın.
Butona her tıkladığınızda Dolar kurunu ve günün tarihini yazacaktır