DIŞ VERİ AL

[keremcan063]

Dış veri al yöntemiyle www.doviz.com sitesinden aldığım döviz kurlarını silmesin ve ertesi gün bir alt satıra inerek o günün verisini yazsın, istiyorum
örnerğin
TARİH ALIŞ SATIŞ
07.05.2020 7.070 7.080
08.05.2020 7.090 7.096

 

[YUSUF44]

Örnek dosyanızı paylaşırsanız o dosyanıza göre çözüm üretilebilir.

 

[keremcan063]

Dim sonsatir As Integer
sonsatir = 3


Sub HisseleriGuncelle()
VERİLERİGUNCELLE


sonsatir = sonsatir + 1
Sheets("Hisseler").Range("B" & sonsatir).Value = Date
Sheets("Hisseler").Range("C" & sonsatir).Value = Sheets("db").Range("D30").Value
Sheets("Hisseler").Range("D" & sonsatir).Value = Sheets("db").Range("C30").Value
Sheets("Hisseler").Range("E" & sonsatir).Value = Sheets("db").Range("B30").Value
End Sub



Sub VERİLERİGUNCELLE()
'
' VERİLERİGUNCELLE Makro
'

'
Sheets("db").Select
Selection.QueryTable.Refresh BackgroundQuery:=False
Sheets("Hisseler").Select
Range("A2").Select
End Sub