yeni e bildirge

[okancicek]

https://ebildirge.sgk.gov.tr/EBildirgeV2 doldurma işlemini yapabilicek makro yapablir misiniz? exel de firma üzerine cift tıklanınca eski uygulama gidiyor. bu exelide bu siteden bulmuştum yardımlarınız için simdiden teşekkürler

 

[hsanclk]

YAPAN VARSA PAYLAŞABİLİRMİ

 

[denese]

Forumda arama yaparsanız bir çok örnek mevcut. En günceline aşağıdaki linkten ulaşabilirsiniz.
6 numaralı mesajı inceleyin.

SGK Otomatik Giriş

Merhabalar, SGK e-bildirge ve bazı SGK sitelerinde otomatik giriş formu doldurmak için ekteki çalışma belki arkadaşların işine yarayabilir.

www.excel.web.tr

 

[okancicek]

v2 e bildirgeye gecildi hazırlayan varmıdır? rica etsen ekleyebilir misiniz

 

[okan32]

aşağıdaki kod işinizi görür

Sub sgkebildirgev2()

Set v1 = Sheets("veri")

Dim i As SHDocVw.InternetExplorer
Set i = New InternetExplorer
i.Visible = True
i.navigate ("https://ebildirge.sgk.gov.tr/EBildirgeV2")

Do While i.readyState <> READYSTATE_COMPLETE

Loop

Dim idoc As MSHTML.HTMLDocument
Set idoc = i.document

idoc.all.UserName.Value = v1.Range("b4").Value
idoc.all.Password.Value = v1.Range("d4").Value
idoc.all.isyeri_sifre.Value = v1.Range("e4").Value
idoc.all.isyeri_kod.Value = v1.Range("c4").Value

Dim ele As MSHTML.IHTMLElement
Dim eles As MSHTML.IHTMLElementCollection

Set eles = idoc.getElementsByTagName("")
For Each ele In eles
    If ele.ID = "" Then
        ele.Click
    Else
    End If
Next ele

End Sub

 

[denese]

v2 e bildirgeye gecildi hazırlayan varmıdır? rica etsen ekleyebilir misiniz

Bağlantıyı incelememişsiniz..

 

[okancicek]

Bağlantıyı incelememişsiniz..

e bildirge v1 bildirim link farklı v2 internet linkler farklı
https://ebildirge.sgk.gov.tr/WPEB/amp/loginldap ;v1 ait site
https://ebildirge.sgk.gov.tr/EBildirgeV2 ; v2 ait site exellerde v2 ye göre değil makrodan anlamdığımdan dosya şeklinde eklenebilirse diye yazdım
şimdi inceledim sirket olan exel de v2 var yanındaki exel e v1 üzerine düzenlenmiş tamam tesekkürler

 

[okancicek]

aşağıdaki kod işinizi görür

Sub sgkebildirgev2()

Set v1 = Sheets("veri")

Dim i As SHDocVw.InternetExplorer
Set i = New InternetExplorer
i.Visible = True
i.navigate ("https://ebildirge.sgk.gov.tr/EBildirgeV2")

Do While i.readyState <> READYSTATE_COMPLETE

Loop

Dim idoc As MSHTML.HTMLDocument
Set idoc = i.document

idoc.all.UserName.Value = v1.Range("b4").Value
idoc.all.Password.Value = v1.Range("d4").Value
idoc.all.isyeri_sifre.Value = v1.Range("e4").Value
idoc.all.isyeri_kod.Value = v1.Range("c4").Value

Dim ele As MSHTML.IHTMLElement
Dim eles As MSHTML.IHTMLElementCollection

Set eles = idoc.getElementsByTagName("")
For Each ele In eles
    If ele.ID = "" Then
        ele.Click
    Else
    End If
Next ele

End Sub

makrodan anlamdığımdan dosya seklinde ekleme imkanız var mı

 

[okancicek]

makrodan anlamdığımdan dosya seklinde ekleme imkanız var mı

1 mesajda exel mevcuttur

 

[htsumer]

makrodan anlamdığımdan dosya seklinde ekleme imkanız var mı

İlk mesajnızda eklediğiniz dosyanın VBA kısmı şifreli olduğu için kodlar eklenmiyor..

 

[okancicek]

İlk mesajnızda eklediğiniz dosyanın VBA kısmı şifreli olduğu için kodlar eklenmiyor..

123 müş

 

[okancicek]

İlk mesajnızda eklediğiniz dosyanın VBA kısmı şifreli olduğu için kodlar eklenmiyor..

denese beyfendi eklediği exelde varmiş istreseniz uğraşmayın teşekkürler diğer exelde varmiş ben birine baktım v1 için yapılmış digeri v2 icin yapılmış https://www.excel.web.tr/threads/sgk-otomatik-giris.166644/

 

[htsumer]

Kodları V2 ye göre düzenledim bir deneyin

 

[hsanclk]

Kodları V2 ye göre düzenledim bir deneyin

merhaba htsumer

Vizite Giriş Sistemi

Vizite Giriş Sistemi

bu siteleri de ekleyebilirmisiniz