• DİKKAT

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

Tedaş ve aydem otomatik borç sorgulama makrosu

Katılım
2 Mayıs 2013
Mesajlar
10
Excel Vers. ve Dili
2010
Merhaba Arkadaşlar;

Tedaş ve Aydem sitelerinden otomatik olarak borç sorgulayıp excele aktarabileceğimiz güncel bir makro varmıdır.

Teşekür ederim.
 
Değerli Sirleon kardeşim,
Bu siteden daha önce bulduğum sayın üstadlarımızın yazdığı bir makro yu ekte gönderiyorum. Güle güle kullanın...
 

Ekli dosyalar

http://www.excel.web.tr/f125/webten-teda-borc-sorgulama-t117446.html

Yukarıdaki linkdeki dosya çalışıyor.

İlgili linkdeki dosyanın çalışabilmesi için önce sayfa2 de il ismi aktar düğmesine tıklayınız. ve illerin yanına B sütununa ilgili veb sitesindeki bu illere ait kodları yazın örnek izmir için 35 istanbul için 216 - 212 gibi.

Userformdaki kodlar bu sayfa2 deki bilgilerden çalışıyor tabi sayfa2 deki bilgilerde ilgili web sayfasındaki liste ile uyumlu olmalı ayrıca ilgili web sayfasında ismi olmayan iller için sorgulama yapılamıyor.


İlgili linke yüklediğimiz günde dosyadaki sorgulama illeri ile ilgili bugünkü sorgulama arasında farklılıklar olmus dolayısıyla listede kayma olacaktır.

onun için sayfa2deki il isimlerini aktar düğmesine tıklamak gerekiyor.

Bir diğer hususda dosya ofis 2003 ve 2007 de çalışıyor ofis 2010 da çalışmıyor bu durumda 64 bit ile ilgili PtrSafe prosüdürünü eklemeniz gerekiyor

Kod:
Private Declare [COLOR=red]PtrSafe[/COLOR] Function
 
http://www.excel.web.tr/f125/webten-teda-borc-sorgulama-t117446.html

Yukarıdaki linkdeki dosya çalışıyor.

İlgili linkdeki dosyanın çalışabilmesi için önce sayfa2 de il ismi aktar düğmesine tıklayınız. ve illerin yanına B sütununa ilgili veb sitesindeki bu illere ait kodları yazın örnek izmir için 35 istanbul için 216 - 212 gibi.

Userformdaki kodlar bu sayfa2 deki bilgilerden çalışıyor tabi sayfa2 deki bilgilerde ilgili web sayfasındaki liste ile uyumlu olmalı ayrıca ilgili web sayfasında ismi olmayan iller için sorgulama yapılamıyor.


İlgili linke yüklediğimiz günde dosyadaki sorgulama illeri ile ilgili bugünkü sorgulama arasında farklılıklar olmus dolayısıyla listede kayma olacaktır.

onun için sayfa2deki il isimlerini aktar düğmesine tıklamak gerekiyor.

Bir diğer hususda dosya ofis 2003 ve 2007 de çalışıyor ofis 2010 da çalışmıyor bu durumda 64 bit ile ilgili PtrSafe prosüdürünü eklemeniz gerekiyor

Kod:
Private Declare [COLOR=red]PtrSafe[/COLOR] Function

Tekrar merhaba dostum;

şöyle bir hata veriyor.

Public Function RESİM(ByVal URL As String) As Picture
Dim IPic(15) As Byte
CLSIDFromString StrPtr("{7BF80980-BF32-101A-8BBB-00AA00300CAB}"), IPic(0)
OleLoadPicturePath StrPtr(URL), 0&, 0&, 0&, IPic(0), RESİM
 
64 bit sorun olduğu gözüküyor

Kod:
Public Function RESİM(ByVal URL As String) As Picture

yukarıdaki bölümede PtrSafe bunu ekleyin

Kod:
Public [COLOR=red]PtrSafe[/COLOR] Function RESİM(ByVal URL As String) As Picture
 
sıkıtı oldu

Selam Halit ;

bana lazım olan ve eskiden kullandığımız borç sorgu excel'ini ekte gönderdim.

senin dediklerinin hepsini yaptım ama yine hata verdi. eğer vaktiniz varsa ekteki dosyaya bakabilirmisiniz.

belkide sizin gönderdiğinize doğru uygulayamıyorumdur.

zahmet verdim size.

ilginiz için teşekkürler.
 

Ekli dosyalar

Selam Halit ;

bana lazım olan ve eskiden kullandığımız borç sorgu excel'ini ekte gönderdim.

senin dediklerinin hepsini yaptım ama yine hata verdi. eğer vaktiniz varsa ekteki dosyaya bakabilirmisiniz.

belkide sizin gönderdiğinize doğru uygulayamıyorumdur.

zahmet verdim size.

ilginiz için teşekkürler.

Bu gönderdiğiniz kodlar eski size verdiğim linkdeki dosyanın içinde userform1 var kodlar onda doğru çalışmakta

Bu dosyanızdaki kodlar çalışmaz çünkü güvenlik resmi var

Bu güvenlik resminide userform1 de görüyoruz ve text nesnesine yazıyoruz.

Siz söylediğim linkdeki dosyaya baktınızmı dosyayı güncellemiştim.
 
Bu gönderdiğiniz kodlar eski size verdiğim linkdeki dosyanın içinde userform1 var kodlar onda doğru çalışmakta

Bu dosyanızdaki kodlar çalışmaz çünkü güvenlik resmi var

Bu güvenlik resminide userform1 de görüyoruz ve text nesnesine yazıyoruz.

Siz söylediğim linkdeki dosyaya baktınızmı dosyayı güncellemiştim.

evet Halit sizin gönderdiğinizde denedim ama yine aynı hatayı verdi değiştirdiğimiz yeri yine sarıya boyadı. biraz beceriksiz çıktım galiba ;
 
İlgili lingde (TEDAŞ BORÇ SORGULAMA 7)

Dosyası var hiç bir değişiklik yapmadan dosyayı açın liste kutusundan birinci satırdakini seçin ve işlemi başlan düğmesine tıklayın daha sonra resim nesnesine güvenlik doğrulama sayısı gelecek bu sayı gelince turkuaz renkli texbox nesnesine bu sayıyı yazın
ve
(Listeden seçim yaptıktan sonra ilide açılan liste kutusundan seçip Güvenlik koddunu yaz ve bu düğmeye tıkla işleme başlat) düğmesine tıklayın


Bu dosya ofis 2003 de ve ofis 2007 de çalışıyor
 
Değerli Sirleon kardeşim,
Bu siteden daha önce bulduğum sayın üstadlarımızın yazdığı bir makro yu ekte gönderiyorum. Güle güle kullanın...

merhabalar Ofisçi kardeşim Aydem de sorgulama yapamıyorum hata veriyor. güncel bir borç sorgulama bulunuyormu sizde.

iyi çalışmalar.
 
merhaba halit kardeşim ben bu programı bir türlü çalıştıramadım. çalışıp çalışmadığına bakabilirmisinizr? yardımınız için şimdiden teşekkürler.
 
merhaba halit kardeşim ben bu programı bir türlü çalıştıramadım. çalışıp çalışmadığına bakabilirmisinizr? yardımınız için şimdiden teşekkürler.

Ben bu konuya dosya eklemedim 8 nolu mesaja alternatif link verdim ilgili linkdeki soru vecevapları okursanız proğramı çalıştırırsınız zira proğramı çalıştıranlar mevcut.
 
Geri
Üst