eğer cümlede balirli kelimeler yoksa satırı sil

[ADEMES]

eğer hücrede mv yada m/v yada open kelimesi yoksa o satırı silmesi için makro gerekli. yardımcı olur musunuz.

selamlar
adem

 

[askm]

Aşağıdaki kodları kullanabilirsiniz. Eğer olmuyorsa örneğinizi ekleyin bakalım.

Sub askm_satir_sil()
Dim zaman As Double
Application.ScreenUpdating = False
Application.Calculation = xlCalculationManual

zaman = Timer
SonSatir = Range("A65536").End(xlUp).Row
For i = SonSatir To 1 Step -1
    If UCase(Cells(i, "A")) Like "*MV*" Or UCase(Cells(i, "A")) Like "*M/V*" Or UCase(Cells(i, "A")) Like "*OPEN*" Then
        GoTo 10
    Else
         Rows(i).Delete
    End If
10:
Next

Application.Calculation = xlCalculationAutomatic
Application.ScreenUpdating = True

MsgBox Format(Timer - zaman, "hh:mm:ss") & " Sürede İşlem Tamamlandı" & vbLf & Application.UserName, _
vbInformation, "ASKM"
End Sub

 

[Ömer]

Merhaba,

Alternatif olsun.
A sütununa göre işlem yapar.

Sub Sartli_Sil()

    Dim son As Long, i As Long, ara(), j As Byte
    
    ara = Array("mv", "m/v", "open") 'aranan değerler
    son = Cells(Rows.Count, "A").End(xlUp).Row
    
    Application.ScreenUpdating = False
    If son = 1 And Cells(son, "A") = "" Then Exit Sub
    
    For i = son To 1 Step -1
        For j = 0 To UBound(ara)
            If InStr(1, Cells(i, "A"), ara(j)) > 0 Then
                Rows(i).Delete Shift:=xlUp
            End If
        Next j
    Next i
    
    Application.ScreenUpdating = True
    
End Sub

.