(01/05/2021, 10:19)ercansahiner61 yazdı:

(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  goto son

        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.

Günaydın aynı tabloda gizlenmiş olan H ve F sütunlarında formüllü alanlar var. Tabloya ekleme yaptığımda nedense üst satırdaki formül alt satıra  değilde en alttaki boş hücreye başvuru yapıyor, yada tablodaki sütünların üzerine kopyalama yaptığımda kopyalama yaptığım satır kadar yan bakiye ve genel toplam formülleri tablo altındaki boş satıra başvuru yaptığı için boş formül olduğu halde boş geliyor. formülleri elle kopyalama yapmadan düzelmiyor,  nedenini anlayamadım,  benim istediğıim. koda bağlı olmadan ilgili satırdaki C3 hesap no alanı dolu olduğunda formüller devreye girsin istiyorum. birde buna bakabilirseniz memnun olurum.

Günaydın koda formül ekletip hallederiz bugün uygun zamanda.