- Katılım
- 20 Ocak 2005
- Mesajlar
- 526
- Excel Vers. ve Dili
- Excel 2007 Türkçe
- Altın Üyelik Bitiş Tarihi
- 01-01-2024
Sub giris_Tıkla()
On Error Resume Next
Set IE = CreateObject("internetexplorer.application")
IE.navigate ("https://uyg.sgk.gov.tr/AylikHesap/")
IE.Visible = True
apiShowWindow IE.Hwnd, SW_MAXIMIZE 'Pencereyi Maximize yap
Do While IE.ReadyState <> 4: Loop
IE.document.forms(0).Item(0).innertext = Range("A1").Value
IE.document.forms(0).Item(1).innertext = Range("A2").Value
IE.document.forms(0).Item(2).innertext = Range("A4").Value
IE.document.forms(0).Item(2).innertext = Range("A5").Value
IE.document.forms(0).Item(3).Click
Set IE = Nothing
End Sub
SGK Emekli Ne Kadar Maaş Alırım. Sayfasından Excel A1 A2 A3 A4 A5 hücrelerindeki istenen "TC Kimlik Numarası" v.b. değerleri yazdırabilir miyiz.
On Error Resume Next
Set IE = CreateObject("internetexplorer.application")
IE.navigate ("https://uyg.sgk.gov.tr/AylikHesap/")
IE.Visible = True
apiShowWindow IE.Hwnd, SW_MAXIMIZE 'Pencereyi Maximize yap
Do While IE.ReadyState <> 4: Loop
IE.document.forms(0).Item(0).innertext = Range("A1").Value
IE.document.forms(0).Item(1).innertext = Range("A2").Value
IE.document.forms(0).Item(2).innertext = Range("A4").Value
IE.document.forms(0).Item(2).innertext = Range("A5").Value
IE.document.forms(0).Item(3).Click
Set IE = Nothing
End Sub
SGK Emekli Ne Kadar Maaş Alırım. Sayfasından Excel A1 A2 A3 A4 A5 hücrelerindeki istenen "TC Kimlik Numarası" v.b. değerleri yazdırabilir miyiz.
TC Kimlik Numarası | |
SSK Sicil Numarası | |
Baba Adı |
|
Nüfus İl | |
Doğum Tarihi |