DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
Altın Üyelik Hakkında Bilgi
Sub sifirgizle()
Range("A1").Select
Do
deger = ActiveCell.Value
If deger = 0 Then
Selection.EntireRow.Hidden = True
End If
ActiveCell.Offset(rowOffset:=1, columnOffset:=0).Activate
Loop Until deger = ""
End Sub