Merhaba, kod eksik eklenmiş. Doğrusu aşağıdadır.

Dim ie As InternetExplorer

Set ie = New InternetExplorer

    

ie.Visible = True



ie.navigate "https://ebildirge.sgk.gov.tr/WPEB/amp/loginldap"

    

    

Do Until ie.ReadyState = READYSTATE_COMPLETE

    DoEvents

Loop



ie.Document.all("j_username").Value = mtn_kullaniciadi.Value

ie.Document.all("isyeri_kod").Value = Me.mtn_isyeri_kod.Value

ie.Document.all("j_password").Value = Me.mtn_sistemsifresi.Value

ie.Document.all("isyeri_sifre").Value = Me.mtn_isyerisifresi.Value



Do Until ie.ReadyState = READYSTATE_COMPLETE

    DoEvents

Loop