vba sorunu

Sub umico() Dim i, sonsat As Integer Dim url As String Dim XML As New MSXML2.XMLHTTP60 Dim HTMLdoc As New MSHTML.HTMLDocument sonsat = Sheets("Veri").Range("A10000").End(xtUp).Row For i = 3 To sonsat On Error Resume Next url = Sheets("Veri").Range("A" & i) XMLreq.Open "GET", url...