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
Merhaba, kod eksik eklenmiş. Doğrusu aşağıdadır.