Excel listesinde hayvan küpe no sorgulama

[dedenet]

https://www.turkiye.gov.tr/gtvh-kupe-ile-buyukbas-hayvan-sorgulama

adresine girip
Ekteki listedeki büyükbaş hayvan küpe numaralarını ve güvenlik kodunu girerek

Türü:
Irkı:
Cinsiyeti:
Doğum Tarihi:
Durumu:

bilgilerini listeye aktarmak istiyorum.
Yardımcı olursanız sevinirim

 

[askm]

Aşağıdaki kodları kullanabilirsiniz.

Dim IE As Object
Sub KupeNoSorgu()
    Dim URL As String
    On Error Resume Next
    URL = "https://www.turkiye.gov.tr/gtvh-kupe-ile-buyukbas-hayvan-sorgulama"
    Set IE = CreateObject("InternetExplorer.Application")
    IE.Visible = 1
    
    For i = 2 To Range("A" & Rows.Count).End(3).Row
        If Cells(i, 1) <> Empty Then
            IE.Navigate URL

            Call bekle
            IE.document.getElementByID("kupeNo").Value = Cells(i, 1)
            IE.document.getElementsByClassName("submitButton")(0).Click
            
            Call bekle
            
            Set Sonuc = IE.document.getElementsByClassName("condensed")(0).getElementsByTagName("dd")
            Cells(i, 2) = Sonuc(3).innertext
            Cells(i, 3) = Sonuc(2).innertext
            Cells(i, 4) = Sonuc(4).innertext
            Cells(i, 5) = Sonuc(1).innertext
            Cells(i, 6) = Sonuc(5).innertext
        End If
    Next i
    IE.Quit
    Set IE = Nothing
End Sub
Sub bekle()
    With IE
        Do Until .readyState = 4: DoEvents: Loop
        Do While .Busy: DoEvents: Loop
    End With
    Application.Wait (Now + TimeValue("00:00:02"))
End Sub

 

[dedenet]

Çok teşekkür ederim, tam istediğim gibi olmuş,

 

[koralp]

Merhabalar,
aşı bilgilerini nasıl alabiliriz