Koşula Bağlı Satır Silme

[xbymad]

Merhaba,

Elimde bir excel tablosu mevcut günlük olarak değişmektedir, ilgili tabloada koşula bağlı olarak makro ile satır silmem mümkün müdür?

1'inci koşul, W stununda Kontrol Edilmiştir yazıyor ise satırının tamamı silinecek
2'inci koşul, V stununda Listede Yok yazıyor ise N stunun kontrol edilecek Ücretli yazan satırları silecek

Böyle bir makro çalışması yapılması mümkün müdür

 

[yanginci34]

A sütununun hepsi son satıra kadar dolu olarak baz alındı ve sayfa ismini kırmızı yere siz düzenleyin

Sub satir_sil()
Dim son
Dim i
son = Sheets("Sayfa2").Cells(Rows.Count, 1).End(3).Row
For i = 1 To son
If Cells(i, "w") = "Kontrol Edilmiştir" Then
    Rows(i).Select
    Selection.Delete Shift:=xlUp
    Range("A1").Select
ElseIf Cells(i, "v") = "Listede Yok" And Cells(i, "n") = "Ücretli" Then
    Rows(i).Select
    Selection.Delete Shift:=xlUp
    Range("A1").Select
End If
Next

End Sub

 

[xbymad]

A sütununun hepsi son satıra kadar dolu olarak baz alındı ve sayfa ismini kırmızı yere siz düzenleyin

Sub satir_sil()
Dim son
Dim i
son = Sheets("Sayfa2").Cells(Rows.Count, 1).End(3).Row
For i = 1 To son
If Cells(i, "w") = "Kontrol Edilmiştir" Then
    Rows(i).Select
    Selection.Delete Shift:=xlUp
    Range("A1").Select
ElseIf Cells(i, "v") = "Listede Yok" And Cells(i, "n") = "Ücretli" Then
    Rows(i).Select
    Selection.Delete Shift:=xlUp
    Range("A1").Select
End If
Next

End Sub

Merhaba,

Kontrol ettim fakat tüm verileri silmedi bir kaç değişiklik sağladım çalıştı tşk ederim.

 

[yanginci34]

Rica ederim kolay gelsin.