Complicated Find - Replace

**abertrand** · 01-13-2009, 10:14 AM

I've attached the file (i think) to make thing easier.

I am trying to get look at the first row of numbers for a part and then place in a corresponding number below. There are some examples already there such as 10 has 910 under it, and 5 has 400 under it.

I was currently playing around with this code:

'Value you want to find

xFind = 5

'Value you want to input

xReplace = 50

    Cells.Find(What:=xFind, After:=ActiveCell, LookIn:=xlFormulas, LookAt:= _

        xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, 

MatchCase:=False _

        , SearchFormat:=False).Activate

    ActiveCell.Offset(-1).Value = xReplace

But i don't know that this is the right direction to take with it and it doesn't seem to want to cooperate with me. Any suggestions?

**royUK** · 01-13-2009, 10:16 AM

Attach an example workbook

**abertrand** · 01-13-2009, 10:22 AM

I keep getting a database error when attaching the zip file. It's a pretty big file 2.3MB zipped, but that is still under the size limit. I've tried 5 times.

I uploaded a smaller sample version of the file.

**StephenR** · 01-13-2009, 12:07 PM

I don't know about anyone else, but I'm struggling to understand what you want to do and how it is determined. Can you expand on what you're doing?

**abertrand** · 01-13-2009, 12:35 PM

No Problem.

I currently have a list of parts with numbers that correspond to work centers stretched out horizontally after the part number. I would like a macro that will search these work center numbers and add a new number below the old.

An example is how I have 10 with 910 below or 5 with 400 below. I did that by hand, but I have thousands of parts to work through and would like for it to be accomplished automatically.