Does this give the same result? In the data provided, a NEVER matches e
Option Explicit
Sub checksyssystemsas()
Dim r As Long
For r = 2 To Cells(Rows.Count, a).End(xlUp).Row
If Cells(r, a) = Cells(r, e) And Cells(r, c) = Cells(r, g) Then
‘msgbox r ONLY one match at row 1129
Cells(r, f) =
Hi Don
Dear members
Actually I want to match the values of col A and Col C with Col E and
Col G ( the values can be in any row in Col. E and Col. G NOT ON THE
SAME ROW) and if matched update the value of Col B to Col. F and the
value of Col D to Col H. Its working fine on small data but on
My misunderstanding. In that case, perhaps try to get the uniques in col A and
col C and work from there.
Don Guillett
Microsoft Excel Developer
SalesAid Software
dguille...@gmail.com
From: Siraj Momin (BTG)
Sent: Sunday, September 16, 2012 11:02 AM
To: excel-macros@googlegroups.com
Subject:
Option Explicit
Sub checksyssystem1()
Application.ScreenUpdating = False
Application.Calculation = xlCalculationManual
Dim r As Long
Dim r1 As Long
Dim c As Long
For r = 2 To Cells(Rows.Count, a).End(xlUp).Row
For r1 = 2 To Cells(Rows.Count, g).End(xlUp).Row
If Cells(r, a) = Cells(r1, e) And
Can you attached sample data file?
Regards
Rajan verma
+91 7838100659 [IM-Gtalk]
From: excel-macros@googlegroups.com [mailto:excel-macros@googlegroups.com]
On Behalf Of Siraj Momin (BTG)
Sent: 10 September 2012 7:11
To: excel-macros@googlegroups.com
Subject: $$Excel-Macros$$ MATCHING
First of all,
Your statement of work and you program is backwards.
You SAID:
... if matched update the value of Col B to Col. F and the value of Col D to
Col H
but your program says:
Cells(r1, f) = Cells(r, b)
Cells(r1, h) = Cells(r, d)
which is setting F to B, not B to F...
just so we're