Koşullu Satır Silmek

[baydeniro]

Merhaba Arkadaşlar,

2 sütunu kontrol ederek satır silmek mümkün müdür ? Hem G sütunundaki Karşılama hem de H sütunundaki Eksik Stok sütunları 0 (sıfır olan) satırların kod ile silinmesi mümkün mü ?

 

[turist]

Aşağıdaki Kodu, Buton'a atayın, deneyin.
Not: Örnek verdiğiniz satırları temizleyerek deneyin.

[

Sub sil()
For i = Cells(Rows.Count, 1).End(xlUp).Row To 10 Step -1
If Cells(i, "G") = 0 And Cells(i, "H") = 0 Then Rows(i).EntireRow.Delete
Next i
For i = 10 To Cells(Rows.Count, 1).End(xlUp).Row
Cells(i, 1) = i - 9
Next i
End Sub

 

[baydeniro]

Turist üstadım yine imdada yetiştiniz. Çok teşekkür ediyorum, elinize sağlık, harika bir kod yine. Sağlıcakla kalın.

 

[turist]

Sağ olun, iyi çalışmalar.