Vergi numarası sorgulama eksikleri.

[vardar07]

Merhaba arkadaşlar.Aşağıdaki linkte bulunan vergi no sorgulamada üç adet eksiğim var. Resimde belirtilen yerleri uyarlayamadım.
1) ilk açılan sayfadan ikinci sayfaya geçiş.
2) ikinci sayfada comboboxa veri girişi.
3) Tamam butonu.

Private Sub CommandButton1_Click()
Application.Wait (Now + TimeValue("0:00:3"))
  UserForm2.ie.Document.all(soyisim)(0).Value = TextBox1
  UserForm2.ie.Document.all(isim)(0).Value = ComboBox1  
  UserForm2.ie.Document.all("babaAdi")(0).Value = TextBox2
  UserForm2.ie.Document.Aall("il")(0).Value = TextBox3.Text
  UserForm2.ie.Document.all("dogumYili")(0).Value = TextBox4
  'Tamam Butonu
  Do While UserForm2.ie.Busy
    DoEvents
  Loop
End Sub

https://intvd.gib.gov.tr/internetvd/template.jsp?page=IVD_MENU_SORGULAMALAR

 

[Murat OSMA]

Şimdiye kadar ki örneklerden (bakarak) bunu sizi yapabileceğinizi düşünüyorum.
Ne dersiniz Mustafa Bey ?

 

[vardar07]

Haklısınız Murat bey ancak sayfa geçişlerini ve combobox aktarmasını bir türlü uygulayamadım.

 

[Murat OSMA]

Sayfa geçişi için;

[FONT="Trebuchet MS"]Private Sub CommandButton1_Click()
    ie.navigate "https://intvd.gib.gov.tr/internetvd/template.jsp?page=IVD_MENU_SORGULAMALAR"
    Do While ie.busy: DoEvents: Loop
    ie.navigate "[B][COLOR="Blue"]javascript[/COLOR][/B]:[B][COLOR="Red"]loadAJAXUsingPOST('dispatch2', 'contentivd', 'cmd=IVD_VKNO')[/COLOR][/B]"
End Sub[/FONT]

Diğer isteğinizle ilgili Webten Bilgi Sorgulama ile lgili başlığa bakabilirsiniz.

 

[vardar07]

Sayfa geçişi için
Diğer isteğinizle ilgili Webten Bilgi Sorgulama ile lgili başlığa bakabilirsiniz.

Çok teşekkürler. Sayfa geçişi ve "TAMAM" butonu tamam. Aramadığım site denemediğim kod kalmadı . halit3 beyin tedaş sorgulamadaki combobox verilerini uyarlamaya çalıştım ancak nafile. Combobox'a veri aktarma için destek devam ediyor.

 

[halit3]

1-userforma bir adet Combobox2 nesnesi ekleyin
2-UserForm_Initialize koduna aşağıdaki bölümüde ekleyin.

ComboBox2.RowSource = "Sayfa1!ı2:ı" & Sheets("Sayfa1").Range("ı65536").End(3).Row

3-CommandButton1_Click olayınada

WebBrowser1.getElementById("il").selectedIndex = TextBox3.Value

yukarıdakinin yerine aşağıdakini ekleyin.

WebBrowser1.document.all("il").selectedIndex = ComboBox2.ListIndex

veya

[COLOR="Red"]WebBrowser1.document.GetElementsByName("il")(0).selectedIndex = ComboBox2.ListIndex[/COLOR]

ComboBox1_Change olayınada

TextBox3.Value = bul.Offset(0, 2).Value

yukarıdakinin yerine aşağıdakini ekleyin

ComboBox2.Text = bul.Offset(0, 2).Value

 

[vardar07]

1-userforma bir adet Combobox2 nesnesi ekleyin
2-UserForm_Initialize koduna aşağıdaki bölümüde ekleyin.

ComboBox2.RowSource = "Sayfa1!ı2:ı" & Sheets("Sayfa1").Range("ı65536").End(3).Row

3-CommandButton1_Click olayınada

WebBrowser1.getElementById("il").selectedIndex = TextBox3.Value

yukarıdakinin yerine aşağıdakini ekleyin.

WebBrowser1.document.all("il").selectedIndex = ComboBox2.ListIndex

veya

[COLOR="Red"]WebBrowser1.document.GetElementsByName("il")(0).selectedIndex = ComboBox2.ListIndex[/COLOR]

ComboBox1_Change olayınada

TextBox3.Value = bul.Offset(0, 2).Value

yukarıdakinin yerine aşağıdakini ekleyin

ComboBox2.Text = bul.Offset(0, 2).Value

Üstad yine yeni bir şeyler öğrenmiş olduk.Çok teşekkürler. İyi akşamlar

 

[halit3]

Üstad yine yeni bir şeyler öğrenmiş olduk.Çok teşekkürler. İyi akşamlar

Teşekkürler iyi çalışmalar

 

[tahsinanarat]

Sn.vardar07 bu çalışmanın bitmiş hali varmı elinizde?

 

[tahsinanarat]

Selam arkadaşlar, elinde bu dosyanın çalışan haliyle varsa ekleyebilir mi?

 

[tahsinanarat]

vergi kimlik no sorgulama

Sn. vardar07'nin eklemiş olduğu dosyayı sorgulama yapacak şekle getirdim, ancak uzman arkadaşların bu dosyayı daha da geliştirebilirler.
-Kimlik bilgileri sayfasında iken aktif hücrenin bulunduğu satırdaki kişi bilgilerini
sorguya gönderip Userform açılarak ilgili kutucukların doldurulmasını sağladım.
-User form açıldığında VKNO SORGULA (CommandButton1)' e bastığımızda kişiye ait bilgileri getiriyor. Buraya kadar tamam.
Gelen bilgileri seçip kopyaladıktan sonra alttaki butona bastığımda (CommandButton2) sorgulanan_kayıtlar sayfasının en son boş satırına yapıştırıyor.

İSTEKLER:
-Userform açıldığında VKNO SORGULA (CommandButton1) e basmadan bu butonu tetikleyebilir miyiz.
-Sorgudan sonraki gelen bilgileri kapyalamak yerine excel sayfasına kodlarla alabilirmiyiz.

Uzman arkadaşlardan beklentilerim bunlardır
Sorgulanacak kişiler birde döngüye bağlanırsa mükemmel olur.

http://s9.dosya.tc/server3/0jhtfg/vkno_sorgulama.rar.html

 

[assenucler]

Bir rica

Sayın vardar07,


Ben de rica etsem, Sayın halit3'ün 5. iletide ki önerileri doğrultusunda, dosyanızın son halini ekleyebilir misiniz? Bizler de yararlanabilir miyiz?
Teşekkürler.

Sevgi ve saygılar.

 

[hoguz2]

Merhaba ,

konuyu merak ettim. ekli dosyalari goremiyorum. ama 0 dan baska bir calisma yapabilirim.

hangi siteden hangi bilgiler girilerek dongu ile veri cekilecek benimle de paylasmak isterseniz. alternatif bir calisma yapabilirim

iyi calismalar.

 

[karacan7]

Arkadaşlar elinize sağlık ama bana şey lazım elimdeki vergi kimlik no'larını excel de bir sütüna yazıp karşısına firmaların ünvan bilgilerini ve de vergi dairelerini görmek istiyorum. vergi kimlik numaraları var elimde fakat vergi dairelerini de sorgulamam lazım.

Anlayacağınız toplu olarak vergi kimlik numaralarını nasıl sorgularım.