Eger hucre sifir ise butun siray sil

[lapot]

merhaba

Arkadaslar elimde buyuk bir dosya var 30000 sirali. Eger Colum F deki hucreler sifir is butun Row'u macroyla silmek istiyorum. Boyle bir macro nasil yazabilirim?

saygilar

 

[N.Ziya Hiçdurmaz]

yanıt

Sub satisil()
Application.ScreenUpdating = False
Dim sat As Integer
    For sat = Cells(65536, "f").End(xlUp).Row To 1 Step -1
        If Cells(sat, "f") = 0 Then
            Cells(sat, "f").EntireRow.Delete
        End If
    Next
Application.ScreenUpdating = True
End Sub

 

[lapot]

Cok tesekkurler arkadasim, kucuk dosyada calisti fakat buyuk dosyada cok yavas, hala sonuc bekliyorum, yinede cok tesekurler
saygilar