Seçili Değere göre İlgili Satırlar Silinsin

[starmetin]

Merhabalar Arkadaşlar ,

Ekli dosyada yapmak istediğimi anlatmaya çalıştım.

Kısaca bahsedecek olursam bir liste ve bu listede yer alan özel kodlar var Silinmesini istediğim özel kodları yazarak bu kodlara karşılık gelen değerlerin o listeden bulunarak ilgili satırların komple silinmesini istiyorum.İlgilenebilecek arkadaşlara yardımları için şimdiden çok teşekkürler.

Not: bu liste uzayabilir , aynı şekilde kodlar da azalıp çoğalabilir.

Hürmetler.

 

[Ayhan Ercan]

Merhaba

Aşağıdaki kodu bir düğmeye atayarak deneyiniz...

Sub satir_sil()
For i = 2 To Sheets("Sayfa1").[I65536].End(3).Row
    If Sheets("Sayfa1").Cells(i, 9) = Sheets("Sayfa1").Range("L1") Then
        Sheets("Sayfa1").Rows(i).Delete shift: = xlUp
    End If
Next
End Sub

 

[starmetin]

Sn: Ayhan Ercan sadece L1 satırındaki özel kod siliniyor onun yanında yer M1 ve N1 satırındaki özel kodlarında silinmesini macroya dahil dahil edebilirsek.Hatta Şöyle bir durumda olabilir şu an için silinmesini için 3'tane özel kod var ancak bu sayı artabilir en azından macroyu şu şekilde dizayn edebilirseniz L1-M1-N1-O1-P1...Z1 arasında yer alan buna karşılık gelen özel kodlar silinsin gibi.

Yardımlarınız ve ilgiliniz için çok teşekkürler.

Hürmeter.

 

[Korhan Ayhan]

Selamlar,

Aşağıdaki kodu kullanabilirsiniz. Bazı kelimeleri eksik yazdığınız için silme işlemi olmayacaktır. O kelimeleri kontrol edip düzeltiniz. (Örnek; "BİTEN PROJ")

Option Explicit
 
Sub ÖZEL_KODA_GÖRE_SATIR_SİL()
    Dim X As Long, Y As Byte
    
    Application.ScreenUpdating = False
    
    For X = Range("A65536").End(3).Row To 2 Step -1
        For Y = 12 To Range("IV1").End(1).Column
        If Cells(X, "I") = Cells(1, Y) Then Rows(X).Delete
        Next
    Next
    
    Application.ScreenUpdating = True
    
    MsgBox "İşleminiz tamamlanmıştır.", vbInformation
End Sub

 

[starmetin]

Sn.Ayhan Ercan ve
Sn. Korhan Aydın yardımlarınız için çok teşekkürler.
Korhan bey ilgili macro şu an için tam istediğim gibi çalışmaktadır.Tekrardan çok teşekkürler.

Hürmetler.