Bu dosya, B:E sütunlarındaki dört kriterin birlikte eşleştiği mükerrer kayıtları filtreler ve G sütunundan başlayan alanda listeler. Aynı sonuç iki ayrı yöntemle üretilir: ADO ile SQL sorgulayan makro ve Excel 365'teki LET fonksiyonuyla hazırlanmış formül.
Bu formül makro gerektirmez; Excel 365 sürümünde çalışır.
Dosyanın içeriği
- Sayfa1: B2:E20 aralığında kaynak veri bulunur. Sütun başlıkları Tarih, Departmanı, Sorun Açıklaması ve Destek Kodu şeklindedir; kayıtlar Planlama, İdari İşler ve Muhasebe gibi departmanlara ait PC Arızası, Klavye Arızası gibi destek taleplerini içerir.
- G2:J20 aralığı sonuç alanıdır; G2:J2 hücrelerinde kaynak tablodaki başlıklar yer alır. Birden fazla kez geçen kayıtlar G3 hücresinden başlayarak buraya listelenir.
- Tarih sütunundaki değerler saat içerir; karşılaştırmada yalnızca gün, ay ve yıl dikkate alınır. Aynı gün içindeki farklı saatler aynı tarih sayılır.
Kullanılan formüller
G3 hücresinde LET tabanlı tek bir formül bulunur. Formül dört sütunu "|" işaretiyle birleştirerek her satır için bir anahtar üretir. INT tarihin saat kısmını atar. KAÇINCI ve FREKANS ile her anahtarın kaç kez geçtiği hesaplanır. FILTER ise yalnızca tekrar edenleri döndürür. İngilizce yazımı şöyledir:Makrolar
Dosya makro içerir, açarken makroları etkinleştirmeniz gerekir. Kodda dosya silme veya dışarıya bağlantı işlemi yoktur. Makrolar Module1 içindedir.- ADO_Kodlama: Çalışma kitabına ADO bağlantısı kurar ve Sayfa1 sayfasının B3:E aralığına SQL sorgusu çalıştırır. Sorgu, yıl, ay, gün ile diğer üç sütunun aynı olduğu kayıtları sayar ve sayısı 1'den büyük olanları seçer. G3:J50000 temizlenir, sonuç G3'ten itibaren yazılır. Sağlayıcı olarak 64 bit Office'te (VBA7) Microsoft.ACE.OLEDB.12.0, eski sürümlerde Microsoft.Jet.OLEDB.4.0 kullanılır. Sorgu dosyanın diskteki kayıtlı halini okuduğundan, veri değiştirildiyse önce dosya kaydedilmelidir.
- Formul_Kodlama: G3:J50000 alanını temizler, aynı LET formülünü G3 hücresine yazar. Bu makro yalnızca Excel 365'te çalışır.
Nasıl kullanılır
- Dosyayı açın ve makroları etkinleştirin.
- B3:E20 aralığına filtrelenecek kayıtları girin veya mevcut verileri değiştirin.
- Excel 365 kullanıyorsanız G3 hücresindeki formül sonucu doğrudan listeler; makro gerekmez.
- Diğer sürümlerde Geliştirici sekmesinden ADO_Kodlama makrosunu çalıştırın.
- Mükerrer kayıtlar G:J sütunlarında listelenir.