Merhaba Sayın @maboc

kodunuzu aşağıdaki gibi güncelleyin.

Dim i As Integer, sonsat As Integer, h As Integer, j As Integer, a As String

Dim url As String

Dim xmlreq As Object

Dim htmldoc As New MSHTML.HTMLDocument



Set xmlreq = CreateObject("MSXML2.XMLHTTP.6.0")

sonsat = Sheets("Fon").Range("A10000").End(xlUp).Row



For i = 6 To sonsat

On Error Resume Next



url = Sheets("Fon").Range("A" & i)

xmlreq.Open "GET", url, False

xmlreq.send



If xmlreq.Status <> 200 Then

    MsgBox "Sayfaya Ulaşılamadı"

    Exit Sub

End If



htmldoc.body.innerHTML = xmlreq.responseText

'FON Başlık

Sheets("Fon").Range("C" & i) = htmldoc.getElementById("MainContent_FormViewMainIndicators_LabelFund").innerText

 'FON FİYAT

Sheets("Fon").Range("D" & i) = htmldoc.getElementsByTagName("span")(3).innerText

 'FON KOD

Sheets("Fon").Range("B" & i) = htmldoc.getElementsByClassName("fund-profile-item")(0).innerText

 'Günlük Getiri

    Dim günlük_getiri As String, temiz_günlük_getiri As String, tveri As Double

    günlük_getiri = htmldoc.getElementsByTagName("span")(4).innerText

    temiz_günlük_getiri = Replace(günlük_getiri, "%", "")

    tveri = CDbl(temiz_günlük_getiri)

    Sheets("Fon").Range("E" & i).Value = tveri / 100

    Sheets("Fon").Range("E" & i).NumberFormat = "0.00000%"

 'Kategori

Sheets("Fon").Range("F" & i) = htmldoc.getElementsByTagName("span")(7).innerText

Next