Macro to delete all rows that sum to zero

[howard]

I have a macro below to delete all rows there the debits and credits sum to zero


However, it also delete values that do not sum to zero

 Sub DeleteRows_SummingtoZero()
 Dim rw As Long, i As Long
 rw = Cells(Rows.Count, 1).End(xlUp).Row
 For i = rw To 2 Step -1
 If Application.Sum(Cells(i, 9)) = 0 Then
 Rows(i).Delete
 End If
 Next

 End Sub

See link below

Dropbox - File Deleted - Simplify your life

www.dropbox.com

I have also posted on Macro to delete Rows where Values add up to zero In Col H (excelforum.com)

Macro to delete all rows that sum to zero

I have a macro below to delete all rows there the debits and credits sum to zero However, it also delete values that do not sum to zero Sub DeleteRows_SummingtoZero() Dim rw As Long, i As Long rw = Cells(Rows.Count, 1).End(xlUp).Row For i = rw To 2 Step -1 If Application.Sum(Cells(i...

www.mrexcel.com

It would be appreciated if someone could kindly assist me

 

[Joe4]

Why are you trying to use "SUM" if you are not summing anything, but only checking the value in one single column (column I)?
If you mean to check column H, it should be:

 If Cells(i, 8) = 0 Then

 

[Radoslaw Poprawski]

but in the file provided all valuesDebit+Creditdo not equalto 0 PER LINE.
so how this should work if there is no data to delete?

 

[Peter_SSs]

I have also posted on Macro to delete Rows where Values add up to zero In Col H (excelforum.com)

Please post links to all cross-posts

 

[howard]

Thanks for the reply. I am trying to dele all rows where the values in Col H total to zero up to 2 decimal places, leaving the rows where the values do not total zero . In the ample data, only the values in Grey should remain

 

[howard]

Hi Peter

I thought I had posted all the link where I posted, but obviously not

See additional link below

https://www.myonlinetraininghub.com/excel-forum/vba-macros/macro-to-delete-all-the-rows-where-the-values-total-zero

 

[Joe4]

Thanks for the reply. I am trying to dele all rows where the values in Col H total to zero up to 2 decimal places, leaving the rows where the values do not total zero . In the ample data, only the values in Grey should remain

Did you read my reply?
It looks like your code is looking at the 9th column, which is column I, not column H.

 

[JackDanIce]

You can try recording a macro as:

Select the entire data range
Apply a filter
Filter column H for values of 0
Delete the visible rows under the header

If that works, review the code, then post it back if anything needs adjusting. This may help describing the problem easier as well, with resulting code to compare against.

 

[howard]

Thanks Jackdanice for your suggestion but there are no zero Values in Col H

where the debit and credit values add sum to zero, those rows are to be deleted

 

[Joe4]

OK, I give up.
If you are not interested in my replies, I will move on to other threads.