Array looping, increase speed of array macro

You could do it like this:

Please Login or Register  to view this content.

?

Thanks Yudlugar but this did not work.

I may not be clear in my statement, The macro works, I need it to loop or in some form work faster without brining my CPU useage to 100%. The macro you provided replaces my header (G1) and only returns the same value that was placed in my header in (G2). If I can provide more information please let me know.

I'm not sure if there is a quicker way than the worksheet fucntions. You could maybe try something along the lines of this, based on using find to loop through the data but dependant on what your data is like it might not be any better.

Please Login or Register  to view this content.

Thanks again Yudlugar,

Can you show me how to put that in with my code?

It was to replace your code.

I receive a compile error on this line, says "Sub or Function not defined"


Set counta = FindNext(counta)

Error on FindNext

try changing it to:
set counta = Sheets("Sheet2").Range("A:A").findnext(counta)

I really appreciate all your work, however this code actually returns a Run-time error2013-11-25_0948.png

Can you upload a sample workbook please.

Click go advanced and then "manage attachments"

Please Login or Register  to view this content.

That seems to work on your example.

At a large scale it seems to work a little faster, its not eating up the processor as much as the old one did. Thanks again, I'll see what I can manage.

Yudlugar,

It seems to lock up if data in sheet 1 is not found on sheet 2. Is there an else statement I can put in there?

You could maybe try putting a counter in and then exiting if it has searched more than the count, for example

Please Login or Register  to view this content.

change i>500 as neccessary