Help with code deleting reversal entries

Certified

Board Regular
Joined
Jan 24, 2012
Messages
189
I am trying to create a code that will delete all of the reversing entries. The ending balance (the sum of the "Amouont in loc. curr.2" column) is -1,464,500, which is turns out to be the last entry (line 16).


[TABLE="width: 2572"]
<tbody>[TR]
[TD]User Name[/TD]
[TD]Company Code[/TD]
[TD]Year/month[/TD]
[TD]G/L Account[/TD]
[TD]Long Text[/TD]
[TD]Profit Center[/TD]
[TD]Cost Center[/TD]
[TD]Name 1[/TD]
[TD]Optional Check 2/Header Text[/TD]
[TD]Check Description/Item Text[/TD]
[TD]Trading Partner[/TD]
[TD]Posting Date[/TD]
[TD]Document currency[/TD]
[TD]Amount in doc. curr.[/TD]
[TD]Local Currency[/TD]
[TD]Amount in LC[/TD]
[TD]Local currency 2[/TD]
[TD]Amount in loc.curr.2[/TD]
[TD]Transaction Code[/TD]
[TD]Eff.exchange rate[/TD]
[TD]Document Type[/TD]
[TD]Document Number[/TD]
[TD]Transaction Type[/TD]
[TD][/TD]
[/TR]
[TR]
[TD]5205320[/TD]
[TD]A101[/TD]
[TD]2015/01[/TD]
[TD]1740500003[/TD]
[TD]OPERATING SOFTWARE -SHARED SVC CLIENT[/TD]
[TD]14M3042000[/TD]
[TD][/TD]
[TD]A101 MGT NY[/TD]
[TD]Ppd Adj[/TD]
[TD]SOFTWARE LIC AGREEMENT-10/17/14-9/17/17 16G6038000[/TD]
[TD][/TD]
[TD]1/31/2015[/TD]
[TD]USD[/TD]
[TD]-909000.00[/TD]
[TD]USD[/TD]
[TD="align: center"]########[/TD]
[TD]USD[/TD]
[TD]-909000.00[/TD]
[TD]FBS1[/TD]
[TD] 1.00000[/TD]
[TD]ZZ[/TD]
[TD="colspan: 2"]3000002802[/TD]
[TD][/TD]
[/TR]
[TR]
[TD]5205320[/TD]
[TD]A101[/TD]
[TD]2015/01[/TD]
[TD]1740500003[/TD]
[TD]OPERATING SOFTWARE -SHARED SVC CLIENT[/TD]
[TD]14M3042000[/TD]
[TD][/TD]
[TD]A101 MGT NY[/TD]
[TD]Ppd Adj[/TD]
[TD]SOFTWARE LIC AGREEMENT-10/17/14-9/17/17 16G6038000[/TD]
[TD][/TD]
[TD]1/31/2015[/TD]
[TD]USD[/TD]
[TD]-909000.00[/TD]
[TD]USD[/TD]
[TD="align: center"]########[/TD]
[TD]USD[/TD]
[TD]-909000.00[/TD]
[TD]FBS1[/TD]
[TD] 1.00000[/TD]
[TD]ZZ[/TD]
[TD="colspan: 2"]3000002803[/TD]
[TD][/TD]
[/TR]
[TR]
[TD]5205320[/TD]
[TD]A101[/TD]
[TD]2015/01[/TD]
[TD]1740500003[/TD]
[TD]OPERATING SOFTWARE -SHARED SVC CLIENT[/TD]
[TD]14M3042000[/TD]
[TD][/TD]
[TD]A101 MGT NY[/TD]
[TD]Ppd Adj[/TD]
[TD]SOFTWARE LIC AGREEMENT-10/17/14-9/17/17 16G6038000[/TD]
[TD][/TD]
[TD]1/31/2015[/TD]
[TD]USD[/TD]
[TD]-909000.00[/TD]
[TD]USD[/TD]
[TD="align: center"]########[/TD]
[TD]USD[/TD]
[TD]-909000.00[/TD]
[TD]FBS1[/TD]
[TD] 1.00000[/TD]
[TD]ZZ[/TD]
[TD="colspan: 2"]3000002804[/TD]
[TD][/TD]
[/TR]
[TR]
[TD]5205320[/TD]
[TD]A101[/TD]
[TD]2015/01[/TD]
[TD]1740500003[/TD]
[TD]OPERATING SOFTWARE -SHARED SVC CLIENT[/TD]
[TD]14M3042000[/TD]
[TD][/TD]
[TD]A101 MGT NY[/TD]
[TD]Ppd Adj[/TD]
[TD]SOFTWARE LIC AGREEMENT-10/17/14-9/17/17 16G6038000[/TD]
[TD][/TD]
[TD]1/31/2015[/TD]
[TD]USD[/TD]
[TD]-909000.00[/TD]
[TD]USD[/TD]
[TD="align: center"]########[/TD]
[TD]USD[/TD]
[TD]-909000.00[/TD]
[TD]FBS1[/TD]
[TD] 1.00000[/TD]
[TD]ZZ[/TD]
[TD="colspan: 2"]3000002805[/TD]
[TD][/TD]
[/TR]
[TR]
[TD]3046037[/TD]
[TD]A101[/TD]
[TD]2015/01[/TD]
[TD]1740500003[/TD]
[TD]OPERATING SOFTWARE -SHARED SVC CLIENT[/TD]
[TD]14M3042000[/TD]
[TD][/TD]
[TD]A101 MGT NY[/TD]
[TD]Ppd Adj[/TD]
[TD]SOFTWARE LIC AGREEMENT-10/17/14-9/17/17 16G6038000[/TD]
[TD][/TD]
[TD]1/31/2015[/TD]
[TD]USD[/TD]
[TD]909000.00[/TD]
[TD]USD[/TD]
[TD="align: center"]########[/TD]
[TD]USD[/TD]
[TD]909000.00[/TD]
[TD]FBS1[/TD]
[TD] 1.00000[/TD]
[TD]ZZ[/TD]
[TD="colspan: 2"]3000002806[/TD]
[TD][/TD]
[/TR]
[TR]
[TD]3046037[/TD]
[TD]A101[/TD]
[TD]2015/01[/TD]
[TD]1740500003[/TD]
[TD]OPERATING SOFTWARE -SHARED SVC CLIENT[/TD]
[TD]14M3042000[/TD]
[TD][/TD]
[TD]A101 MGT NY[/TD]
[TD]Ppd Adj[/TD]
[TD]SOFTWARE LIC AGREEMENT-10/17/14-9/17/17 16G6038000[/TD]
[TD][/TD]
[TD]1/31/2015[/TD]
[TD]USD[/TD]
[TD]909000.00[/TD]
[TD]USD[/TD]
[TD="align: center"]########[/TD]
[TD]USD[/TD]
[TD]909000.00[/TD]
[TD]FBS1[/TD]
[TD] 1.00000[/TD]
[TD]ZZ[/TD]
[TD="colspan: 2"]3000002807[/TD]
[TD][/TD]
[/TR]
[TR]
[TD]3046037[/TD]
[TD]A101[/TD]
[TD]2015/01[/TD]
[TD]1740500003[/TD]
[TD]OPERATING SOFTWARE -SHARED SVC CLIENT[/TD]
[TD]14M3042000[/TD]
[TD][/TD]
[TD]A101 MGT NY[/TD]
[TD]Ppd Adj[/TD]
[TD]SOFTWARE LIC AGREEMENT-10/17/14-9/17/17 16G6038000[/TD]
[TD][/TD]
[TD]1/31/2015[/TD]
[TD]USD[/TD]
[TD]909000.00[/TD]
[TD]USD[/TD]
[TD="align: center"]########[/TD]
[TD]USD[/TD]
[TD]909000.00[/TD]
[TD]FBS1[/TD]
[TD] 1.00000[/TD]
[TD]ZZ[/TD]
[TD="colspan: 2"]3000002808[/TD]
[TD][/TD]
[/TR]
[TR]
[TD]5205320[/TD]
[TD]A101[/TD]
[TD]2015/01[/TD]
[TD]1740500003[/TD]
[TD]OPERATING SOFTWARE -SHARED SVC CLIENT[/TD]
[TD]16G6038000[/TD]
[TD][/TD]
[TD]A101 TECHNOLOGY NY[/TD]
[TD]PC Reclass 3000002654[/TD]
[TD]WORK ORDER DG1502319 - 12/30/14 - 16G6038000[/TD]
[TD][/TD]
[TD]1/31/2015[/TD]
[TD]USD[/TD]
[TD]1464500.00[/TD]
[TD]USD[/TD]
[TD="align: center"]########[/TD]
[TD]USD[/TD]
[TD]1464500.00[/TD]
[TD]FBS1[/TD]
[TD] 1.00000[/TD]
[TD]ZZ[/TD]
[TD="colspan: 2"]3000003226[/TD]
[TD][/TD]
[/TR]
[TR]
[TD]5205320[/TD]
[TD]A101[/TD]
[TD]2015/01[/TD]
[TD]1740500003[/TD]
[TD]OPERATING SOFTWARE -SHARED SVC CLIENT[/TD]
[TD]14M3042000[/TD]
[TD][/TD]
[TD]A101 MGT NY[/TD]
[TD]PC Reclass 3000002654[/TD]
[TD]WORK ORDER DG1502319 - 12/30/14 - 16G6038000[/TD]
[TD][/TD]
[TD]1/31/2015[/TD]
[TD]USD[/TD]
[TD]-1464500.00[/TD]
[TD]USD[/TD]
[TD="align: center"]########[/TD]
[TD]USD[/TD]
[TD]-1464500.00[/TD]
[TD]FBS1[/TD]
[TD] 1.00000[/TD]
[TD]ZZ[/TD]
[TD="colspan: 2"]3000003226[/TD]
[TD][/TD]
[/TR]
[TR]
[TD]S_ECC_PEC400[/TD]
[TD]A101[/TD]
[TD]2015/02[/TD]
[TD]1740500003[/TD]
[TD]OPERATING SOFTWARE -SHARED SVC CLIENT[/TD]
[TD]14M3042000[/TD]
[TD][/TD]
[TD]A101 MGT NY[/TD]
[TD][/TD]
[TD]WORK ORDER DG1502319 - 12/30/14 - 16G6038000[/TD]
[TD][/TD]
[TD]2/1/2015[/TD]
[TD]USD[/TD]
[TD]-1464500.00[/TD]
[TD]USD[/TD]
[TD="align: center"]########[/TD]
[TD]USD[/TD]
[TD]-1464500.00[/TD]
[TD]FBS1[/TD]
[TD] 1.00000[/TD]
[TD]ZZ[/TD]
[TD="colspan: 2"]3000002786[/TD]
[TD][/TD]
[/TR]
[TR]
[TD]S_ECC_PEC400[/TD]
[TD]A101[/TD]
[TD]2015/02[/TD]
[TD]1740500003[/TD]
[TD]OPERATING SOFTWARE -SHARED SVC CLIENT[/TD]
[TD]14M3042000[/TD]
[TD][/TD]
[TD]A101 MGT NY[/TD]
[TD]Ppd Adj[/TD]
[TD]SOFTWARE LIC AGREEMENT-10/17/14-9/17/17 16G6038000[/TD]
[TD][/TD]
[TD]2/1/2015[/TD]
[TD]USD[/TD]
[TD]909000.00[/TD]
[TD]USD[/TD]
[TD="align: center"]########[/TD]
[TD]USD[/TD]
[TD]909000.00[/TD]
[TD]FBS1[/TD]
[TD] 1.00000[/TD]
[TD]ZZ[/TD]
[TD="colspan: 2"]3000002839[/TD]
[TD][/TD]
[/TR]
[TR]
[TD]S_ECC_PEC400[/TD]
[TD]A101[/TD]
[TD]2015/02[/TD]
[TD]1740500003[/TD]
[TD]OPERATING SOFTWARE -SHARED SVC CLIENT[/TD]
[TD]16G6038000[/TD]
[TD][/TD]
[TD]A101 TECHNOLOGY NY[/TD]
[TD]PC Reclass 3000002654[/TD]
[TD]WORK ORDER DG1502319 - 12/30/14 - 16G6038000[/TD]
[TD][/TD]
[TD]2/1/2015[/TD]
[TD]USD[/TD]
[TD]-1464500.00[/TD]
[TD]USD[/TD]
[TD="align: center"]########[/TD]
[TD]USD[/TD]
[TD]-1464500.00[/TD]
[TD]FBS1[/TD]
[TD] 1.00000[/TD]
[TD]ZZ[/TD]
[TD="colspan: 2"]3000003283[/TD]
[TD][/TD]
[/TR]
[TR]
[TD]S_ECC_PEC400[/TD]
[TD]A101[/TD]
[TD]2015/02[/TD]
[TD]1740500003[/TD]
[TD]OPERATING SOFTWARE -SHARED SVC CLIENT[/TD]
[TD]14M3042000[/TD]
[TD][/TD]
[TD]A101 MGT NY[/TD]
[TD]PC Reclass 3000002654[/TD]
[TD]WORK ORDER DG1502319 - 12/30/14 - 16G6038000[/TD]
[TD][/TD]
[TD]2/1/2015[/TD]
[TD]USD[/TD]
[TD]1464500.00[/TD]
[TD]USD[/TD]
[TD="align: center"]########[/TD]
[TD]USD[/TD]
[TD]1464500.00[/TD]
[TD]FBS1[/TD]
[TD] 1.00000[/TD]
[TD]ZZ[/TD]
[TD="colspan: 2"]3000003283[/TD]
[TD][/TD]
[/TR]
[TR]
[TD]S_ECC_PEC400[/TD]
[TD]A101[/TD]
[TD]2015/02[/TD]
[TD]1740500003[/TD]
[TD]OPERATING SOFTWARE -SHARED SVC CLIENT[/TD]
[TD]14M3042000[/TD]
[TD][/TD]
[TD]A101 MGT NY[/TD]
[TD][/TD]
[TD]WORK ORDER DG1502319 - 12/30/14 - 16G6038000[/TD]
[TD][/TD]
[TD]2/12/2015[/TD]
[TD]USD[/TD]
[TD]1464500.00[/TD]
[TD]USD[/TD]
[TD="align: center"]########[/TD]
[TD]USD[/TD]
[TD]1464500.00[/TD]
[TD]FB50[/TD]
[TD] 1.00000[/TD]
[TD]Z2[/TD]
[TD="colspan: 2"]3000003546[/TD]
[TD][/TD]
[/TR]
[TR]
[TD]S_ECC_PEC400[/TD]
[TD]A101[/TD]
[TD]2015/02[/TD]
[TD]1740500003[/TD]
[TD]OPERATING SOFTWARE -SHARED SVC CLIENT[/TD]
[TD]14M3042000[/TD]
[TD][/TD]
[TD]A101 MGT NY[/TD]
[TD][/TD]
[TD]Feb 2015 Treas TMS Billing[/TD]
[TD]X00320[/TD]
[TD]2/26/2015[/TD]
[TD]USD[/TD]
[TD]-1464500.00[/TD]
[TD]USD[/TD]
[TD="align: center"]########[/TD]
[TD]USD[/TD]
[TD]-1464500.00[/TD]
[TD]FB50[/TD]
[TD] 1.00000[/TD]
[TD]Z2[/TD]
[TD="colspan: 2"]3000003963[/TD]
[TD][/TD]
[/TR]
</tbody>[/TABLE]


Here is the code i have created.

Code:
Sub newtest()Dim var1 As String
Dim var2 As Double
Dim var3 As String
Dim var4 As Double
Dim xrow As Integer
Dim x As Integer
Dim y As Integer
Dim p As Integer
xrow = 100
For x = 2 To xrow
xrow = ActiveSheet.Cells(Rows.Count, 1).End(xlUp).Row
   var2 = Cells(x, "r")
   var1 = Cells(x, "d")
   var3 = ""
   var4 = 0   
   For y = 2 To xrow   
        var4 = -Cells(y, "r")
        var3 = Cells(y, "d")        
            If var1 = var3 And var2 = var4 Then
                Cells(y, "x") = "delete"
                Cells(x, "x") = "delete"                    
                    For p = 2 To xrow                    
                        If Cells(p, "x") = "delete" Then                        
                        Cells(p, "x").EntireRow.Select
                        Selection.Delete                        
                        End If 
                    Next p
             End If
    Next y
Next x
End Sub

When I run the code I get the following

[TABLE="width: 2572"]
<tbody>[TR]
[TD]User Name[/TD]
[TD]Company Code[/TD]
[TD]Year/month[/TD]
[TD]G/L Account[/TD]
[TD]Long Text[/TD]
[TD]Profit Center[/TD]
[TD]Cost Center[/TD]
[TD]Name 1[/TD]
[TD]Optional Check 2/Header Text[/TD]
[TD]Check Description/Item Text[/TD]
[TD]Trading Partner[/TD]
[TD]Posting Date[/TD]
[TD]Document currency[/TD]
[TD]Amount in doc. curr.[/TD]
[TD]Local Currency[/TD]
[TD]Amount in LC[/TD]
[TD]Local currency 2[/TD]
[TD]Amount in loc.curr.2[/TD]
[TD]Transaction Code[/TD]
[TD]Eff.exchange rate[/TD]
[TD]Document Type[/TD]
[TD]Document Number[/TD]
[TD]Transaction Type[/TD]
[TD][/TD]
[/TR]
[TR]
[TD]5205320[/TD]
[TD]A101[/TD]
[TD]2015/01[/TD]
[TD]1740500003[/TD]
[TD]OPERATING SOFTWARE -SHARED SVC CLIENT[/TD]
[TD]14M3042000[/TD]
[TD][/TD]
[TD]A101 MGT NY[/TD]
[TD]PC Reclass 3000002654[/TD]
[TD]WORK ORDER DG1502319 - 12/30/14 - 16G6038000[/TD]
[TD][/TD]
[TD]1/31/2015[/TD]
[TD]USD[/TD]
[TD]-1464500.00[/TD]
[TD]USD[/TD]
[TD="align: center"]########[/TD]
[TD]USD[/TD]
[TD]-1464500.00[/TD]
[TD]FBS1[/TD]
[TD] 1.00000[/TD]
[TD]ZZ[/TD]
[TD="colspan: 2"]3000003226[/TD]
[TD][/TD]
[/TR]
[TR]
[TD]S_ECC_PEC400[/TD]
[TD]A101[/TD]
[TD]2015/02[/TD]
[TD]1740500003[/TD]
[TD]OPERATING SOFTWARE -SHARED SVC CLIENT[/TD]
[TD]16G6038000[/TD]
[TD][/TD]
[TD]A101 TECHNOLOGY NY[/TD]
[TD]PC Reclass 3000002654[/TD]
[TD]WORK ORDER DG1502319 - 12/30/14 - 16G6038000[/TD]
[TD][/TD]
[TD]2/1/2015[/TD]
[TD]USD[/TD]
[TD]-1464500.00[/TD]
[TD]USD[/TD]
[TD="align: center"]########[/TD]
[TD]USD[/TD]
[TD]-1464500.00[/TD]
[TD]FBS1[/TD]
[TD] 1.00000[/TD]
[TD]ZZ[/TD]
[TD="colspan: 2"]3000003283[/TD]
[TD][/TD]
[/TR]
[TR]
[TD]S_ECC_PEC400[/TD]
[TD]A101[/TD]
[TD]2015/02[/TD]
[TD]1740500003[/TD]
[TD]OPERATING SOFTWARE -SHARED SVC CLIENT[/TD]
[TD]14M3042000[/TD]
[TD][/TD]
[TD]A101 MGT NY[/TD]
[TD][/TD]
[TD]WORK ORDER DG1502319 - 12/30/14 - 16G6038000[/TD]
[TD][/TD]
[TD]2/12/2015[/TD]
[TD]USD[/TD]
[TD]1464500.00[/TD]
[TD]USD[/TD]
[TD="align: center"]########[/TD]
[TD]USD[/TD]
[TD]1464500.00[/TD]
[TD]FB50[/TD]
[TD] 1.00000[/TD]
[TD]Z2[/TD]
[TD="colspan: 2"]3000003546[/TD]
[TD][/TD]
[/TR]
[TR]
[TD]S_ECC_PEC400[/TD]
[TD]A101[/TD]
[TD]2015/02[/TD]
[TD]1740500003[/TD]
[TD]OPERATING SOFTWARE -SHARED SVC CLIENT[/TD]
[TD]14M3042000[/TD]
[TD][/TD]
[TD]A101 MGT NY[/TD]
[TD][/TD]
[TD]Feb 2015 Treas TMS Billing[/TD]
[TD]X00320[/TD]
[TD]2/26/2015[/TD]
[TD]USD[/TD]
[TD]-1464500.00[/TD]
[TD]USD[/TD]
[TD="align: center"]########[/TD]
[TD]USD[/TD]
[TD] (1,464,500.00)[/TD]
[TD]FB50[/TD]
[TD] 1.00000[/TD]
[TD]Z2[/TD]
[TD="colspan: 2"]3000003963[/TD]
[TD][/TD]
[/TR]
[TR]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[/TR]
</tbody>[/TABLE]

this is the result I am expecting to get


[TABLE="width: 2572"]
<tbody>[TR]
[TD]S_ECC_PEC400[/TD]
[TD]A101[/TD]
[TD]2015/02[/TD]
[TD]1740500003[/TD]
[TD]OPERATING SOFTWARE -SHARED SVC CLIENT[/TD]
[TD]14M3042000[/TD]
[TD][/TD]
[TD]A101 MGT NY[/TD]
[TD][/TD]
[TD]Feb 2015 Treas TMS Billing[/TD]
[TD]X00320[/TD]
[TD]2/26/2015[/TD]
[TD]USD[/TD]
[TD]-1464500.00[/TD]
[TD]USD[/TD]
[TD="align: center"]########[/TD]
[TD]USD[/TD]
[TD] (1,464,500.00)[/TD]
[TD]FB50[/TD]
[TD] 1.00000[/TD]
[TD]Z2[/TD]
[TD="colspan: 2"]3000003963[/TD]
[TD][/TD]
[/TR]
</tbody>[/TABLE]


any ideas?

Thanks!
 
This is how I would approach that task:

Code:
Option Explicit

Sub DeleteReversals()
Dim LR As Long, Rw As Long, vFIND As Range, vFIRST As Range

Application.ScreenUpdating = False
On Error Resume Next
LR = Range("A" & Rows.Count).End(xlUp).Row
For Rw = 2 To LR
    If Range("A" & Rw) <> "" Then
        Set vFIND = Range("D:D").Find(Range("D" & Rw).Value, After:=Range("D" & Rw), LookIn:=xlValues, LookAt:=xlWhole)
        If Not vFIND Is Nothing Then
            Set vFIRST = vFIND
            Do
                If Range("R" & Rw).Value = -Range("R" & vFIND.Row).Value Then
                    Rows(Rw).ClearContents
                    Rows(vFIND.Row).ClearContents
                    Exit Do
                End If
                Set vFIND = Range("D:D").FindNext(vFIND)
            Loop Until vFIRST.Address = vFIND.Address
            Set vFIND = Nothing
            Set vFIRST = Nothing
        End If
    End If
Next Rw

Application.ScreenUpdating = True
Range("A1:DD" & LR).Sort Range("V2"), xlAscending, DataOption1:=xlSortNormal

End Sub
 
Upvote 0

We've detected that you are using an adblocker.

We have a great community of people providing Excel help here, but the hosting costs are enormous. You can help keep this site running by allowing ads on MrExcel.com.
Allow Ads at MrExcel

Which adblocker are you using?

Disable AdBlock

Follow these easy steps to disable AdBlock

1)Click on the icon in the browser’s toolbar.
2)Click on the icon in the browser’s toolbar.
2)Click on the "Pause on this site" option.
Go back

Disable AdBlock Plus

Follow these easy steps to disable AdBlock Plus

1)Click on the icon in the browser’s toolbar.
2)Click on the toggle to disable it for "mrexcel.com".
Go back

Disable uBlock Origin

Follow these easy steps to disable uBlock Origin

1)Click on the icon in the browser’s toolbar.
2)Click on the "Power" button.
3)Click on the "Refresh" button.
Go back

Disable uBlock

Follow these easy steps to disable uBlock

1)Click on the icon in the browser’s toolbar.
2)Click on the "Power" button.
3)Click on the "Refresh" button.
Go back
Back
Top