On Jun 19, 10:55*pm, Joel wrote:
The code was more complicated than I originally expected

Sub removerows()

Columns("F").AutoFilter _
* * field:=1, _
* * Criteria1:=0
Rows.SpecialCells(xlCellTypeVisible).EntireRow.Del ete

FirstRow = 1
RowCount = FirstRow
ID = Range("A" & RowCount)
Do While Range("F" & RowCount) < ""
* *NextID = Range("A" & (RowCount + 1))
* *If NextID < "" Then
* * * If ID < NextID Then
* * * * *'sum the rows from FirstRow to present Row
* * * * *Set SumRange = Range(Range("F" & FirstRow), _
* * * * * * Range("F" & RowCount))
* * * * *Total = WorksheetFunction.Sum(SumRange)

* * * * *If Total = 0 Then
* * * * * * Rows(FirstRow & ":" & RowCount).Delete
* * * * * * RowCount = FirstRow
* * * * *Else
* * * * * *RowCount = RowCount + 1
* * * * * *FirstRow = RowCount
* * * * *End If
* * * * *ID = Range("A" & RowCount)
* * * End If
* *Else
* * * RowCount = RowCount + 1
* *End If
Loop
End Sub



"Sinner" wrote:
On Jun 19, 8:11 pm, Joel wrote:
Columns("F").AutoFilter _
* * field:=1, _
* * Criteria1:=0
Rows.SpecialCells(xlCellTypeVisible).EntireRow.Del ete

"Sinner" wrote:
Hi,

I want to remove all zero balance in the file.
File:http://savefile.com/files/1618048

Thx.- Hide quoted text -

- Show quoted text -

Thx for the reply Joel.
Still the numbers with comulative zero in columnF are there like
(-2000) & (+2000) for same entities.
Do we have to fill the blank# cells in columnA first & then make a
temp column to offset the balances & remove balances that are zero?

Waiting for reply.
Thx.- Hide quoted text -

- Show quoted text -

Thx Joel for the concern.
The code however is dowing two unusual things.

-Deleting the header row.
-Each time I run the macro, it is deleting a row from remaining data
for no reason.

Hope you can fix that.

Thx alot once again.
Waiting for reply.