Private Sub CommandButton1_Click()
Set ie = CreateObject("internetexplorer.application")
With ie
.Navigate "https://earsivportal.efatura.gov.tr/intragiris.html"
.Visible = 1
Do While .ReadyState <> 4: DoEvents: Loop
.document.getElementById("userid").Value = "deneme"
.document.getElementById("password").Value = "12345"
.document.all("action").Click
End With
End Sub
bu kodun chorem de açılmasını istiyorum yardımcı olurmusunuz
Set ie = CreateObject("internetexplorer.application")
With ie
.Navigate "https://earsivportal.efatura.gov.tr/intragiris.html"
.Visible = 1
Do While .ReadyState <> 4: DoEvents: Loop
.document.getElementById("userid").Value = "deneme"
.document.getElementById("password").Value = "12345"
.document.all("action").Click
End With
End Sub
bu kodun chorem de açılmasını istiyorum yardımcı olurmusunuz