ADO Örnek Dosyaları Hazırlama

Bu dosya, aynı çalışma kitabındaki bir veri sayfasına ADO (ActiveX Data Objects) ile bağlanıp SQL sorguları çalıştırmayı gösteren örnek bir uygulamadır. Veri olarak bir kesim takip kaydı kullanılır; sorgu sonuçları makrolarla sayfaya yazılır.

Dosya makro içerir, açarken makroları etkinleştirmeniz gerekir.

Dosyanın içeriği​

• Kesim_Detay: Kaynak veri sayfasıdır (A1:J8054 aralığı). Tarih, HOL, KAL, GEN ve TONAJ gibi sütunlar içerir. Örnek satırlarda tarih 43101, genişlik 1450 ve tonaj 22.28 değerleri görülür. Sayfada 3 veri doğrulama kuralı vardır.
• ado_pivot: Makroların sonucu yazdığı sayfadır. KALİTE, Adet ve Metraj sütunları ile GRD2811, GRD3752, GRD3782 gibi kalite kodları yer alır.
• 3. ve 4. parti kesilen (gizli): Slab numarası, kalite kodu, değer ve "kesildi" durumunu içeren yardımcı liste.
• Sayfa1, Sayfa2, Sayfa3 ve Sayfa4 gizlidir. Sayfa2'de kalite ve genişlik değerlerini içeren küçük bir özet bulunur.

Dosyada çalışma sayfası formülü yoktur; hesaplamalar SQL sorgularıyla yapılır. Tanımlı adların (firma, kalınlık, kesim, makina, Personel) tamamı #REF! hatası verir.

Makrolar​

• ado_sayfa_1: Etkin sayfayı temizler, MSDASQL sürücüsüyle bağlanır ve Kesim_Detay'dan Tarih, SLAB NO, Tonaj, Metraj, KALİTE ve GEN alanlarını çeker. Başlıkları yazar, tarih biçimini düzenler.
• ado_sayfa_2: Microsoft.ACE.OLEDB.12.0 ile Kesim_Detay'ın tamamını (select *) sayfaya aktarır.
• tablo_by_ozet: KALİTE ve GEN bazında kayıt sayısını (Adet), toplam Tonaj ve Metraj değerlerini GROUP BY ile hesaplar.
• tablo_by_ay_ozet: Aynı özeti month([Tarih]) ile aylara göre kırar.

Makrolar sonuç yazarken etkin sayfadaki mevcut içeriği siler; bu yüzden önce doğru sayfada olduğunuzdan emin olun.

Dikkat edilecek noktalar:

• Workbook_Open olayı, dosya her açıldığında kendi yedeğini oluşturur. Yedek, dosya klasöründeki Yedekler\Kesim Takip alt klasörüne .bak, D:\Yedekler\Kesim Takip\ klasörüne .xls olarak kaydedilir. Bu klasörler yoksa hata gizlenir ve yedek alınamaz.
• Kod dosya silmez ve internete bağlantı kurmaz; yalnızca dosyanın kendisine bağlanır.

Nasıl kullanılır​

1. Dosyayı açın ve makroları etkinleştirin.
2. Sonuçları yazdırmak istediğiniz sayfaya geçin (örneğin ado_pivot).
3. Alt+F8 ile makro listesini açın.
4. ado_sayfa_1, ado_sayfa_2, tablo_by_ozet veya tablo_by_ay_ozet makrosunu seçip çalıştırın.
5. Kendi verinizde kullanacaksanız sorgulardaki sayfa ve sütun adlarını uyarlayın.