Belirli Kriterlere Sahip Satırları Silme

Belirli Kriterlere Sahip Satırları Silme isimli kodu kullanarak, belirlediğiniz kritere sahip satırları hızlı bir şekilde silebilirsiniz.

XD Destek İste
Sub Delete_Rows(Data_range As Range, Text As String)
Dim Row_Counter As Integer

For Row_Counter = Data_range.Rows.Count To 1 Step -1
    If Data_range Is Nothing Then
 Exit Sub
    If UCase(Left(Data_range.Cells(Row_Counter, 1).Value, Len(Text))) = UCase(Text) Then
                Data_range.Cells(Row_Counter, 1).EntireRow.Delete
    End If
Next Row_Counter

End Sub

Gerekli Adımlar

Kodu çalıştırmanız için aşağıdaki adımları yerine getirmeniz gerekir.

  1. Microsoft Visual Basic for Applications penceresini (Alt + F11) açın.
  2. Project - VBAProject alanının, ekranın sol tarafında görüldüğünden emin olun. Görünmüyorsa, Ctrl + R kısayolu ile hızlıca açın.
  3. Araç çubuklarından Insert -> Module yazısına tıklayın.
  4. Solunda klasör simgesi olan Modules yazısının başındaki + simgesine tıklayın.
  5. Alt kısma eklenecek gelecek olan Module(1) yazısına çift tıklayın.
  6. Üstteki kodu yapıştırın.
#Belirli Kriterlere Sahip Satırları Silme
50 Farklı Hazır Makro (VBA) Kodu
Excel Üzerinden Klasör Açma Kodu
Excel Hücresine Gitme Makrosu
Aktif Hücrenin Satır Numarasını Bulma
Excel ile Faiz Hesaplama Kodu
Listbox ve Combobox Satır Kaydırma
Seçili Sütunların Sayısını Bulma
Açılışta Üç Kere Şifre Hakkı Vermek
Excel Dosya Silme İşlemi Makrosu
Excel Açılırken Otomatik İşlem Yaptırma
Hatalı Hücreleri Renklendirme
Excel Makroları ile Dosya Sayısını Bulma
Aktif Hücrenin Sütun Numarasını Bulma
Excel ile Demo Yapma Makrosu
Excel Makroları ile Hücreye Saat Ekleme
Sağ Tık ile Açılan Menüye Ekleme Yapma
Excel Üzerinden Klasör Alma Kodu
Açılışta İstediğiniz Sayfanın Aktif Edilmesi
Hücrenin Arka Plan Rengini Değiştirme
Checkbox ile Exceli Kapatıp Açmak
Satırı Kes Kopyala ve Yapıştır
Her Bir Sütundaki Maksimum Değeri Bulma
UserForm Kapatma Kodu
Son Dolu Satırın Bir Altına Yazdırma
Kopyala ve Özel Yapıştır
Dolar Okutma Makrosu
Bir Çalışma Kitabında Kaç Sayfa Var
Başka Dosyada Şifreli Userform Oluşturmak
Son Sütun Numarasını Bulma
Sütunu Kes Kopyala ve Yapıştır
Alarmlı Saat Ekleme Kodu
Top 10 Değeri Renklendirme
Çalışma Sayfaları için Yakınlaştırma Yüzdesini Ayarlama
Excel Crackleme İşlemi Makrosu
Satırlardaki Farkı Renklendirme
Makrolar ile Eliptik Form Oluşturma
Yazı Efekti Verme Kodu
Program Başlangıcı Kodları
Kes Kopyala ve Başka Çalışma Kitabına Yapıştır
Sayıları Rastgele Karıştırmak
Excel Makroları ile İşlemci Bilgilerini Bulma
Excel Satır Seçme Kodu
Sütun Genişliğini Ayarla
Excel Makroları ile Klasör Arama
Excel Kapanırken Otomatik İşlem Yaptırma
Excel Kitabındaki Sayfa Adlarının Listelenmesi
Aktif Satırı ve Sütunu Vurgulama
Belirli Kriterlere Sahip Satırları Silme
Excel Menüsüne Ekleme Yapma Kodu
Açık Olan Tüm Excel Sayfalarını Kayıt Ederek Kapatma
Kopyala ve Değer Olarak Yapıştır
Üstteki alanda, Google Reklamları yerine sizin reklamınızın yayınlanmasını ister misiniz?
Reklam vermek istiyorum

Daha önce yorum yapılmamış!

Yazdığınız uzunca Excel formülleri, formül çubuğumuza sığmıyorsa, farenizi formül çubuğunun alt kısmına getirip basılı tutmak suretiyle, aşağı doğru çekerek formül çubuğunuzu genişletebilirsiniz.

Formül alanını büyütme

Formül alanını büyütme

Bu işlemi daha hızlı yapmak için Ctrl + Shift + U kısayolunu kullanabilirsiniz.
Yükleniyor...