koşullu satır silme yardım!!

[lepricon]

Arkadaşlar herkeze hayırlı günler dilerim

c sütunundaki hücrelerde "hareket yok" yazan hücrelerin dışındaki tüm değerlerin satırlarını komple silsin istiyorum.


ikinci olarak tam tersini de öğrenmek isterim;
yani c sütununda hareket yok yazan hücrelerin satırlarını silmek istiyorum

yardımlar için şimdiden teşekkür ederim

 

[N.Ziya Hiçdurmaz]

yanıt

Sub sil()
Dim sat As Integer
    For sat = Cells(65536, "c").End(xlUp).Row To 1 Step -1
        If Not Cells(sat, "c") = "hareket yok" Then 'Not öğesini kaldırırsanız tersini yapar
            Cells(sat, "c").EntireRow.Delete shift:=xlUp
        End If
    Next
End Sub

 

[Orion1]

Sub hareket()
Dim i As Long
Application.ScreenUpdating = False
For i = Cells(65536, "C").End(xlUp).Row To 1 Step -1
    'Hareket yok yazan hücrelerin dışındaki hücreleri siler.
    If UCase(Cells(i, "C").Value) <> "HAREKET YOK" Then Rows(i).Delete
    'Hareket yok yazan hücreleri siler.
    'If UCase(Cells(i, "C").Value) = "HAREKET YOK" Then Rows(i).Delete
Next i
Application.ScreenUpdating = True
MsgBox "İşlem tamadır.", vbOKOnly + vbInformation, Application.UserName
End Sub

 

[lepricon]

çok çok teşekkür ederim