Hızlı Ulaşım Butonu Hakkında;

[ozturks53]

Merhabalar,

Daha önce forum üstatlarımızdan birinin oluşturmuş olduğu ekli Excel'e aşağıdaki sayfaları da ekleyerek biraz daha genişletmek istedik ancak başarılı olamadık. Konu hakkında yardımlarınızı bekliyoruz :yardim:

YERSİZ KONTROL - https://uyg.sgk.gov.tr/TesvikYersizFaydalanma/

TEŞVİK SİSTEMİ - https://uyg.sgk.gov.tr/IsverenSistemi

 

[askm]

Teşvik Sisteminin kodları aşağıdaki gibi;

Private Sub TesvikYersizFaydalanma()
With CreateObject("InternetExplorer.Application")
.Visible = True
.Navigate "https://uyg.sgk.gov.tr/TesvikYersizFaydalanma/"

Do Until .ReadyState = 4: DoEvents: Loop
Do While .Busy: DoEvents: Loop

.Document.all.userLogin_basvuru_tcKimlikNo.Value = [a2]
.Document.all.userLogin_basvuru_isyeriKodu.Value = [d2]
.Document.all.userLogin_basvuru_sistemSifre.Value = [b2]
.Document.all.userLogin_basvuru_isyeriSifre.Value = [c2]

End With


End Sub

 

[ozturks53]

"askm" merhaba,

foruma yazmadan önce aynı kodu eklemiştim olmamıştı yine olmadı

 

[askm]

Şimdi ekledim ve denedim oldu ben.

 

[ozturks53]

askm ekleme yaptığınız dosyayı paylaşabilir misiniz.