delete rows that have formulas that equal 0

[andymalan]

hello everyone

i have a number of rows in a worksheet and most of the cells in each row has a formula that returns the value 0.
i need to delete the entire row if the cell in column A of the row is 0.
my search has brought me to the code below, that also does not work.

    Dim LastRow As Long
    Dim i As Long
last = Cells(Rows.Count, "A").End(xlUp).Row

'Delete rows
    For i = last To 2 Step -1
        If (Cells(i, "A").Value) = 0 Then
                Cells(i, "A").EntireRow.Delete
        End If
    Next i

any help will be greatly appreciated[/code]

 

[Peter_SSs]

About how many rows of data in your worksheet?

 

[andymalan]

About how many rows of data in your worksheet?

Hi Peter
i have 1500 rows and 41 columns, each cell has a formula.
after data is imported from another wkb, many cells return a 0 as the source cell is empty/blank.

 

[Peter_SSs]

Thanks. Give this a try in a copy of your workbook.

Sub Del_0_in_col_A()
  With ActiveSheet.UsedRange
    .AutoFilter Field:=1, Criteria1:="0"
    .Offset(1).EntireRow.Delete
    .Parent.AutoFilterMode = False
  End With
End Sub

 

[andymalan]

Purrrrrfect Peter, and a million thanks to you.

kind regards
Andy

 

[Peter_SSs]

You're welcome. Thanks for the follow-up.