VBA TRANSPOSE DICTIONARY & ARRAY

[roykana]

Dear All master,

I want to make transpose with vba code dictionary and array because the number of rows or records is 10,000.

The sheet name is "MASTER" and is it possible to directly transpose on the same sheet and create a table directly?
this is original data

VBA TRANSPOSE DICTIONARY & ARRAY.xlsx
	A	B	C	D	E
1	PATH	FILENAME	KODE	ITEM	V
2	\\server-pc\CATALOG\CATALOG TAS FINAL\111138(1).jpg	111138(1).jpg	111138	TAMAKA R 111138 RC/L-TOP
3	\\server-pc\CATALOG\CATALOG TAS FINAL\111138(2).jpg	111138(2).jpg	111138	TAMAKA R 111138 RC/L-TOP
4	\\server-pc\CATALOG\CATALOG TAS FINAL\111138(3).jpg	111138(3).jpg	111138	TAMAKA R 111138 RC/L-TOP
5	\\server-pc\CATALOG\CATALOG TAS FINAL\111138(4).jpg	111138(4).jpg	111138	TAMAKA R 111138 RC/L-TOP
6	\\server-pc\CATALOG\CATALOG TAS FINAL\111138(5).jpg	111138(5).jpg	111138	TAMAKA R 111138 RC/L-TOP
7	\\server-pc\CATALOG\CATALOG TAS FINAL\111138(6).jpg	111138(6).jpg	111138	TAMAKA R 111138 RC/L-TOP
8	\\server-pc\CATALOG\CATALOG TAS FINAL\Other\.139.jpg	.139.jpg	.139	ALFIN R 139 RKL
9	\\server-pc\CATALOG\CATALOG TAS FINAL\Other\+112.jpg	+112.jpg	+112	AKZ RMJ C 112
10	\\server-pc\CATALOG\CATALOG TAS FINAL\ENTOS\57024.jpg	57024.jpg	57024	ALFON PKN 57024 D1680 TG
11	\\server-pc\CATALOG\CATALOG TAS FINAL\ENTOS\57024-1.jpg	57024-1.jpg	57024	ALFON PKN 57024 D1680 TG
12	\\server-pc\CATALOG\CATALOG TAS FINAL\1040F...jpg	1040F...jpg	1040F..	SPLASH R 1040 PRINT FROZEN
MASTER

this is the desired data result

VBA TRANSPOSE DICTIONARY & ARRAY.xlsx
	A	B	C	D	E	F	G	H	I	J	K	L	M	N	O
1	PATH1	PATH2	PATH3	PATH4	PATH5	PATH6	FILENAME1	FILENAME2	FILENAME3	FILENAME4	FILENAME5	FILENAME6	KODE	ITEM	V
2	\\server-pc\CATALOG\CATALOG TAS FINAL\111138(1).jpg	\\server-pc\CATALOG\CATALOG TAS FINAL\111138(2).jpg	\\server-pc\CATALOG\CATALOG TAS FINAL\111138(3).jpg	\\server-pc\CATALOG\CATALOG TAS FINAL\111138(4).jpg	\\server-pc\CATALOG\CATALOG TAS FINAL\111138(5).jpg	\\server-pc\CATALOG\CATALOG TAS FINAL\111138(6).jpg	111138(1).jpg	111138(2).jpg	111138(3).jpg	111138(4).jpg	111138(5).jpg	111138(6).jpg	111138	TAMAKA R 111138 RC/L-TOP
3	\\server-pc\CATALOG\CATALOG TAS FINAL\Other\.139.jpg						.139.jpg						.139	ALFIN R 139 RKL
4	\\server-pc\CATALOG\CATALOG TAS FINAL\Other\+112.jpg						+112.jpg						+112	AKZ RMJ C 112
5	\\server-pc\CATALOG\CATALOG TAS FINAL\ENTOS\57024.jpg	\\server-pc\CATALOG\CATALOG TAS FINAL\ENTOS\57024-1.jpg					57024.jpg	57024-1.jpg					57024	ALFON PKN 57024 D1680 TG
6	\\server-pc\CATALOG\CATALOG TAS FINAL\1040F...jpg						1040F...jpg						1040F..	SPLASH R 1040 PRINT FROZEN
MASTER (2)

thanks
roykana

 

[Alex Blakenburg]

Thanks for letting us know. Just make sure the workbook you are trying to access with the macro is the activeworkbook when you are running it from the VB Editor.

 

[DanteAmor]

Dear Mr. @DanteAmor,
Thanks for your reply. It went perfectly.

Now I've tried no problem.

Im glad to help you, thanks for the feedback.