DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
Altın Üyelik Hakkında Bilgi
Sub Bossi6()
son = Cells(65536, 2).End(xlUp).Row - 1
bas = Cells(son, 1).End(xlUp).Offset(1, 0).Row
x = son - bas
For i = son To bas Step -1
If Cells(i, 3).Value = 0 Then Rows(i).Delete
Next
Range("a1").Select
End Sub