Soru Otomatik Şifre Doldurma Tarayıcı Açma

Private Sub CommandButton1_Click()

On Error Resume Next

Dim objIE As MicrosoftEdge
Dim HTMLdoc As MSHTML.HTMLDocument
Dim htmlInput As MSHTML.HTMLInputElement
Dim htmlColl As MSHTML.IHTMLElementCollection

sat = ActiveWindow.RangeSelection.Row
If Sayfa1.Cells(sat, "d") = "" Then
MsgBox "hatali satir sectiniz.."
Exit Sub
End If

Set objIE = New InternetExplorerMedium
objIE.navigate "https://uyg.sgk.gov.tr/SigortaliTescil/amp/loginldap" 'url

objIE.Visible = 1

Do While objIE.readyState <> READYSTATE_COMPLETE: DoEvents: Loop

Set HTMLdoc = objIE.document

HTMLdoc.getElementById("j_username").Value = Sayfa1.Cells(sat, "d") 'tc yazıldı

HTMLdoc.getElementById("isyeri_kod").Value = Sayfa1.Cells(sat, "e") 'işyeri kodu

HTMLdoc.getElementById("j_password").Value = Sayfa1.Cells(sat, "f") 'şifre

HTMLdoc.getElementById("isyeri_sifre").Value = Sayfa1.Cells(sat, "g") 'şifre

    Set htmlColl = HTMLdoc.getElementsByTagName("input")
    Set a = HTMLdoc.getElementsByClassName("submitButton")
    
    For Each htmlInput In a
        If Trim(htmlInput.Type) = "submit" Then
            htmlInput.Click 'giriş butonuna tıklandı
            Exit For
        End If
    Next htmlInput
    
End Sub