TAPDK Sitesinden Veri Sorgulama

Bu dosya, Tütün ve Alkol Piyasası Düzenleme Kurumunun satıcı sorgu sayfasına Excel içinden bağlanır. A sütununa girilen Sicil No veya B sütununa girilen TC kimlik numarası için sorgu yapılır, sonuç satırı D:L sütunlarına yazılır. Dosya makro içerir, açarken makroları etkinleştirmeniz gerekir.

Dosyanın içeriği​

• Sayfa1: A1:L1436 aralığında örnek veri bulunur. A sütunu sorgulanacak Sicil No değerlerini (ör. 61170047PT), B sütunu TC kimlik numaralarını içerir. D:L sütunlarında sorgu sonucu olarak İl, Sicil No, Soyadı, Satıcı Sınıfı ve Durumu gibi alanlar listelenir.
• Dosyada formül bulunmaz; tüm sonuçlar makro ile doldurulur.

Makrolar​

• Worksheet_Change (Sayfa1): A2:B5000 aralığında bir hücre değiştiğinde otomatik çalışır. Değişen satır için sorgu sayfasını açar, o satırın D:L alanını temizler, A veya B sütunundaki değeri sorgu formuna yazar ve arama düğmesine basar. Gelen sonuç tablosunu (GridView1) ilgili satıra aktarır. Kayıt yoksa D sütununa "Satıcı Bulunamadı." yazılır. İşlem bitince "İşlem Tamamlandı!" mesajı verilir.
• TAPDK_Sorgula (Module1): Toplu sorgu yapar. Önce D2:L5000 aralığını temizler, ardından etkin hücrenin satırından A veya B sütunundaki son dolu satıra kadar tüm kayıtları sırayla sorgular. Sonuçlar aynı satırlara yazılır. Alt+F8 penceresinden veya bir düğmeye atanarak çalıştırılır.

Her iki makro Internet Explorer nesnesini arka planda çalıştırır ve sorgu için belirli bir IP adresindeki sayfaya bağlanır; bu nedenle internet bağlantısı gerekir. Kodda dosya silme gibi zararlı bir işlem yoktur. Internet Explorer bulunmayan sistemlerde makro çalışmayabilir.

Nasıl kullanılır​

1. Dosyayı açın ve makroları etkinleştirin.
2. Tek kayıt için A sütununa Sicil No veya B sütununa TC kimlik numarasını yazıp Enter'a basın; sonuç aynı satıra gelir.
3. Birden çok kayıt için A veya B sütununa değerleri alt alta girin, ilk satıra tıklayın ve TAPDK_Sorgula makrosunu çalıştırın.
4. İşlem Tamamlandı mesajını bekleyin; sonuçlar D:L sütunlarında listelenir.