Bu yazımızda, Microsoft Excel'de VBA üzerinden ölçütsüz kayıt çıkarmayı öğreneceğiz.
Filtreyi nasıl koyabileceğimizi ve kriterleri nasıl seçebileceğimizi anlamak için bir örnek alalım ve ardından gerekli işlemi yapalım.:-
A sütununda Ad, b sütununda Adres, C sütununda şehir, D sütununda bölge, E sütununda ülke, F sütununda telefon numarası ve G sütununda kriterlerin yer aldığı A:G sütunları aralığında verilerimiz var.
Filtreyi koymak için Makroyu yazmak ve ardından verileri G sütunundaki Veri içermez'e göre filtrelemek ve ardından İçermeyen verilerini silmek istiyoruz. Ardından filtreyi kaldırın ve tüm verileri gösterin.
Not kriterlerine sahip kaydı çıkarmak için aşağıdaki adımları izleyin:
- VBA Sayfasını açın Alt+F11 tuşuna basın
- Modül ekle
- Ardından tekrar ekleme menüsüne gidin ve makroyu nasıl başlatmanız gerektiğini bilmiyorsanız prosedürü alacağınız prosedürü tıklayın.
- Aşağıda belirtilen kodu yazın:
Sub Delete_NotEligible() ActiveSheet.Range("$A$1:$G$15").AutoFilter Field:=7, Criteria1:="" Rows("2:12").Select Selection.Delete Shift:=xlUp Range(" B1").Seçimi seçin.Otomatik Filtre Bitiş Alt
- Kodu çalıştırmak için klavyede F5 tuşuna basın.
- Veriler filtrelenecek ve ardından belirlenen kriterlere göre filtrelenmiş veriler silinecektir.
Kod Açıklaması:
- Uygunluk sütununda boş olmayan hücre kriterlerine sahip filtreyi yerleştirmek için verilerin başlık aralığını tanımladık.
- Satırı seçmek için kodda tanımlayın ve ardından tüm satırı siler
- Sonunda filtreyi açın
Bu şekilde filtreyi belirli kriterler bazında yerleştirebilir ve ardından verileri silebiliriz.
Bloglarımızı beğendiyseniz, Facebook'ta arkadaşlarınızla paylaşın. Ayrıca bizi Twitter ve Facebook'ta da takip edebilirsiniz.
Sizden haber almayı çok isteriz, işimizi nasıl iyileştirebileceğimizi, tamamlayabileceğimizi veya yenileyebileceğimizi ve sizin için daha iyi hale getirebileceğimizi bize bildirin. Bize e-posta sitesinde yazın