On Friday, May 6, 2016 at 1:15:30 PM UTC+5:30, Claus Busch wrote:
Hi,

Am Fri, 6 May 2016 00:29:16 -0700 (PDT) schrieb G C:

I have to reconcile my multiple bank account transactions with my system's compiled transactions and need the unique system id against that account no.

I've coded the same but 2 problem arise.

1. If bank transaction are out of my system transactions the system stop running and showing error "object not Found" instead of skipping transaction and moving to next transaction.

2. I have few similar(Amount) transactions in my 2 different accounts for which i need to run "findnext" command but its not working in this as well.

Try (unstested):

Sub Reconciling()

Dim Mycell As Range, c As Range
Dim Newrange As Range, sys_amt As Range
Dim FirstAddress As String
Dim LRow As Long

LRow = Cells(Rows.Count, 2).End(xlUp).Row
Set sys_amt = Range("B2:B" & LRow)
Set Newrange = Range("F2:F" & LRow)

For Each Mycell In Newrange
Set c = sys_amt.Find(Mycell, LookIn:=xlValues)
If Not c Is Nothing Then
FirstAddress = c.Address
Do
c.Offset(, 2) = c.Offset(, -1)
Set c = sys_amt.FindNext(c)
Loop While Not c Is Nothing And FirstAddress < c.Address
End If
Next

End Sub


Regards
Claus B.
--
Vista Ultimate / Windows7
Office 2007 Ultimate / 2010 Professional

Hello,

Thanks for previous reply.

I'm getting the id against the amount but the id is reflecting is system column, i need the same in bank column against bank transaction.



Column (A) Has my System ID
Column (B) Has my System amount
Column (c) Has my System Account NO
Column (D) Blank
Column (E) Blank
Column (F) Bank Amount
Column (F) Bank Account No
Column (E) This column need to be filled with system ID against the matching transactions.