Is there a better way to achieve the same result that doesn't take s
long. I let this run for 10 minutes before stopping it. I changed th
LastRow to = 50 and it ran fine so I know it works. Normally whe
running this there will be between 2000 and 10000 rows to loop through
I know when looping through that many rows it's going to take some tim
but if 2000 rows takes longer than 10 minutes then this won't work wel
for me.

Ok, This is seeing if 2 rows in columns A match then 2 rows in column
C match then 2 rows in columns D match. If all are true then add 1 t
previous rows value. if its not true then put a 1 in the cell.
I'm basically counting the number of times columns A, C, and D matc
with previous row then starting the count over.



Code
-------------------
Dim counter As Integer
LastRow = Range("A65532").End(xlUp).Row
counter = 2
Do Until counter = LastRow + 1
If Range("A" & counter) = Range("A" & counter - 1) And Range("D" & counter) = Range("D" & counter - 1) And Range("C" & counter) = Range("C" & counter - 1) Then
Range("G" & counter) = Range("G" & counter - 1).Value + 1
Else
Range("G" & counter) = 1
End If
counter = counter + 1
Loo
-------------------

--
BN-C
-----------------------------------------------------------------------
BN-CD's Profile: http://www.excelforum.com/member.php...fo&userid=3537
View this thread: http://www.excelforum.com/showthread.php?threadid=57081