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
Satır Silme Makrosu Hatası
Konuyu Okuyanlar: 1 Ziyaretçi