Birden Fazla Kritere Göre Benzersizleri Sayma

Bu şablon, Veriler sayfasındaki Nakliye numaralarını ADO bağlantısı ve SQL sorgusu kullanarak benzersiz olarak sayar. Aynı numara listede birçok kez geçse de bir kez sayılır. Sayım, kullanıcı tanımlı iki fonksiyonla yapılır ve sonuçlar Özet sayfasında görünür.

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

Dosyanın içeriği​

• Veriler: A1:B183 aralığında veri bulunur. A sütununun başlığı "Nakliye"dir ve altında 2002093175, 2002093199, 2002093135 gibi numaralar yer alır. Aynı numara art arda birçok satırda tekrar eder.
• Özet: "Başlama" ve "Miktar" kriter alanları ile sonuçların yer aldığı küçük bir tablodur. Örnekte kriter değerleri 0 ve 4 olarak girilmiştir.

Kullanılan formüller​

• =Aramaca(A2,B2) (C2): Kriter hücrelerindeki iki değeri alır ve bu aralıktaki benzersiz Nakliye sayısını döndürür.
• =SUM(C2:C4) (C5): Aralıklara göre bulunan sayıları toplar.
• =ToplamBenzersiz() (C6): Kriter uygulamadan, Veriler sayfasındaki tüm benzersiz Nakliye sayısını verir. C5 ile karşılaştırma yapmak için kullanışlıdır.

Makrolar​

• Baglan modülü: Ortak bir ADO bağlantı nesnesi tanımlar. AyniExceleBaglan açık çalışma kitabına, FarkliExceleBaglan aynı klasördeki database.xlsx dosyasına, AccesseBaglan aynı klasördeki database.accdb dosyasına bağlanır. Üçü de Microsoft.ACE.OLEDB.12.0 sağlayıcısını kullanır. Bu bağlantılar yalnızca yerel dosyalara yöneliktir.
• Fonksiyonlar modülü: Aramaca, Başlangic alanı iki kriter arasında kalan kayıtlarda distinct(Nakliye) sorgusu çalıştırıp satır sayısını döndürür. Kayıt yoksa "Bulunamadı" yazar. ToplamBenzersiz aynı işi kriter olmadan yapar.

Kodda dosya silme veya internete bağlantı gibi zararlı bir işlem görünmez. Fonksiyonlar çalışma sayfasından formül olarak çağrılır, ayrıca düğmeyle çalıştırılmaz.

Nasıl kullanılır​

1. Dosyayı açın ve makroları etkinleştirin.
2. Bilgisayarınızda Microsoft ACE OLEDB 12.0 sağlayıcısının kurulu olduğundan emin olun.
3. Veriler sayfasındaki verileri kendi nakliye listenizle değiştirin.
4. Özet sayfasında kriter hücrelerine aralık değerlerini girin.
5. Sonuçları C sütunundaki formüllerde izleyin. Formülleri hesaplatmak için F9 tuşunu kullanabilirsiniz.

Not: Sorguda [Baslangic] adlı bir sütun başlığı kullanılır. Kendi verinizde başlıklar farklıysa, kodda sütun adlarını uyarlamanız gerekir.