Excel TABLE - VBA to move cell from one table to another

[giantg]

New to VBA and trying to piece together a macro but the table part is causing me problems.

I have multiple "3 or 4 column" tables on a worksheet. I want to move a cell value by Double Clicking the cell on one table, then click anywhere on another table to move that cell value to that table. When the value moves, needs to remove blanks and sort.

I need the table columns to be sorted as if they were all stacked in one column, then split back to three (or four depending on how many columns are in the table).

Any help is appreciated. Please let me know if you need more details.

 

[Yongle]

trying to understand exactly what you want
Is it this?

start with ...

Excel 2016 (Windows) 32 bit
[Table="width:, class:head"][tr=bgcolor:#E0E0F0][th] [/th][th]

A​

[/th][th]

B​

[/th][th]

C​

[/th][th]

D​

[/th][/tr]
[tr=bgcolor:#FFFFFF][td=bgcolor:#E0E0F0]

1​

[/td][td=bgcolor:#4472C4]ColA[/td][td=bgcolor:#4472C4]ColB[/td][td=bgcolor:#4472C4]ColC[/td][td=bgcolor:#4472C4]ColD[/td][/tr]

[tr=bgcolor:#FFFFFF][td=bgcolor:#E0E0F0]

2​

[/td][td=bgcolor:#D9E1F2]A001[/td][td=bgcolor:#D9E1F2]B001[/td][td=bgcolor:#D9E1F2]C001[/td][td=bgcolor:#D9E1F2]A005[/td][/tr]

[tr=bgcolor:#FFFFFF][td=bgcolor:#E0E0F0]

3​

[/td][td]A002[/td][td][/td][td]C002[/td][td]A006[/td][/tr]

[tr=bgcolor:#FFFFFF][td=bgcolor:#E0E0F0]

4​

[/td][td=bgcolor:#D9E1F2]A003[/td][td=bgcolor:#D9E1F2]B003[/td][td=bgcolor:#D9E1F2]C003[/td][td=bgcolor:#D9E1F2][/td][/tr]

[tr=bgcolor:#FFFFFF][td=bgcolor:#E0E0F0]

5​

[/td][td]A004[/td][td]B004[/td][td]C004[/td][td]A008[/td][/tr]

[tr=bgcolor:#FFFFFF][td=bgcolor:#E0E0F0]

6​

[/td][td][/td][td][/td][td][/td][td][/td][/tr]

[tr=bgcolor:#FFFFFF][td=bgcolor:#E0E0F0]

7​

[/td][td][/td][td][/td][td][/td][td][/td][/tr]

[tr=bgcolor:#FFFFFF][td=bgcolor:#E0E0F0]

8​

[/td][td][/td][td][/td][td][/td][td][/td][/tr]

[tr=bgcolor:#FFFFFF][td=bgcolor:#E0E0F0]

9​

[/td][td][/td][td][/td][td][/td][td][/td][/tr]

[tr=bgcolor:#FFFFFF][td=bgcolor:#E0E0F0]

10​

[/td][td][/td][td][/td][td][/td][td][/td][/tr]

[tr=bgcolor:#FFFFFF][td=bgcolor:#E0E0F0]

11​

[/td][td=bgcolor:#4472C4]ColA[/td][td=bgcolor:#4472C4]ColB[/td][td=bgcolor:#4472C4]ColC[/td][td=bgcolor:#4472C4]ColD[/td][/tr]

[tr=bgcolor:#FFFFFF][td=bgcolor:#E0E0F0]

12​

[/td][td=bgcolor:#D9E1F2]A040[/td][td=bgcolor:#D9E1F2]B040[/td][td=bgcolor:#D9E1F2]C040[/td][td=bgcolor:#D9E1F2]A040[/td][/tr]

[tr=bgcolor:#FFFFFF][td=bgcolor:#E0E0F0]

13​

[/td][td]A041[/td][td]B041[/td][td=bgcolor:#FFFF00]C041[/td][td]A041[/td][/tr]

[tr=bgcolor:#FFFFFF][td=bgcolor:#E0E0F0]

14​

[/td][td=bgcolor:#D9E1F2]A042[/td][td=bgcolor:#D9E1F2]B042[/td][td=bgcolor:#D9E1F2]C042[/td][td=bgcolor:#D9E1F2]A042[/td][/tr]
[/table][Table="width:, class:grid"][tr][td]Sheet: Before[/td][/tr][/table]

move cell and move other cells down ...

Excel 2016 (Windows) 32 bit
[Table="width:, class:head"][tr=bgcolor:#E0E0F0][th] [/th][th]

A​

[/th][th]

B​

[/th][th]

C​

[/th][th]

D​

[/th][/tr]
[tr=bgcolor:#FFFFFF][td=bgcolor:#E0E0F0]

1​

[/td][td=bgcolor:#4472C4]ColA[/td][td=bgcolor:#4472C4]ColB[/td][td=bgcolor:#4472C4]ColC[/td][td=bgcolor:#4472C4]ColD[/td][/tr]

[tr=bgcolor:#FFFFFF][td=bgcolor:#E0E0F0]

2​

[/td][td=bgcolor:#D9E1F2]A001[/td][td=bgcolor:#D9E1F2]B001[/td][td=bgcolor:#D9E1F2]C001[/td][td=bgcolor:#D9E1F2]A005[/td][/tr]

[tr=bgcolor:#FFFFFF][td=bgcolor:#E0E0F0]

3​

[/td][td]A002[/td][td][/td][td]C002[/td][td]A006[/td][/tr]

[tr=bgcolor:#FFFFFF][td=bgcolor:#E0E0F0]

4​

[/td][td=bgcolor:#D9E1F2]A003[/td][td=bgcolor:#D9E1F2]B003[/td][td=bgcolor:#D9E1F2]C003[/td][td=bgcolor:#D9E1F2][/td][/tr]

[tr=bgcolor:#FFFFFF][td=bgcolor:#E0E0F0]

5​

[/td][td]A004[/td][td=bgcolor:#FFFF00]C041[/td][td]C004[/td][td]A008[/td][/tr]

[tr=bgcolor:#FFFFFF][td=bgcolor:#E0E0F0]

6​

[/td][td=bgcolor:#D9E1F2][/td][td=bgcolor:#D9E1F2]B004[/td][td=bgcolor:#D9E1F2][/td][td=bgcolor:#D9E1F2][/td][/tr]

[tr=bgcolor:#FFFFFF][td=bgcolor:#E0E0F0]

7​

[/td][td][/td][td][/td][td][/td][td][/td][/tr]

[tr=bgcolor:#FFFFFF][td=bgcolor:#E0E0F0]

8​

[/td][td][/td][td][/td][td][/td][td][/td][/tr]

[tr=bgcolor:#FFFFFF][td=bgcolor:#E0E0F0]

9​

[/td][td][/td][td][/td][td][/td][td][/td][/tr]

[tr=bgcolor:#FFFFFF][td=bgcolor:#E0E0F0]

10​

[/td][td][/td][td][/td][td][/td][td][/td][/tr]

[tr=bgcolor:#FFFFFF][td=bgcolor:#E0E0F0]

11​

[/td][td=bgcolor:#4472C4]ColA[/td][td=bgcolor:#4472C4]ColB[/td][td=bgcolor:#4472C4]ColC[/td][td=bgcolor:#4472C4]ColD[/td][/tr]

[tr=bgcolor:#FFFFFF][td=bgcolor:#E0E0F0]

12​

[/td][td=bgcolor:#D9E1F2]A040[/td][td=bgcolor:#D9E1F2]B040[/td][td=bgcolor:#D9E1F2]C040[/td][td=bgcolor:#D9E1F2]A040[/td][/tr]

[tr=bgcolor:#FFFFFF][td=bgcolor:#E0E0F0]

13​

[/td][td]A041[/td][td]B041[/td][td][/td][td]A041[/td][/tr]

[tr=bgcolor:#FFFFFF][td=bgcolor:#E0E0F0]

14​

[/td][td=bgcolor:#D9E1F2]A042[/td][td=bgcolor:#D9E1F2]B042[/td][td=bgcolor:#D9E1F2]C042[/td][td=bgcolor:#D9E1F2]A042[/td][/tr]
[/table][Table="width:, class:grid"][tr][td]Sheet: AfterMove[/td][/tr][/table]

and sort - Table 1 sorted , Table2 unsorted

Excel 2016 (Windows) 32 bit
[Table="width:, class:head"][tr=bgcolor:#E0E0F0][th] [/th][th]

A​

[/th][th]

B​

[/th][th]

C​

[/th][th]

D​

[/th][/tr]
[tr=bgcolor:#FFFFFF][td=bgcolor:#E0E0F0]

1​

[/td][td=bgcolor:#4472C4]ColA[/td][td=bgcolor:#4472C4]ColB[/td][td=bgcolor:#4472C4]ColC[/td][td=bgcolor:#4472C4]ColD[/td][/tr]

[tr=bgcolor:#FFFFFF][td=bgcolor:#E0E0F0]

2​

[/td][td=bgcolor:#D9E1F2]A001[/td][td=bgcolor:#D9E1F2]A005[/td][td=bgcolor:#D9E1F2]B003[/td][td=bgcolor:#D9E1F2]C003[/td][/tr]

[tr=bgcolor:#FFFFFF][td=bgcolor:#E0E0F0]

3​

[/td][td]A002[/td][td]A006[/td][td]B004[/td][td]C004[/td][/tr]

[tr=bgcolor:#FFFFFF][td=bgcolor:#E0E0F0]

4​

[/td][td=bgcolor:#D9E1F2]A003[/td][td=bgcolor:#D9E1F2]A008[/td][td=bgcolor:#D9E1F2]C001[/td][td=bgcolor:#D9E1F2]C041[/td][/tr]

[tr=bgcolor:#FFFFFF][td=bgcolor:#E0E0F0]

5​

[/td][td]A004[/td][td]B001[/td][td]C002[/td][td][/td][/tr]

[tr=bgcolor:#FFFFFF][td=bgcolor:#E0E0F0]

6​

[/td][td][/td][td][/td][td][/td][td][/td][/tr]

[tr=bgcolor:#FFFFFF][td=bgcolor:#E0E0F0]

7​

[/td][td][/td][td][/td][td][/td][td][/td][/tr]

[tr=bgcolor:#FFFFFF][td=bgcolor:#E0E0F0]

8​

[/td][td][/td][td][/td][td][/td][td][/td][/tr]

[tr=bgcolor:#FFFFFF][td=bgcolor:#E0E0F0]

9​

[/td][td][/td][td][/td][td][/td][td][/td][/tr]

[tr=bgcolor:#FFFFFF][td=bgcolor:#E0E0F0]

10​

[/td][td=bgcolor:#4472C4]ColA[/td][td=bgcolor:#4472C4]ColB[/td][td=bgcolor:#4472C4]ColC[/td][td=bgcolor:#4472C4]ColD[/td][/tr]

[tr=bgcolor:#FFFFFF][td=bgcolor:#E0E0F0]

11​

[/td][td=bgcolor:#D9E1F2]A040[/td][td=bgcolor:#D9E1F2]B040[/td][td=bgcolor:#D9E1F2]C040[/td][td=bgcolor:#D9E1F2]A040[/td][/tr]

[tr=bgcolor:#FFFFFF][td=bgcolor:#E0E0F0]

12​

[/td][td]A041[/td][td]B041[/td][td][/td][td]A041[/td][/tr]

[tr=bgcolor:#FFFFFF][td=bgcolor:#E0E0F0]

13​

[/td][td=bgcolor:#D9E1F2]A042[/td][td=bgcolor:#D9E1F2]B042[/td][td=bgcolor:#D9E1F2]C042[/td][td=bgcolor:#D9E1F2]A042[/td][/tr]
[/table][Table="width:, class:grid"][tr][td]Sheet: AfterSort[/td][/tr][/table]

 

[giantg]

Imagine they are bins. Three or Four columns wide in order to avoid long columns. Then moving items from one bin to another and sorting them entire bin... removing blanks and potentially unused rows. The bins are from left to right (columns A,B,C....F,G,H...K,L,M...etc). I can draw an example today when I get to my desk. Thanks for helping.

 

[Yongle]

1. Are there headers in row 1 ?

Imagine they are bins. Three or Four columns wide in order to avoid long columns

2. Which is the last permitted row number ?

 

[giantg]

1. Are there headers in row 1 ?
Yes, the headers are Acol1, Acol2 Acol3...Bcol1, Bcol2, Bcol3... etc. I will have a button stretched over the headers to label the group "A", "B", etc.


2. Which is the last permitted row number ?

No limit, the table row length will grow or shrink depending on the number of used cells. Ex: 100 cells used in table of 3 columns, then 100/3 = 34 rows... move a cell out, then 99/3 = 33 rows.

 

[Yongle]

so when does it become 4 columns ?

 

[giantg]

Some are three, some are four (as there will be a higher volume in one table than others). If necessary, I can have all as three columns to start.

 

[Yongle]

Thanks
- will post code tomorrow

 

[Yongle]

Before (1)

Excel 2016 (Windows) 32 bit
[Table="width:, class:head"][tr=bgcolor:#E0E0F0][th] [/th][th]

K​

[/th][th]

L​

[/th][th]

M​

[/th][th]

N​

[/th][th]

O​

[/th][th]

P​

[/th][th]

Q​

[/th][th]

R​

[/th][th]

S​

[/th][/tr]
[tr=bgcolor:#FFFFFF][td=bgcolor:#E0E0F0]

1​

[/td][td]Header1[/td][td]Header2[/td][td]Header3[/td][td]Header4[/td][td][/td][td]Header1[/td][td]Header2[/td][td]Header3[/td][td]Header4[/td][/tr]

[tr=bgcolor:#FFFFFF][td=bgcolor:#E0E0F0]

2​

[/td][td]

14​

[/td][td]

143​

[/td][td]

277​

[/td][td][/td][td][/td][td]

8​

[/td][td]

319​

[/td][td]

636​

[/td][td][/td][/tr]

[tr=bgcolor:#FFFFFF][td=bgcolor:#E0E0F0]

3​

[/td][td]

94​

[/td][td]

149​

[/td][td]

426​

[/td][td][/td][td][/td][td]

8​

[/td][td]

320​

[/td][td]

642​

[/td][td][/td][/tr]

[tr=bgcolor:#FFFFFF][td=bgcolor:#E0E0F0]

4​

[/td][td]

98​

[/td][td=bgcolor:#FFFF00]

666​

[/td][td]

582​

[/td][td][/td][td][/td][td]

9​

[/td][td]

332​

[/td][td]

645​

[/td][td][/td][/tr]

[tr=bgcolor:#FFFFFF][td=bgcolor:#E0E0F0]

5​

[/td][td]

126​

[/td][td]

220​

[/td][td]

645​

[/td][td][/td][td][/td][td]

9​

[/td][td]

336​

[/td][td]

657​

[/td][td][/td][/tr]

[tr=bgcolor:#FFFFFF][td=bgcolor:#E0E0F0]

6​

[/td][td][/td][td][/td][td][/td][td][/td][td][/td][td]

11​

[/td][td]

340​

[/td][td]

677​

[/td][td][/td][/tr]

[tr=bgcolor:#FFFFFF][td=bgcolor:#E0E0F0]

7​

[/td][td][/td][td][/td][td][/td][td][/td][td][/td][td]

11​

[/td][td]

347​

[/td][td]

681​

[/td][td][/td][/tr]

[tr=bgcolor:#FFFFFF][td=bgcolor:#E0E0F0]

8​

[/td][td][/td][td][/td][td][/td][td][/td][td][/td][td]

11​

[/td][td]

355​

[/td][td]

683​

[/td][td][/td][/tr]

[tr=bgcolor:#FFFFFF][td=bgcolor:#E0E0F0]

9​

[/td][td][/td][td][/td][td][/td][td][/td][td][/td][td]

22​

[/td][td]

370​

[/td][td]

746​

[/td][td][/td][/tr]

[tr=bgcolor:#FFFFFF][td=bgcolor:#E0E0F0]

10​

[/td][td][/td][td][/td][td][/td][td][/td][td][/td][td]

23​

[/td][td]

374​

[/td][td]

747​

[/td][td][/td][/tr]

[tr=bgcolor:#FFFFFF][td=bgcolor:#E0E0F0]

11​

[/td][td][/td][td][/td][td][/td][td][/td][td][/td][td]

23​

[/td][td]

374​

[/td][td]

748​

[/td][td][/td][/tr]

[tr=bgcolor:#FFFFFF][td=bgcolor:#E0E0F0]

12​

[/td][td][/td][td][/td][td][/td][td][/td][td][/td][td]

31​

[/td][td]

374​

[/td][td]

749​

[/td][td][/td][/tr]

[tr=bgcolor:#FFFFFF][td=bgcolor:#E0E0F0]

13​

[/td][td][/td][td][/td][td][/td][td][/td][td][/td][td]

51​

[/td][td]

375​

[/td][td]

762​

[/td][td][/td][/tr]

[tr=bgcolor:#FFFFFF][td=bgcolor:#E0E0F0]

14​

[/td][td][/td][td][/td][td][/td][td][/td][td][/td][td]

54​

[/td][td]

380​

[/td][td]

766​

[/td][td][/td][/tr]

[tr=bgcolor:#FFFFFF][td=bgcolor:#E0E0F0]

15​

[/td][td][/td][td][/td][td][/td][td][/td][td][/td][td]

55​

[/td][td]

386​

[/td][td]

772​

[/td][td][/td][/tr]

[tr=bgcolor:#FFFFFF][td=bgcolor:#E0E0F0]

16​

[/td][td][/td][td][/td][td][/td][td][/td][td][/td][td]

56​

[/td][td]

494​

[/td][td]

780​

[/td][td][/td][/tr]

[tr=bgcolor:#FFFFFF][td=bgcolor:#E0E0F0]

17​

[/td][td][/td][td][/td][td][/td][td][/td][td][/td][td]

64​

[/td][td]

497​

[/td][td]

782​

[/td][td][/td][/tr]

[tr=bgcolor:#FFFFFF][td=bgcolor:#E0E0F0]

18​

[/td][td][/td][td][/td][td][/td][td][/td][td][/td][td]

66​

[/td][td]

510​

[/td][td]

782​

[/td][td][/td][/tr]

[tr=bgcolor:#FFFFFF][td=bgcolor:#E0E0F0]

19​

[/td][td][/td][td][/td][td][/td][td][/td][td][/td][td]

66​

[/td][td]

513​

[/td][td]

797​

[/td][td][/td][/tr]

[tr=bgcolor:#FFFFFF][td=bgcolor:#E0E0F0]

20​

[/td][td][/td][td][/td][td][/td][td][/td][td][/td][td]

110​

[/td][td]

544​

[/td][td]

802​

[/td][td][/td][/tr]

[tr=bgcolor:#FFFFFF][td=bgcolor:#E0E0F0]

21​

[/td][td][/td][td][/td][td][/td][td][/td][td][/td][td]

122​

[/td][td]

552​

[/td][td]

804​

[/td][td][/td][/tr]

[tr=bgcolor:#FFFFFF][td=bgcolor:#E0E0F0]

22​

[/td][td][/td][td][/td][td][/td][td][/td][td][/td][td]

123​

[/td][td]

568​

[/td][td]

810​

[/td][td][/td][/tr]

[tr=bgcolor:#FFFFFF][td=bgcolor:#E0E0F0]

23​

[/td][td][/td][td][/td][td][/td][td][/td][td][/td][td]

135​

[/td][td]

575​

[/td][td]

810​

[/td][td][/td][/tr]

[tr=bgcolor:#FFFFFF][td=bgcolor:#E0E0F0]

24​

[/td][td][/td][td][/td][td][/td][td][/td][td][/td][td]

166​

[/td][td]

578​

[/td][td]

811​

[/td][td][/td][/tr]

[tr=bgcolor:#FFFFFF][td=bgcolor:#E0E0F0]

25​

[/td][td][/td][td][/td][td][/td][td][/td][td][/td][td]

247​

[/td][td]

580​

[/td][td]

820​

[/td][td][/td][/tr]

[tr=bgcolor:#FFFFFF][td=bgcolor:#E0E0F0]

26​

[/td][td][/td][td][/td][td][/td][td][/td][td][/td][td]

250​

[/td][td]

581​

[/td][td]

832​

[/td][td][/td][/tr]

[tr=bgcolor:#FFFFFF][td=bgcolor:#E0E0F0]

27​

[/td][td][/td][td][/td][td][/td][td][/td][td][/td][td]

263​

[/td][td]

591​

[/td][td]

836​

[/td][td][/td][/tr]

[tr=bgcolor:#FFFFFF][td=bgcolor:#E0E0F0]

28​

[/td][td][/td][td][/td][td][/td][td][/td][td][/td][td]

292​

[/td][td]

592​

[/td][td]

845​

[/td][td][/td][/tr]

[tr=bgcolor:#FFFFFF][td=bgcolor:#E0E0F0]

29​

[/td][td][/td][td][/td][td][/td][td][/td][td][/td][td]

295​

[/td][td]

599​

[/td][td]

845​

[/td][td][/td][/tr]

[tr=bgcolor:#FFFFFF][td=bgcolor:#E0E0F0]

30​

[/td][td][/td][td][/td][td][/td][td][/td][td][/td][td]

300​

[/td][td]

601​

[/td][td]

847​

[/td][td][/td][/tr]

[tr=bgcolor:#FFFFFF][td=bgcolor:#E0E0F0]

31​

[/td][td][/td][td][/td][td][/td][td][/td][td][/td][td]

305​

[/td][td]

605​

[/td][td]

849​

[/td][td][/td][/tr]

[tr=bgcolor:#FFFFFF][td=bgcolor:#E0E0F0]

32​

[/td][td][/td][td][/td][td][/td][td][/td][td][/td][td]

318​

[/td][td]

620​

[/td][td]

851​

[/td][td][/td][/tr]

[tr=bgcolor:#FFFFFF][td=bgcolor:#E0E0F0]

33​

[/td][td][/td][td][/td][td][/td][td][/td][td][/td][td]

318​

[/td][td]

623​

[/td][td]

854​

[/td][td][/td][/tr]

[tr=bgcolor:#FFFFFF][td=bgcolor:#E0E0F0]

34​

[/td][td][/td][td][/td][td][/td][td][/td][td][/td][td]

319​

[/td][td]

629​

[/td][td]

925​

[/td][td][/td][/tr]

[tr=bgcolor:#FFFFFF][td=bgcolor:#E0E0F0]

35​

[/td][td][/td][td][/td][td][/td][td][/td][td][/td][td][/td][td][/td][td][/td][td][/td][/tr]
[/table][Table="width:, class:grid"][tr][td]Sheet: Tables[/td][/tr][/table]

After (1)

Excel 2016 (Windows) 32 bit
[Table="width:, class:head"][tr=bgcolor:#E0E0F0][th] [/th][th]

K​

[/th][th]

L​

[/th][th]

M​

[/th][th]

N​

[/th][th]

O​

[/th][th]

P​

[/th][th]

Q​

[/th][th]

R​

[/th][th]

S​

[/th][/tr]
[tr=bgcolor:#FFFFFF][td=bgcolor:#E0E0F0]

1​

[/td][td]Header1[/td][td]Header2[/td][td]Header3[/td][td]Header4[/td][td][/td][td]Header1[/td][td]Header2[/td][td]Header3[/td][td]Header4[/td][/tr]

[tr=bgcolor:#FFFFFF][td=bgcolor:#E0E0F0]

2​

[/td][td]

14​

[/td][td]

143​

[/td][td]

426​

[/td][td][/td][td][/td][td]

8​

[/td][td]

263​

[/td][td]

513​

[/td][td]

747​

[/td][/tr]

[tr=bgcolor:#FFFFFF][td=bgcolor:#E0E0F0]

3​

[/td][td]

94​

[/td][td]

149​

[/td][td]

582​

[/td][td][/td][td][/td][td]

8​

[/td][td]

292​

[/td][td]

544​

[/td][td]

748​

[/td][/tr]

[tr=bgcolor:#FFFFFF][td=bgcolor:#E0E0F0]

4​

[/td][td]

98​

[/td][td]

220​

[/td][td]

645​

[/td][td][/td][td][/td][td]

9​

[/td][td]

295​

[/td][td]

552​

[/td][td]

749​

[/td][/tr]

[tr=bgcolor:#FFFFFF][td=bgcolor:#E0E0F0]

5​

[/td][td]

126​

[/td][td]

277​

[/td][td][/td][td][/td][td][/td][td]

9​

[/td][td]

300​

[/td][td]

568​

[/td][td]

762​

[/td][/tr]

[tr=bgcolor:#FFFFFF][td=bgcolor:#E0E0F0]

6​

[/td][td][/td][td][/td][td][/td][td][/td][td][/td][td]

11​

[/td][td]

305​

[/td][td]

575​

[/td][td]

766​

[/td][/tr]

[tr=bgcolor:#FFFFFF][td=bgcolor:#E0E0F0]

7​

[/td][td][/td][td][/td][td][/td][td][/td][td][/td][td]

11​

[/td][td]

318​

[/td][td]

578​

[/td][td]

772​

[/td][/tr]

[tr=bgcolor:#FFFFFF][td=bgcolor:#E0E0F0]

8​

[/td][td][/td][td][/td][td][/td][td][/td][td][/td][td]

11​

[/td][td]

318​

[/td][td]

580​

[/td][td]

780​

[/td][/tr]

[tr=bgcolor:#FFFFFF][td=bgcolor:#E0E0F0]

9​

[/td][td][/td][td][/td][td][/td][td][/td][td][/td][td]

22​

[/td][td]

319​

[/td][td]

581​

[/td][td]

782​

[/td][/tr]

[tr=bgcolor:#FFFFFF][td=bgcolor:#E0E0F0]

10​

[/td][td][/td][td][/td][td][/td][td][/td][td][/td][td]

23​

[/td][td]

319​

[/td][td]

591​

[/td][td]

782​

[/td][/tr]

[tr=bgcolor:#FFFFFF][td=bgcolor:#E0E0F0]

11​

[/td][td][/td][td][/td][td][/td][td][/td][td][/td][td]

23​

[/td][td]

320​

[/td][td]

592​

[/td][td]

797​

[/td][/tr]

[tr=bgcolor:#FFFFFF][td=bgcolor:#E0E0F0]

12​

[/td][td][/td][td][/td][td][/td][td][/td][td][/td][td]

31​

[/td][td]

332​

[/td][td]

599​

[/td][td]

802​

[/td][/tr]

[tr=bgcolor:#FFFFFF][td=bgcolor:#E0E0F0]

13​

[/td][td][/td][td][/td][td][/td][td][/td][td][/td][td]

51​

[/td][td]

336​

[/td][td]

601​

[/td][td]

804​

[/td][/tr]

[tr=bgcolor:#FFFFFF][td=bgcolor:#E0E0F0]

14​

[/td][td][/td][td][/td][td][/td][td][/td][td][/td][td]

54​

[/td][td]

340​

[/td][td]

605​

[/td][td]

810​

[/td][/tr]

[tr=bgcolor:#FFFFFF][td=bgcolor:#E0E0F0]

15​

[/td][td][/td][td][/td][td][/td][td][/td][td][/td][td]

55​

[/td][td]

347​

[/td][td]

620​

[/td][td]

810​

[/td][/tr]

[tr=bgcolor:#FFFFFF][td=bgcolor:#E0E0F0]

16​

[/td][td][/td][td][/td][td][/td][td][/td][td][/td][td]

56​

[/td][td]

355​

[/td][td]

623​

[/td][td]

811​

[/td][/tr]

[tr=bgcolor:#FFFFFF][td=bgcolor:#E0E0F0]

17​

[/td][td][/td][td][/td][td][/td][td][/td][td][/td][td]

64​

[/td][td]

370​

[/td][td]

629​

[/td][td]

820​

[/td][/tr]

[tr=bgcolor:#FFFFFF][td=bgcolor:#E0E0F0]

18​

[/td][td][/td][td][/td][td][/td][td][/td][td][/td][td]

66​

[/td][td]

374​

[/td][td]

636​

[/td][td]

832​

[/td][/tr]

[tr=bgcolor:#FFFFFF][td=bgcolor:#E0E0F0]

19​

[/td][td][/td][td][/td][td][/td][td][/td][td][/td][td]

66​

[/td][td]

374​

[/td][td]

642​

[/td][td]

836​

[/td][/tr]

[tr=bgcolor:#FFFFFF][td=bgcolor:#E0E0F0]

20​

[/td][td][/td][td][/td][td][/td][td][/td][td][/td][td]

110​

[/td][td]

374​

[/td][td]

645​

[/td][td]

845​

[/td][/tr]

[tr=bgcolor:#FFFFFF][td=bgcolor:#E0E0F0]

21​

[/td][td][/td][td][/td][td][/td][td][/td][td][/td][td]

122​

[/td][td]

375​

[/td][td]

657​

[/td][td]

845​

[/td][/tr]

[tr=bgcolor:#FFFFFF][td=bgcolor:#E0E0F0]

22​

[/td][td][/td][td][/td][td][/td][td][/td][td][/td][td]

123​

[/td][td]

380​

[/td][td=bgcolor:#FFFF00]

666​

[/td][td]

847​

[/td][/tr]

[tr=bgcolor:#FFFFFF][td=bgcolor:#E0E0F0]

23​

[/td][td][/td][td][/td][td][/td][td][/td][td][/td][td]

135​

[/td][td]

386​

[/td][td]

677​

[/td][td]

849​

[/td][/tr]

[tr=bgcolor:#FFFFFF][td=bgcolor:#E0E0F0]

24​

[/td][td][/td][td][/td][td][/td][td][/td][td][/td][td]

166​

[/td][td]

494​

[/td][td]

681​

[/td][td]

851​

[/td][/tr]

[tr=bgcolor:#FFFFFF][td=bgcolor:#E0E0F0]

25​

[/td][td][/td][td][/td][td][/td][td][/td][td][/td][td]

247​

[/td][td]

497​

[/td][td]

683​

[/td][td]

854​

[/td][/tr]

[tr=bgcolor:#FFFFFF][td=bgcolor:#E0E0F0]

26​

[/td][td][/td][td][/td][td][/td][td][/td][td][/td][td]

250​

[/td][td]

510​

[/td][td]

746​

[/td][td]

925​

[/td][/tr]

[tr=bgcolor:#FFFFFF][td=bgcolor:#E0E0F0]

27​

[/td][td][/td][td][/td][td][/td][td][/td][td][/td][td][/td][td][/td][td][/td][td][/td][/tr]
[/table][Table="width:, class:grid"][tr][td]Sheet: Tables[/td][/tr][/table]


Before (2)

Excel 2016 (Windows) 32 bit
[Table="width:, class:head"][tr=bgcolor:#E0E0F0][th] [/th][th]

F​

[/th][th]

G​

[/th][th]

H​

[/th][th]

I​

[/th][th]

J​

[/th][th]

K​

[/th][th]

L​

[/th][th]

M​

[/th][th]

N​

[/th][/tr]
[tr=bgcolor:#FFFFFF][td=bgcolor:#E0E0F0]

1​

[/td][td]Header1[/td][td]Header2[/td][td]Header3[/td][td]Header4[/td][td][/td][td]Header1[/td][td]Header2[/td][td]Header3[/td][td]Header4[/td][/tr]

[tr=bgcolor:#FFFFFF][td=bgcolor:#E0E0F0]

2​

[/td][td]

14​

[/td][td]

151​

[/td][td]

677​

[/td][td][/td][td][/td][td]

14​

[/td][td]

143​

[/td][td]

426​

[/td][td][/td][/tr]

[tr=bgcolor:#FFFFFF][td=bgcolor:#E0E0F0]

3​

[/td][td]

94​

[/td][td]

166​

[/td][td]

681​

[/td][td][/td][td][/td][td]

94​

[/td][td]

149​

[/td][td]

582​

[/td][td][/td][/tr]

[tr=bgcolor:#FFFFFF][td=bgcolor:#E0E0F0]

4​

[/td][td]

98​

[/td][td]

220​

[/td][td=bgcolor:#FFFF00]

683​

[/td][td][/td][td][/td][td]

98​

[/td][td]

220​

[/td][td]

645​

[/td][td][/td][/tr]

[tr=bgcolor:#FFFFFF][td=bgcolor:#E0E0F0]

5​

[/td][td]

126​

[/td][td]

277​

[/td][td]

811​

[/td][td][/td][td][/td][td]

126​

[/td][td]

277​

[/td][td][/td][td][/td][/tr]

[tr=bgcolor:#FFFFFF][td=bgcolor:#E0E0F0]

6​

[/td][td]

143​

[/td][td]

426​

[/td][td]

925​

[/td][td][/td][td][/td][td][/td][td][/td][td][/td][td][/td][/tr]

[tr=bgcolor:#FFFFFF][td=bgcolor:#E0E0F0]

7​

[/td][td]

149​

[/td][td]

645​

[/td][td]

974​

[/td][td][/td][td][/td][td][/td][td][/td][td][/td][td][/td][/tr]

[tr=bgcolor:#FFFFFF][td=bgcolor:#E0E0F0]

8​

[/td][td][/td][td][/td][td][/td][td][/td][td][/td][td][/td][td][/td][td][/td][td][/td][/tr]
[/table][Table="width:, class:grid"][tr][td]Sheet: Tables[/td][/tr][/table]

After (2)

Excel 2016 (Windows) 32 bit
[Table="width:, class:head"][tr=bgcolor:#E0E0F0][th] [/th][th]

F​

[/th][th]

G​

[/th][th]

H​

[/th][th]

I​

[/th][th]

J​

[/th][th]

K​

[/th][th]

L​

[/th][th]

M​

[/th][th]

N​

[/th][/tr]
[tr=bgcolor:#FFFFFF][td=bgcolor:#E0E0F0]

1​

[/td][td]Header1[/td][td]Header2[/td][td]Header3[/td][td]Header4[/td][td][/td][td]Header1[/td][td]Header2[/td][td]Header3[/td][td]Header4[/td][/tr]

[tr=bgcolor:#FFFFFF][td=bgcolor:#E0E0F0]

2​

[/td][td]

14​

[/td][td]

151​

[/td][td]

677​

[/td][td][/td][td][/td][td]

14​

[/td][td]

143​

[/td][td]

426​

[/td][td][/td][/tr]

[tr=bgcolor:#FFFFFF][td=bgcolor:#E0E0F0]

3​

[/td][td]

94​

[/td][td]

166​

[/td][td]

681​

[/td][td][/td][td][/td][td]

94​

[/td][td]

149​

[/td][td]

582​

[/td][td][/td][/tr]

[tr=bgcolor:#FFFFFF][td=bgcolor:#E0E0F0]

4​

[/td][td]

98​

[/td][td]

220​

[/td][td]

811​

[/td][td][/td][td][/td][td]

98​

[/td][td]

220​

[/td][td]

645​

[/td][td][/td][/tr]

[tr=bgcolor:#FFFFFF][td=bgcolor:#E0E0F0]

5​

[/td][td]

126​

[/td][td]

277​

[/td][td]

925​

[/td][td][/td][td][/td][td]

126​

[/td][td]

277​

[/td][td=bgcolor:#FFFF00]

683​

[/td][td][/td][/tr]

[tr=bgcolor:#FFFFFF][td=bgcolor:#E0E0F0]

6​

[/td][td]

143​

[/td][td]

426​

[/td][td]

974​

[/td][td][/td][td][/td][td][/td][td][/td][td][/td][td][/td][/tr]

[tr=bgcolor:#FFFFFF][td=bgcolor:#E0E0F0]

7​

[/td][td]

149​

[/td][td]

645​

[/td][td][/td][td][/td][td][/td][td][/td][td][/td][td][/td][td][/td][/tr]

[tr=bgcolor:#FFFFFF][td=bgcolor:#E0E0F0]

8​

[/td][td][/td][td][/td][td][/td][td][/td][td][/td][td][/td][td][/td][td][/td][td][/td][/tr]
[/table][Table="width:, class:grid"][tr][td]Sheet: Tables[/td][/tr][/table]

Option Explicit

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
    Dim Table2 As Range, cel As Range, ws As Worksheet, Bin1 As Range, Bin2 As Range
    If Target.CountLarge > 1 Or Target.Row = 1 Then Exit Sub
    Cancel = True
'which bin ?
    On Error Resume Next
        Set Bin2 = Application.InputBox("Click on other table and click OK", "Move a value to another bin", , , , , , 8)
    On Error GoTo 0
    If Err.Number > 0 Or Bin2.Column Mod 5 = 0 Then Exit Sub
'bin ranges
    Set Bin2 = GetBin(Bin2)
    Set Bin1 = GetBin(Target)

    Call MoveAndSort(Bin2, Target)
    Call MoveAndSort(Bin1)

End Sub

Private Function GetBin(cell As Range) As Range
    Set GetBin = Cells(2, cell.Column).Offset(, 1 - (cell.Column Mod 5)).Resize(1000, 4)
End Function

Private Sub MoveAndSort(Bin As Range, Optional cell As Range)
    Application.ScreenUpdating = False
    Dim ws As Worksheet, Itm As Range
    Dim itmCount As Long, colCount As Long, rowCount As Long, itmRow As Long, r As Long, c As Long
[COLOR=#006400]'sort in temp sheet[/COLOR]
    Set ws = Sheets.Add
    If Not cell Is Nothing Then
        ws.Cells(1, 1) = cell
        cell.ClearContents
    End If
    For Each Itm In Bin
        If Not Itm = "" Then ws.Cells(Rows.Count, 1).End(xlUp).Offset(1) = Itm
    Next Itm
[COLOR=#006400]'sort the data and clear bin[/COLOR]
    ws.Columns("A").Sort key1:=ws.Range("A1"), order1:=xlAscending, Header:=xlNo
    Bin.ClearContents
    itmCount = ws.Cells(Rows.Count, 1).End(xlUp).Row
[COLOR=#006400]'determine number of columns and rows[/COLOR]
    If itmCount > [COLOR=#ff0000]99[/COLOR] Then colCount = 4 Else colCount = 3
    rowCount = (itmCount - itmCount Mod colCount) / colCount
    If itmCount Mod colCount > 0 Then rowCount = rowCount + 1
[COLOR=#006400]'write back to bin[/COLOR]
    For c = 0 To colCount - 1
        For r = 0 To rowCount - 1
            itmRow = itmRow + 1
            Bin.Cells(1, 1).Offset(r, c) = ws.Cells(itmRow, 1)
        Next r
    Next c
[COLOR=#006400]'tidy up[/COLOR]
    Application.DisplayAlerts = False:  ws.Delete:  Application.DisplayAlerts = True
End Sub

NOTES
- the number of columns increases from 3 to 4 if the number of items exceeds 99
- place all the code in the SHEET module
- double-click on "value to move" and click "any cell in other bin" and click OK
- ensure double-click inside the cell (NOT on cell border)
- test exactly as posted before amending anything

 

[giantg]

Thanks. I'll test it out today and let you know if it works as planned. Thanks for the help!