Toplu satır silmek

[karahan61]

Merhabalar;

Bir çalışma sayfasında, örnek A3-A500 Aralığında ve G sutununda YEDEK veya ASİL yazan satırlardan istediğimi toplu silmek istiyorum.
Yardımlarınız için teşekkür ederim

 

[acar6783]

İstediğinizi toplu silmek ;Sonuç olarak seçeceksiniz.

En kolay yolu Ctrl tuşuna basılı tutarak seçin ve silin.

 

[acar6783]

Ya da sildiğini hücre bir üste çıkmayacaksa yani sadece silinecekse Bul-değiştir ile yapabilirsiniz.
G sütununu seçin

Ctrl+H

aranan değer : YEDEK
Yeni Değer :
Boş bırakarak silebilirsiniz

 

[muygun]

Merhaba;

Sayfanın kod bölümüne;

Sub asil_sill()
Application.ScreenUpdating = False
For i = 500 To 3 Step -1
If Cells(i, "a") = "ASİL" Or Cells(i, "g") = "ASİL" Then
Rows(i).Delete shift:=xlUp
End If
Next i
End Sub

Sub yedek_sill()
Application.ScreenUpdating = False
For i = 500 To 3 Step -1
If Cells(i, "a") = "YEDEK" Or Cells(i, "g") = "YEDEK" Then
Rows(i).Delete shift:=xlUp
End If
Next i
End Sub

Kodlarını yerleştirin ve bir butona bağlayın.
İyi çalışmalar.