Bir Programdan Diğerine Sorgu

[ECYavuz]

Ek'ye yer alan "Vergi No Sorgula Programı" nda yer alan veya girilecak vergi numaralarını "Kod Listeleri 2008" programında (programda mevcut excel sayfalarında) olup olmadıklarını, varsalar hangi sayfa da olduklarını yazma konusunda yardımınıza ihtiyacım var.

 

[ECYavuz]

Bu konuda yardımcı olacak hiç bir arkadaşım yokmu?

 

[ECYavuz]

Bu konuya ilgi duyan bir arkadaşım neden yardım etmek istemiyor. Bir hata mı ettik de haberimiz yok...

 

[Korhan Ayhan]

Selamlar,

Eğer aradığınız vergi no diğer kitapta yer alıyorsa nasıl bir veri aktarımı yapılacak? Örnek dosyanız üzerinde birkaç örnekle açıklarmısınız.

 

[ECYavuz]

Sayın Uzmanlarım Saygılarımla,

Başlığı kapatıp Ek'i silebilirmisiniz? boşu boşuna yer kaplamasın... Teşekkürler.

 

[Korhan Ayhan]

Selamlar,

Sorunuza yanıt aldınızmı? Neden silinmesini istiyorsunuz?

 

[ECYavuz]

Hayır üstadım... Kontrolü bütün listelerde manuel olarak yaptım; zaten bir yanıtta alamamıştım. Ama aslında anlatmak isteğim açık. Vergi No sorgulama programı zaten siz de bilirsiniz. Bu forumdan alınma, uzmanlarımızın bir çalışması ve zevkle kutluyorum. Ben sadece iki excel dosyasından bilgi almak konusunda yardım istemiştim.

"VergiNo_Sorgulama programında" sorgulama yaptığımız Vergi Kod numaralarını (ki zaten program bunu yapıyor hali jhazırda...); "Kod Listeleri 2008 programı" sayfalarının "D sütünlarında" olup olmadığına bakacak ve eğer varsa, " VergiNo_Sorgulama programının K sütununa" "Kod Listelerinin .... sayfasında kayıtlıdır" diye yazacak. Bu kadar....

Saygı ve sevgilerimle...


Çıkacak sonuç örnek olarak aşağıdaki gibi olacaktır.

 

[Korhan Ayhan]

Selamlar,

Aşağıdaki kodu denermsiniz. Koddaki Set HEDEF_KİTAP = Workbooks.Open("C:\Documents and Settings\Desktop\Kod_Listeler 2008.xls", False, False) kısmını kendi sisteminize göre düzenlemeyi unutmayın.

Sub VERGİ_NO_KONTROL()
    Application.ScreenUpdating = False
    Dim ASIL_KİTAP As Workbook
    Dim HEDEF_KİTAP As Workbook
    Set ASIL_KİTAP = ActiveWorkbook
    Set SVN = Sheets("VergiNodan")
    Set HEDEF_KİTAP = Workbooks.Open("C:\Documents and Settings\Desktop\Kod_Listeler 2008.xls", False, False)
    ASIL_KİTAP.Activate
    For SATIR = 2 To SVN.[A65536].End(3).Row
    If SVN.Cells(SATIR, 1) <> "" Then
    For Each SAYFA In HEDEF_K&#304;TAP.Sheets
    Set BUL = SAYFA.Columns("D").Find(SVN.Cells(SATIR, 1))
    If Not BUL Is Nothing Then
    SVN.Cells(SATIR, 11) = SAYFA.Name & " " & BUL.Address
    End If
    Next
    End If
    Next
    HEDEF_K&#304;TAP.Close
    Application.ScreenUpdating = True
    MsgBox "SORGULAMA &#304;&#350;LEM&#304; TAMAMLANMI&#350;TIR.", vbInformation
End Sub

 

[ECYavuz]

Sayın Korhan Ayhan Çok teşekkürler....