Macro to Create new cell data from 2 sources

[Deaneric]

Not sure if I can word this correctly but here goes....

I have a worksheet with hundreds of different "master codes" with descriptions and costs from one of our furniture suppliers.

What i need is to create a worksheet with the master code having the finish code adding to the end i.e. master code = QWRL.BL, finish code could one of 17 finishes for e.g. .AN .SL etc.

So i would need the code QWRL.BL to go onto a new worksheet with the finish adding to the code i.e. QWRL.BL would become QWRL.BL.AN and then QWRL.BL.SL and so on, once the 17 have been created the next master code would follow suit.

Is this possible?

 

[Leith Ross]

Hello Deaneric,

It is very doable. Can you post about 5 master codes and 5 finish codes?

 

[rpaulson]

here is the code I used:

Sub Do_it()

'data in cells A2 thru C*
'finish codes in G2 thru G*
'new data written to K2 thru M*


Application.ScreenUpdating = False
Range("K2:M1048576").ClearContents

For r = 2 To Cells(Rows.Count, "A").End(xlUp).Row
For g = 2 To Cells(Rows.Count, "G").End(xlUp).Row

wr = Cells(Rows.Count, "K").End(xlUp).Row + 1

Cells(wr, "K") = Cells(r, "A") & "." & Cells(g, "G")
Cells(wr, "L") = Cells(r, "B")
Cells(wr, "M") = Cells(r, "C")

Next g
Next r

Application.ScreenUpdating = True
End Sub

Ive uploaded a sample file at :
http://www.computermaninc.net/Merge Codes.xlsm


Hth,

Ross

 

[Deaneric]

Hi - Thanks for the reply, I have test worksheet i can send to you, can't seem to see an upload function on here?

 

[Deaneric]

Totally spot on!! You're a legend, saved me hours of work

 

[rpaulson]

No Problem glad to help out

It amazing what 5 lines of code can do.