DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
Altın Üyelik Hakkında Bilgi
Peki;fructose' Alıntı:Sub sıfırtemizle()
For x = [a65526].End(3).Row To 2 Step -1
If Cells(x, 1).Value = "0" Then Cells(x, 1).ClearContents
Next
End Sub
Sub Test()
Dim MyRng As Range
Set MyRng = Range("G1:H" & Cells(65536, 8).End(xlUp).Row)
MyRng.Replace 0, Empty, xlWhole, , True
End Sub