• DİKKAT

    DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
    Altın Üyelik Hakkında Bilgi

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

Katılım
6 Şubat 2016
Mesajlar
4
Excel Vers. ve Dili
Türkçe

Ekli dosyalar

Teşvik Sisteminin kodları aşağıdaki gibi;
Kod:
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
 
"askm" merhaba,

foruma yazmadan önce aynı kodu eklemiştim olmamıştı yine olmadı :)
 
Son düzenleme:
Şimdi ekledim ve denedim oldu ben.
 
askm ekleme yaptığınız dosyayı paylaşabilir misiniz.
 
Geri
Üst