muhittinemmi
New Member
- Joined
- Jun 20, 2023
- Messages
- 19
VBA Code:
Sub Dovizal()
Dim qt As QueryTable, url As String, key As String, gid As String
If ActiveSheet.QueryTables.Count > 0 Then ActiveSheet.QueryTables(1).Delete
ActiveSheet.Cells.Clear
url = "https://canlidoviz.com/doviz-kurlari/enpara"
Set qt = ActiveSheet.QueryTables.Add(Connection:="URL;" & url, _
Destination:=Range("a2"))
With qt
.WebSelectionType = xlAllTables
.WebFormatting = xlWebFormattingNone
.Refresh
MsgBox "Veriler Güncellendi"
End With
End Sub
The data in the first url is saved from a2.
How can I add the 2nd url to be saved from a15 onwards