Need macro to draw border

[indjb]

Hi Helpers,
I have a table with some data. File "format preserve.xls" is uploaded with thread.
In my sheet, boxes have been created of two cells each with border only around group of two cells.

I need to drag and drop a box from one location to another location within table.

Now when I drag and drop for example I11 and I12 cell to L9 and L10 then right border around I11 and I12 box is removed.

I know that there is no solution to preserve border while drag and drop.

Many times drag and drop is required to be done.

So, is it possible to write a macro that will select outline border from font menu and apply it on old location (e.g. I11 and I12) as well as on new location (e.g. L9 and L10).

Whenever such drag and drop is used, it must apply outline border on old box and new box.

Note: Drag and drop is most convenient and faster way to shift data for me and other users using this sheet.

Thanks.

[mehmetcik]

Right Click on the sheet name at the bottom of excel and select view code

Paste this code into the module that opens and close it.

Please Login or Register  to view this content.

[xladept]

This event isn't quite right but if you select the range that you dragged after your drop it will reinstate the border:

Please Login or Register  to view this content.

[indjb]

Dear Helper,

Thanks a ton for helping me. My problem is almost solved but 4 things which needs to be corrected.

1. When I drag and drop pair of two cells, after dropping data cell A3 and A4 shows the blinking effect as it is observed while selecting cells for copy purpose using ctrl+c key. Can this effect be removed?

2. When I drag and drop pair of two cells, after dropping data , cell range a14 to q19 get highlighted like when we select multiple rows. Can this effect be removed?

3. Font size, alignment gets changed of whole table. Actually my original table contains lot of formatting based on some formulas and conditional formatting. It must be preserved. Nothing should be changed except redrawing border. Can we preserve every kind of formatting and have only border redrawing?

4. While dragging and dropping few cells it shows a dialogue box with message "Do you want to replace the content of destination cells? ". This is annoying. Can this effect be removed?

Thanks in advance.

[xladept]

I can't squelch the alert

But. it's not my event that you're using

[indjb]

Dear Helper,

Thanks a ton for helping me. My problem is almost solved but 4 things which needs to be corrected.

1. When I drag and drop pair of two cells, after dropping data cell A3 and A4 shows the blinking effect as it is observed while selecting cells for copy purpose using ctrl+c key. Can this effect be removed?

2. When I drag and drop pair of two cells, after dropping data , cell range a14 to q19 get highlighted like when we select multiple rows. Can this effect be removed?

3. Font size, alignment gets changed of whole table. Actually my original table contains lot of formatting based on some formulas and conditional formatting. It must be preserved. Nothing should be changed except redrawing border. Can we preserve every kind of formatting and have only border redrawing?

4. While dragging and dropping few cells it shows a dialogue box with message "Do you want to replace the content of destination cells? ". This is annoying. Can this effect be removed?

Thanks in advance.

[indjb]

Extremely sorry sir / madam. I am new to this forum so I made a mistake. Sorry once again.
Sir I tried your code as well. But while dragging and dropping, some border disappears.
I want to redraw border without affecting other conditional formatting and font style, size , alignment etc.
everything should remain as it is.

[xladept]

Well, I told you that you could reestablish the border by just re-selecting the range that you dragged from - I thought it would be easier than running a program to reinstate those borders -

[mehmetcik]

1. add this line to the end of the macro

Please Login or Register  to view this content.

2. I do not see that effect.

3. Do not use paste special format.

Instead format each pair of cells seperately.

Please Login or Register  to view this content.

4. I could not find a solution.

[indjb]

Thanks sir for helping me but unfortunately solution is not working.
Border at some places still disappear.

[xladept]

Refer to post #8:|