ADO ile Tek Bir Kaydı Listeleme

Bu dosya, çok sayıda tekrarlı kaydın bulunduğu bir listeden her kaydın yalnızca bir kez listelenmesini ADO yöntemiyle gösterir. Veri miktarı büyük olduğundan Excel'in standart yöntemleri yavaş kalır; burada işlem tek bir SQL sorgusuyla yapılır. Dosya makro içerir, açarken makroları etkinleştirmeniz gerekir.

Dosyanın içeriği​

• liste sayfası: B sütununda "Veriler" başlığı altında yaklaşık 314.994 satırlık telefon numarası benzeri kayıt bulunur (ör. 905052004578). Aynı değerler birden fazla satırda tekrar eder.
• F sütununda "Benzersiz" başlığı yer alır; makro çalışınca tekrarsız liste F2 hücresinden itibaren buraya yazılır.
• D2 ve D3 hücreleri işlemin başlangıç ve bitiş zamanını tutar.

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

Makrolar​

• Aynilari_Sil (Module3): Çalışma kitabının kendisine ADODB bağlantısı kurar (Microsoft.ACE.OLEDB.12.0 sağlayıcısı, başlık satırı açık). liste sayfasındaki Veriler sütunu için SELECT DISTINCT sorgusu çalıştırır ve sonucu CopyFromRecordset ile F2 hücresinden itibaren yazar. Başlangıç ve bitiş zamanı D2 ile D3 hücrelerine işlenir, geçen süre saniye cinsinden mesaj kutusunda gösterilir.
• Kodda dosya silme veya dışarıya bağlantı yoktur; bağlantı yalnızca açık olan çalışma kitabına yapılır. Makro kaynak veriyi değiştirmez, tekrarsız listeyi ayrı sütuna yazar.

Nasıl kullanılır​

1. Dosyayı açın ve güvenlik uyarısında makroları etkinleştirin.
2. Kendi verinizi kullanacaksanız B sütununa "Veriler" başlığının altından yapıştırın.
3. Alt+F8 ile Aynilari_Sil makrosunu çalıştırın.
4. İşlem bitince geçen süre mesaj kutusunda görünür; benzersiz kayıtlar F sütununda listelenir.

Makro ACE OLEDB sağlayıcısına ihtiyaç duyar; bilgisayarda Microsoft Access Database Engine kurulu olmalıdır. Kodda ADODB.Connection tanımı kullanıldığından VBA düzenleyicisinde Araçlar > Başvurular bölümünden Microsoft ActiveX Data Objects kitaplığının seçili olması gerekir.