Sub iptallerisil()
Application.ScreenUpdating = False
Dim Rng As Range
Dim c As Range
Set Rng = Range("A1:A500")
For Each c In Rng
If c.Value = "İPTAL" Then
c.EntireRow.Delete xlShiftUp
End If
Next c
Application.ScreenUpdating = False
End Sub
Sizlere daha iyi bir deneyim sunabilmek icin sitemizde çerez konumlandırmaktayız, web sitemizi kullanmaya devam ettiğinizde çerezler ile toplanan kişisel verileriniz Veri Politikamız / Bilgilendirmelerimizde belirtilen amaçlar ve yöntemlerle mevzuatına uygun olarak kullanılacaktır.