(30/04/2021, 23:07)ercansahiner61 yazdı:

(30/04/2021, 19:07)feraz yazdı:

Sub KapananHesabýSil()

    Dim Syf As Worksheet, sonstr As Long, i As Long

    Set Syf = ThisWorkbook.Worksheets("Vadeli Hesap")

    Application.Calculation = xlCalculationManual

    With Syf

        On Error Resume Next

       .ShowAllData

       On Error GoTo 0

       On Error GoTo son

        sonstr = .Cells(Syf.Rows.Count, "A").End(xlUp).Row

        If sonstr < 2 Then Exit Sub

        For i = sonstr To 2 Step -1

            If Val(.Cells(i, "g").Value2) = 0 Then .Range("A" & i).EntireRow.Delete

        Next

    End With

son:

    Application.Calculation = xlCalculationAutomatic

    Set Syf = Nothing

End Sub

ilginize  teşekkürederim. şu an her iki kod da gayet güzel çalışıyor.

Rica ederim.6.mesajdakini kullanın gerçi ben değiştiririm exit subu.Çünkü tata olursa otomatik formül hesaplama iptal olur koddaki 
den dolayı.Exit sub yerine sadece goto son yazılacak yani.