YAN TARAFI 0 OLAN SATIRLARI SİLMEK

[turkanet]

SN ZAFER; BU KODLARI AYNEN KOPYALADIM FAKAT YİNE ÇOK AÐIR SİLİYOR SİZİN YOLLADIÐINIZ BELGEDE 1 SANİYEDE İÞLEMİ YAPIYORDU. VE BEN B32 VE B236 ARASI HÜCRELER İÇİN KODU UYARLAYAMADIM SANIRIM. NEYİ DEÐİÞTİRMELİYİM?

 

[osmantelci]

ilk sorunuzdan yola çıktım aralardaki yazıları okuyamadım.
Sub Sil()
For Each i In Range("B16:b56")
If i = 0 Then i.ClearContents
Next
Range("B16:b56").SpecialCells(4).Delete -4162
End Sub