Verileri Hızlı Sayma

Bu dosya, "veriler" sayfasındaki tesisat numaralarını makro yardımıyla gruplar ve her numaranın kaç kez geçtiğini "rapor" sayfasına yazar. Sayma işlemi formülle değil, ADO bağlantısı üzerinden çalışan bir SQL sorgusuyla yapılır. Bu nedenle satır sayısı çok olan listelerde de pratik bir yöntem sunar.

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

Dosyanın içeriği​

• veriler: A1 hücresinde "tesisat" başlığı, A2:A14 aralığında tesisat numaraları (4000004694 ve 4000046824) yer alır. Bu numaralar birden fazla satırda tekrar eder.
• rapor: A1 hücresinde "Tesisat" başlığı bulunur. A2:A4 aralığında 4000004694, 4000041847 ve 4000046824 numaraları listelenmiştir. Makro çalışınca bu alan sorgu sonucuyla yeniden yazılır.

Dosyada çalışma sayfası formülü bulunmaz, işlem tamamen makro ile yapılır.

Makrolar​

Makrolar Module1 içindedir.

• Baglanti_Yap: Dosyanın kendisine ADODB bağlantısı açar. Excel sürümüne göre Microsoft.ACE.OLEDB.12.0 ya da Microsoft.Jet.OLEDB.4.0 sağlayıcısı seçilir. Başlık satırı okunur (hdr=yes).
• BaSLAT: Önce Baglanti_Yap'ı çağırır. Ardından "veriler" sayfasında tesisat sütununa göre gruplama yapan ve her grubun adedini hesaplayan bir SELECT sorgusu çalıştırır. Kayıt dönerse rapor sayfasındaki A2'den başlayan eski sonuçları temizler, yeni sonucu CopyFromRecordset ile yazar ve rapor sayfasını seçer.

Kodda dosya silme ya da dışarıya bağlantı gibi zararlı bir işlem görünmez. Bağlantı yalnızca açık çalışma kitabının kendisine kurulur.

Nasıl kullanılır​

1. Dosyayı açın ve makroları etkinleştirin.
2. "veriler" sayfasının A sütununa tesisat numaralarınızı alt alta yazın. İlk satır başlık olarak "tesisat" kalmalıdır.
3. Alt+F8 ile BaSLAT makrosunu seçip çalıştırın.
4. "rapor" sayfasında her tesisat numarasını ve yanında kaç kez geçtiğini görürsünüz.

Makro, sorguyu dosyanın diskteki kayıtlı haline karşı çalıştırır. Bu yüzden yeni eklediğiniz verileri önce kaydetmeniz gerekir. Makro, sonuçları kod içinde Sheet2 olarak geçen ikinci sayfaya yazar. Sayfa sırasını değiştirirseniz bu durum sonucu etkileyebilir.