Koşula göre form temizleme

[mehmetkoca]

Değerli arkadaşlar ;

Bir çalışma sayfasında bir hücredeki metne göre ,sadece o metni içeren satırları temizlemek diğer satırları o temizlenen satırlara gelecek şekilde yukarıya doğru ayarlamak mümkünmüdür.Bu arada satırlarda belli yerlerinde formül var onların silinmemesi gerekiyor bu durumda..

Saygılarımla.

 

[Korhan Ayhan]

Selamlar,

Aşağıdaki kodu denermisiniz.

Option Explicit
 
Sub ONAYLANIP_AKTARILAN_KAYITLARI_TEMİZLE()
    Dim X As Long, Son_Satır As Long
    
    For X = 5 To Range("B65536").End(3).Row
        If Cells(X, "Q") = "ONAYLANDI-AKTARILDI" Then
            Rows(X).Delete
        End If
    Next
    
    Son_Satır = Range("B65536").End(3).Row
    If Son_Satır = 4 Then Son_Satır = Son_Satır + 1
    
    Range("M5:M" & Son_Satır).Formula = "=RC[2]*95%"
    Range("N5:N" & Son_Satır).Formula = "=RC[-6]*RC[-1]"
    Range("P5:P" & Son_Satır).Formula = "=RC[-8]*RC[-1]"
    
    MsgBox "İşleminiz tamamlanmıştır.", vbInformation
End Sub