ADO ile Verileri Özet Bazlı Listeleme

Bu dosya, ADO bağlantısı ve SQL sorgusu kullanarak ham kredi risk verilerini dönem bazında özetleyen bir rapor üretir. Veriler Sheet1 sayfasından okunur, gruplanıp toplanır ve sonuç Sheet2 sayfasına yazılır.

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

Dosyanın içeriği​

• Sheet1: Ham veri sayfasıdır (A1:H817). Sütunlar: DONEM, Risk Kodu, Kredi Limiti, 0-12 Ay Risk, 12-24 Ay Risk, 24+ Ay Risk, Faiz Tahakkuku ve Faiz Reeskontu. Dönemler 01/2016 gibi ay/yıl biçimindedir; Risk Kodu değerleri 001Genel Limit, 100Nakdi Krediler(TL) gibi başlar.
• Sheet2: Raporun yazıldığı sayfadır. Başlıklar Dönem, Risk Kodu, Kredi Limiti, 0-12 Risk, 12-24 Risk, 24+ Risk, Faiz Tah ve Faiz Rees şeklindedir. Makro her çalıştığında bu sayfanın içeriği silinip yeniden oluşturulur.

Sayfalarda hücre formülü bulunmaz; hesaplamaların tamamı SQL sorgusu içinde yapılır.

Makrolar​

Makrolar Module1 içindedir.

• baglan: Dosyanın kendisine ACE OLEDB (VBA7 değilse Jet) sağlayıcısıyla bir ADO bağlantısı açar. Başlık satırı kabul edilir (hdr=yes).
• Raporla: Önce baglan prosedürünü çağırır ve Sheet2 içeriğini temizler. Ardından birleştirilmiş (UNION ALL) bir SQL sorgusu çalıştırır:
  • Risk Kodu'nun ilk 3 karakterine göre, dönem bazında Kredi Limiti, risk ve faiz sütunlarının toplamını alır; 001 ile başlayan genel limit satırlarını dışarıda bırakır.
  • Her dönem için Nakdi (kod 1 ile başlayanlar), Gayri Nakdi (2 ve 3), Leasing (6) ve Faktoring (7) ara toplam satırlarını ekler.
  • Her dönemin sonuna, gruplar arasında ayırıcı olarak kullanılan boş bir satır ekler.
  • Sonuçları yıl, ay, SIRA ve Risk Kodu'na göre sıralar.
  Sonuç sütun başlıklarıyla birlikte Sheet2'ye CopyFromRecordset ile aktarılır, bağlantı kapatılır ve Sheet2 seçilir.

Kodda dosya silme ya da dışarıya bağlantı gibi zararlı bir işlem yoktur; bağlantı yalnızca çalışma kitabının kendisine kurulur.

Nasıl kullanılır​

1. Dosyayı açın ve makroları etkinleştirin.
2. Sheet1 sayfasına kendi verilerinizi aynı sütun başlıklarıyla yapıştırın.
3. Alt+F8 ile Raporla makrosunu çalıştırın.
4. Sheet2 sayfasında dönem bazlı özet raporu inceleyin.

Not: Sorgu sütun adlarına ve sayfa adına (Sheet1) bağlı olduğundan bu adları değiştirmeyin. Dosya kayıtlı olmalıdır, çünkü bağlantı dosyanın diskteki kopyası üzerinden kurulur.