Soru Makro Kodunda Değişiklik

[okan32]

Hayırlı Sabahlar Arkadaşlar aşağıdaki kod ile Ziraat Katılım Bankasından güncel Altın Alış ve Satış verilerini excele çekiyordum. Fakat bugün kodda siyah fonttaki satırda hata veriyor. Nasıl düzeltilebilir.

Sub test()

Range("H2") = Format(Now, "dd.mm.yyyy hh:mm")
    With CreateObject("InternetExplorer.Application")
        .Visible = False
        .navigate "https://www.ziraatkatilim.com.tr"
basla:
        Do While .Busy Or .readyState <> 4
            DoEvents
        Loop

        On Error Resume Next
        With .document
            Set lst = .getelementbyId("piyasalar-finance-portal-wrapper")
            If lst Is Nothing Then GoTo basla
            On Error GoTo 0
            Set rws = lst.getelementsByClassName("row align-items-center")
            Range("A50:C55") = Empty
            Range("A50:C50").Value = Array(Time, "ALIŞ", "SATIŞ")
            For i = 0 To rws.Length - 1
                Set cinsi = rws(i).getelementsByClassName("finance-portal__currency-title text-center font-weight-bold")
                Set kurlar = rws(i).getelementsByClassName("finance-portal__currency-val")
                Range("A" & i + 51).Value = cinsi(0).innerText
                Range("B" & i + 51).Resize(, 2).NumberFormat = "#.##"
                Range("B" & i + 51).Value = CDbl(Replace(kurlar(0).innerText, "", ""))
                Range("C" & i + 51).Value = CDbl(Replace(kurlar(1).innerText, "", ""))
            Next i
        End With
        .Quit
    End With
Range("G2").Value = Range("J2").Value
    Range("G3").Value = Range("J3").Value
    Range("G4").Value = Range("J4").Value
    Range("G5").Value = Range("J5").Value
    UserForm1.Show 'ana kod bloğuna geçerken bu satır aktif edilmeli
  
End Sub

 

[okan32]

Hallettim Arkadaşlar