DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
Altın Üyelik Hakkında Bilgi
Şuan dosya ekleyemiyorum. Altın üye olmak için beklemedeyim.Örnek dosyanızı paylaşır mısınız?
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