Macro to move contents of cells chosen to predetermined spot on sheet.

I have a sheet that tracks tools along with serial numbers. The sheet is broken down into sections and depending on what section selected to move some info changes. for Example,
I want to move the Serial Number in Cell 'A13' to to cell 'B50' -
Then in 'A50' the Type of tool that was which is in 'A12"
Then in Cell 'C50' the current date is placed.

everytime you select a serial number and click the macro say Shipped it does that over again but the info goes in row 51 and so on.

I have attached a sheet so you can get a visual.

I have already completed the first move so you can see what it looks like,

As you can see once it moves the contents from cell A13 down to the shipped area it leaves a blank. I would also like for the macro to adjust the rest of data in that column up so there are no empty spaces.

Sorry lets go with this, hopefully with this I can format the rest. Is there no way to copy the merged cells ...I will have to redesign the sheet if not.

TYPE SERIAL
A12 A13:A21
B12 B13:B21
C12 C13:C21
D12 D13:D21
E12 E13:E21
F12 F13:F21
G12 G13:G21
H12 H13:H21
I12 I13:121
J12 J13:J21
K12 K13:K21
L12 L13:L21
A24 A25:A33

hope this helps.

Bump no response

If you merge A11 and A12, A11 alone contains the value and A12 contains nothing.
So you can't get the TYPE data by referring to the A12 cell.

I have revised portions of the sheet trying to eliminate merged fields (I still have some to fix....Or will have to redesign the sheet again)
But I also attached a more working version that shows part of what I am doing. If you open the sheet. highlight cell "A14" then go and use the Shipped macro.

You will see that it takes that and moves it down to "C52" that is what I am trying to do with all of the sections on this sheet.

Once "A14" is moved down I also need the macro to fill in the type in Cell "A52" with the info in cell "A12" at the top of that section

Also then have to code to adjust the data from Cells "A13:A21") up to get rid of the spaces in that section.

I hope this helps.

I went into mine and did not see it protected I resaved and reattahed

I have tried adding the new ranges after re-configuring the sheet.

My new ranges are bringing in the wrong offset for the Type...not sure how to adjust....

added these they are like the other ranges I had.
I25:L33, w/ the Type in row 24 -- this one is working

A38:L46, with the type in Row 37 -- this is not working correctly -its pulls in row 36 for type

But this ranges is different

Type is D25:D33
Serial Number is E25:E33
so for the serial number in E25 use D25 for the type.

Type is F25:F33
Serial Number is G25:G33
so for the serial number in G25 use F25 for the type.

Please Login or Register  to view this content.

OK, plz wait a while. I’ll deal with the problems.

I have devided Shipped macro into two parts; Shipped_Main and Shipped_Sub. Assign Shipped_Main macro to the worksheet button.

Shipped_Sub requires two arguments, the first one is the row number of Type data and the second is the count of rows that is supposed to contain serial numbers. This works in the range of serial number cells except for E25:E33 and G25:G33.

If you want to make Shipped_Sub work in E25:E33 or G25:G33, place '0' for the first argument and '1' for the second.

Please Login or Register  to view this content.

Please Login or Register  to view this content.

I pasted it just as it is here and it is working in E25:E33 or G25:G33...SO i am little confused on what might need changed....But one more thing is when it sends down the serial number in those ranges can it clear out the type in the cell immediately to the left. Thank you very much for helping me on this.

I modified the code. Is this what you need?

Please Login or Register  to view this content.

Please Login or Register  to view this content.

It is almost.... I guess I should have been more specific.... but the Range {"D25:D33" & "E25:E33"} are together so when you shift up the ones in "D" it also needs to shift up the Cells in "E" Once a serial is put into the shipped column.....so they stay together.

And the same for Column "F" & "G"

Does that make sense?

Please replace Shipped_Sub with the following code.

Please Login or Register  to view this content.