Soru Makronun Opera yada başka bir tarayıcıda açma

[Sozbay]

Merhaba

Elimizde veri çekebilmek için bir makro var. Bu makro direk internet explorerda çalışıyor. Başka bir tarayıcıda çalıştırmamız mümkün mü?
Bir de " MsgBox "KONTROL AMAÇLI EKLENMİŞTİR SONRA DEVAM ET" 'Burada kontrol edilmesini bek" gibi alanlarda butona tıklamadan o ekranda 5-10 saniye arası bekletmemiz mümkün mü? Son olarak tarayıcıda sayfa yüklenmeden işlem yapma gibi bir şey diyebiliyor muyuz?

Public ie As InternetExplorer
Dim puan() As String

Sub baslat()
    On Error Resume Next
    Set ie = New InternetExplorer
    ie.Visible = True
    If Range("A65536").End(xlUp).Row >= 3 And Range("B65536").End(xlUp).Row >= 3 Then  'Herhangi bir TC ve doğum tarihi değeri girilmişse devam edilecek
        
        ie.navigate "https://hitap.sgk.gov.tr/HitapWeb/CikisServlet"
                MsgBox "GİRİŞİ ELLE GİRDİKTEN SONRA DEVAM ET" 'Burada kullanıcı girişini elle yapılmasını bekliyoruz.
        
        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 "https://hitap.sgk.gov.tr/HitapWeb/CikisServlet"
                'MsgBox "GİRİŞİ ELLE GİRDİKTEN SONRA DEVAM ET" 'Burada kullanıcı girişini elle yapılmasını bekliyoruz.
                Do While ie.Busy Or ie.readyState <> 4: DoEvents: Loop
               ' ie.navigate "https://hitap.sgk.gov.tr/HitapWeb/LoginControl"
                ie.Navigate2 "https://hitap.sgk.gov.tr/HitapWeb/TcknArama.jsp"
                 MsgBox "KONTROL AMAÇLI EKLENMİŞTİR SONRA DEVAM ET" 'Burada kontrol edilmesini  bek
                ie.document.getElementsByName("tckn")(0).Value = Cells(a, 1).Value
                ie.document.getElementsByName("Ara")(0).Click
                MsgBox "KONTROL AMAÇLI EKLENMİŞTİR SONRA DEVAM ET" 'Burada kontrol edilmesini  bek
                ie.Navigate2 "https://hitap.sgk.gov.tr/HitapWeb/HizmetCetvel.jsp"
                 MsgBox "KONTROL AMAÇLI EKLENMİŞTİR SONRA DEVAM ET" 'Burada kontrol edilmesini  bek
                ie.document.getElementsByName("gorev")(0).Value = Cells(a, 2).Value
                 ie.document.getElementById("unvans_kod").Value = Cells(a, 3).Value
                 ie.document.getElementById("hs").Value = "EÖH"
                  ie.document.getElementsByName("derece")(0).Value = Cells(a, 5).Value
                  ie.document.getElementsByName("o_derece")(0).Value = Cells(a, 6).Value
                  ie.document.getElementsByName("o_kademe")(0).Value = Cells(a, 7).Value
                  ie.document.getElementsByName("o_ekg")(0).Value = Cells(a, 8).Value
                   ie.document.getElementsByName("k_derece")(0).Value = Cells(a, 9).Value
                  ie.document.getElementsByName("k_kademe")(0).Value = Cells(a, 10).Value
                  ie.document.getElementsByName("k_ekg")(0).Value = Cells(a, 11).Value
                   ie.document.getElementsByName("e_derece")(0).Value = Cells(a, 12).Value
                  ie.document.getElementsByName("e_kademe")(0).Value = Cells(a, 13).Value
                  ie.document.getElementsByName("e_ekg")(0).Value = Cells(a, 14).Value
                   ie.document.getElementsByName("baslamaTarihi")(0).Value = Format(Cells(a, 15).Value, "dd""/""mm""/""yyyy")   'Format(Cells(a, 2).Value, "dd")
                   ie.document.getElementById("sebep_kod").Value = Cells(a, 16).Value
                   ie.document.getElementsByName("onayTarihi")(0).Value = Format(Cells(a, 17).Value, "dd""/""mm""/""yyyy")
                   MsgBox "KONTROL AMAÇLI EKLENMİŞTİR SONRA DEVAM ET" 'Burada kontrol edilmesini  bekliyoruz.
                   ie.document.getElementsByName("kaydet")(0).Click
                
                
            Else
                Cells(a, 3).Value = "EKSİK GİRİŞ"
            End If
            MsgBox "KONTROL AMAÇLI EKLENMİŞTİR SONRA DEVAM ET" 'Burada kontrol edilmesini  bekliyoruz.
        Next
    Else
        MsgBox "En az bir kayıt değeri girmelisiniz."
        Exit Sub
    End If
    MsgBox "İşlem Bitti"
End Sub

 

[Sozbay]

Güncel

 

[Sozbay]

güncel