For a = 3 To Range("A65536").End(xlUp).Row 'Girilen TC no adedi kadar for döngüsü (TC no değerleri 3. satırdan itibaren yazılıyor. Bu nedenle döngü 3 den başlıyor)
If Cells(a, 1).Value > 0 And Cells(a, 2).Value > 0 Then 'TC ve doğum tarihi birlikte doluysa devam et.
ie.navigate "
http://sonuc.meb.gov.tr/"
Do While ie.Busy Or ie.readyState <> 4: DoEvents: Loop
ie.document.getElementById("TCNO").Value = Cells(a, 1).Value
ie.document.getElementById("TCNO").FireEvent "onchange"
ie.document.getElementById("TCNO").FireEvent "onchange"
ie.document.getElementById("GUN").Value = Format(Cells(a, 2).Value, "dd")
ie.document.getElementById("AY").Value = Format(Cells(a, 2).Value, "mm")
ie.document.getElementById("YIL").Value = Format(Cells(a, 2).Value, "yyyy")
ie.document.getElementsByName("Submit")(0).Click
Do While ie.Busy Or ie.readyState <> 4: DoEvents: Loop
Cells(a, 3).Value = ie.document.getElementsByTagName("table")(0).Children(0).Children(1).Children(1).innerText
Cells(a, 4).Value = ie.document.getElementsByTagName("table")(0).Children(0).Children(2).Children(1).innerText
Cells(a, 5).Value = ie.document.getElementsByTagName("table")(2).Children(0).Children(0).Children(1).innerText
If Cells(a, 5).Value <> "" Then
Cells(a, 6).Value = ie.document.getElementsByTagName("table")(2).Children(0).Children(1).Children(1).innerText
Cells(a, 7).Value = ie.document.getElementsByTagName("table")(2).Children(0).Children(2).Children(1).innerText
Cells(a, 8).Value = ie.document.getElementsByTagName("table")(2).Children(0).Children(3).Children(1).innerText
Else
Cells(a, 6).Value = ie.document.getElementsByTagName("table")(1).Children(0).Children(1).Children(1).innerText
Cells(a, 7).Value = ie.document.getElementsByTagName("table")(1).Children(0).Children(2).Children(1).innerText
Cells(a, 8).Value = ie.document.getElementsByTagName("table")(1).Children(0).Children(3).Children(1).innerText
End If
Else
Cells(a, 3).Value = "EKSİK GİRİŞ"
End If
Next
döngüyü bu şekilde kurunca sonuçları alıyor