Webden veri çekme hk

[chakistes]

Merhaba arkadaşlar aşağıdaki kodla webden veri çekiyorum fakat her kimlik numarasının yanında sarı ikonlara basıp içindeki veriyi almam gerekiyor web sayfasındaki arka plandaki kodları ve örnek resim ekledim bilgi güvenliği için kişi bilgilerini kapattım. Yardımlarınız için şimdiden teşekkür ederim
Dim başlangıç As Integer
başlangıç = 0



DoEvents
For i = 0 To 150

Sheets("sayfa3").Range("a" & (başlangıç)).Value = UserForm3.WebBrowser1.Document.getElementById("table6").getElementsByTagName("tr")(i + 1).getElementsByTagName("td")(1).innertext
Sheets("sayfa3").Range("b" & (başlangıç)).Value = UserForm3.WebBrowser1.Document.getElementById("table6").getElementsByTagName("tr")(i + 1).getElementsByTagName("td")(2).innertext
Sheets("sayfa3").Range("c" & (başlangıç)).Value = UserForm3.WebBrowser1.Document.getElementById("table6").getElementsByTagName("tr")(i + 1).getElementsByTagName("td")(3).innertext
Sheets("sayfa3").Range("d" & (başlangıç)).Value = UserForm3.WebBrowser1.Document.getElementById("table6").getElementsByTagName("tr")(i + 1).getElementsByTagName("td")(4).innertext
Sheets("sayfa3").Range("e" & (başlangıç)).Value = UserForm3.WebBrowser1.Document.getElementById("table6").getElementsByTagName("tr")(i + 1).getElementsByTagName("td")(5).innertext
Sheets("sayfa3").Range("f" & (başlangıç)).Value = UserForm3.WebBrowser1.Document.getElementById("table6").getElementsByTagName("tr")(i + 1).getElementsByTagName("td")(6).innertext
Sheets("sayfa3").Range("g" & (başlangıç)).Value = UserForm3.WebBrowser1.Document.getElementById("table6").getElementsByTagName("tr")(i + 1).getElementsByTagName("td")(7).innertext
Sheets("sayfa3").Range("h" & (başlangıç)).Value = UserForm3.WebBrowser1.Document.getElementById("table6").getElementsByTagName("tr")(i + 1).getElementsByTagName("td")(8).innertext
Sheets("sayfa3").Range("ı" & (başlangıç)).Value = UserForm3.WebBrowser1.Document.getElementById("table6").getElementsByTagName("tr")(i + 1).getElementsByTagName("td")(9).innertext
DoEvents
başlangıç = Sheets("sayfa3").Cells(Rows.Count, 1).End(xlUp).Row + 1
DoEvents