ŞİFRE İLE GİRİLEN SAYFA İÇİNDE BAŞKA SAYFA AÇMAK

[yurttutan1]

Sub Ticaretsicil_Giris()
Dim ie As Object
Set ie = CreateObject("InternetExplorer.Application")
ie.Navigate "https://www.ticaretsicil.gov.tr"
ie.Visible = True
Do Until ie.ReadyState = 4: DoEvents: Loop
Do While ie.Busy: DoEvents: Loop
ie.Document.all("LoginEmail").Value = Cells(1, "b")
ie.Document.all("LoginSifre").Value = Cells(2, "b")
ie.Document.getElementsByTagName("button")(3).
Do Until ie.ReadyState = 4: DoEvents: Loop
Do While ie.Busy: DoEvents: Loop
ie.Document.all("/view/hizlierisim/ilangoruntuleme.php")
Set ie = Nothing
End Sub

Hocam ticaret sicil gazetesine giriş yapıyor ama içinde "ilangoruntuleme" sayfasına geçiş yapamadım yardım ederseniz sevinirim

 

[yurttutan1]

Sub Ticaretsicil_Giris()
Dim ie As Object
Set ie = CreateObject("InternetExplorer.Application")
ie.Navigate "https://www.ticaretsicil.gov.tr"
ie.Visible = True
Do Until ie.ReadyState = 4: DoEvents: Loop
Do While ie.Busy: DoEvents: Loop
ie.Document.all("LoginEmail").Value = Cells(1, "b")
ie.Document.all("LoginSifre").Value = Cells(2, "b")
ie.Document.getElementsByTagName("button")(3).Click
ie.Visible = True
Set ie = Nothing
Set ie = CreateObject("InternetExplorer.Application")
ie.Navigate "https://www.ticaretsicil.gov.tr/view/hizlierisim/ilangoruntuleme.php"
ie.Visible = True
Do Until ie.ReadyState = 4: DoEvents: Loop
Do While ie.Busy: DoEvents: Loop
ie.Document.all("SicilMudurluguId").Value = Cells(3, "b")
ie.Document.all("TicSicNo").Value = Cells(4, "b")
Set ie = Nothing
End Sub

Hocam sonunda yaptım ama bazı hatalar var
1-İkinci yeri başka bir pencerede açıyor içinde açmıyor
2-ie.Document.all("SicilMudurluguId").Value = Cells(3, "b") burada bir şehir listesi var onu açamadım kursör oraya geliyor seçim yapmıyor

hocam yardım ederseniz sevinirim