Sub Makro1()
Say = Cells(Rows.Count, "C").End(3).Row
ActiveSheet.Range("C:C").AutoFilter Field:=1, Criteria1:="0"
Rows("2:" & Say).Delete
Cells.AutoFilter
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.