• DİKKAT

    DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
    Altın Üyelik Hakkında Bilgi

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

Katılım
6 Şubat 2007
Mesajlar
25
Excel Vers. ve Dili
2003 tr
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
 
yanıt

Kod:
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
 
:cool:
Kod:
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
 
çok çok teşekkür ederim
 
Geri
Üst