Toplu hes kodu sorgulama

[onder_09]

Herkese iyi forumlar kolay gelsin. Excelde sütunlara alt alta hes kodlarını yazıp bir tuşa bastığımızda e devletten sorgulama yapsın istiyorum teker teker böyle bişey mümkün mü acaba ?

 

[ÖmerBey]

Merhaba,
Sağlık Bakanlığı hizmetleri altında Toplu HES Kodu Sorgulama hizmetini kullanabilirisiniz...

 

[onder_09]

Merhaba,
Sağlık Bakanlığı hizmetleri altında Toplu HES Kodu Sorgulama hizmetini kullanabilirisiniz...

Evet öyle bir sistem var ama ben dükkana her giren müşteri için hem kayıt tutmak amaçlı hem kolaylık sağlaması açısından istiyorum

 

[muratboz06]

Ekte kullanıcı bilgileri sayfa B1 hücresine TC Numaranızı, B2 hücresine E-Devlet şifrenizi yazınız.
HES SORGULAMA sayfasında A sütununa hes kodlarını yazınız. HES kodunun doğru veya yanlış olmasıyla alakalı herhangi bir işlem yapılmamaktadır. HES kodları doğru yazılmıştır diye varsayıldı. HES SORGU GÖNDER şekline tıklayarak sorguları gönderebilirsiniz. B sütununa sonuçları sırasıyla yazacaktır.
HES.xlsm - 21 KB

 

[onder_09]

Ekte kullanıcı bilgileri sayfa B1 hücresine TC Numaranızı, B2 hücresine E-Devlet şifrenizi yazınız.
HES SORGULAMA sayfasında A sütununa hes kodlarını yazınız. HES kodunun doğru veya yanlış olmasıyla alakalı herhangi bir işlem yapılmamaktadır. HES kodları doğru yazılmıştır diye varsayıldı. HES SORGU GÖNDER şekline tıklayarak sorguları gönderebilirsiniz. B sütununa sonuçları sırasıyla yazacaktır.
HES.xlsm - 21 KB

Hocam ellerinize sağlık ama işlem tamamlandı dedikten sonra risk durumunu yazmıyor

 

[muratboz06]

Makro kodunun başındaki On Error Resume Next satırını silerek tekrar makroyu çalıştırır mısınız. Nerede hata veriyor onu bulalım.
Örnekte paylaştığım hes kodlarının yanına risk durumlarını getiriyordu.
Makroyu çalıştırmadan önce varsa açık internet explorer kapatınız.

 

[onder_09]

Makro kodunun başındaki On Error Resume Next satırını silerek tekrar makroyu çalıştırır mısınız. Nerede hata veriyor onu bulalım.
Örnekte paylaştığım hes kodlarının yanına risk durumlarını getiriyordu.
Makroyu çalıştırmadan önce varsa açık internet explorer kapatınız.

If InStr(IE.Document.getElementsByTagName("div")(7).innerHTML, "Risk Durumu") > 0 Then

bu kısım sarı hata veriyor hocam

 

[muratboz06]

Kodda düzeltme ve iyileştirme yapıldı. Kullanıcı bilgileri sayfasındaki edevlet giriş bilgilerini unutmayınız.
HES.xlsm - 20 KB

 

[onder_09]

Kodda düzeltme ve iyileştirme yapıldı. Kullanıcı bilgileri sayfasındaki edevlet giriş bilgilerini unutmayınız.
HES.xlsm - 20 KB

Ellerine kollarına bilgine her şeyine sağlık hocam

 

[onder_09]

Herkese merhaba eklemiş olduğum dosya 2007 sürümünde çalışmıyor bu konuda yardımcı olur musunuz ?

 

[Korhan Ayhan]

Hangi bölümde hata veriyor?

 

[onder_09]

Hangi bölümde hata veriyor?

Bu ekranda hocam

 

[Korhan Ayhan]

Bahsettiğiniz hata 32 Bit - 64 Bit uyumsuzluk hatasıdır.

Hata veren satırın yerine aşağıdaki kod bloğunu uygulayıp deneyiniz.

#If VBA7 Then
    Declare PtrSafe Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As LongPtr)
#Else
    Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
#End If

 

[harme88]

Merhaba Korhan Ayhan,
Oluşturduğumuz hes kodu listesini sorgula dediğimizde, sorgulamaya 3. Satır başlaması için kodun hangi kısmındı değişiklik yapmalıyım

 

[Korhan Ayhan]

Kodun bu bölümü başlangıç satırı ifade ediyor.

For i = 2

Bu bölüme 3 yazarsanız 3. satırdan itibaren sorgulamaya başlar.

 

[onder_09]

Teşekkürler hocam yine hızır gibi yetiştiniz

 

[harme88]

Korhan Ayhan Öncelikle Teşekkür ederim verdiğiniz kıymetli bilgiler için. Hes kodunun sütünunu ve risk durumu A B değilde BC yapmak için ne yapmalı.

 

[onder_09]

Hocam böyle bir hata verdi ne yapmamız gerekir?

 

[Korhan Ayhan]

@onder_09,

"Kullanıcı Bilgileri" isimli sayfaya TC NO ve ŞİFRE girmeniz gerekiyor.

 

[Korhan Ayhan]

@harme88,

Bu satır risk durumunu B sütununa yazdırıyor.

Cells(i, 2) = IE.Document.getElementsByTagName("dd")(3).InnerText

Bold olan bölüme 3 yazarsanız C sütununa yazar.