View Single Post
  #1   Report Post  
Posted to microsoft.public.excel.programming
adimar adimar is offline
external usenet poster
 
Posts: 49
Default Find optimization

I have some code that searches for a string in two other workbooks.
I set ranges like this:
Set retRange = ActiveWorkbook.Sheets("RawData").UsedRange
Set rLegacyProd1 = Workbooks("Legacy Shipped -
Prod1.xls").Worksheets("RawData").UsedRange
Set rLegacyProd2 = Workbooks("Legacy Shipped -
Prod2.xls").Worksheets("RawData").UsedRange

I use €śfind€ť to look for the value, like this: If first character in
sernoStr matches a certain pattern then I search in one workbook or the other:
Set mCell = rLegacyProd1.Find(sernoStr, LookIn:=xlValues)

Since the workbooks Im searching in are pretty large (~40K records) the
macro takes a long time to run.

Im looking for suggestions for speeding up the code.


Thank you.