transponer libro

[NEOGEO]

buenas aqui pidiendo su ayuda me gustaria transponer estos datos  usando macros de la plantilla "base" que deberia quedar como en la plantila "asi debe ser" debe qudar asi por cada persona les  dejo el excel a ver si alguien me da una mano de antemano muchas gracias

EJEMPLO.xlsx

[GabrielRaigosa]

Con excel 2016 o (2010/2013 con PowerQuery instalado), se pude anular esa dinamización sin macros.

Lo he guardado como XLSB (binario) para reducir el tamaño.

 

 

 

EJEMPLO.xlsb

[Dr Hyde]

Checa la macro para activarla ve a la hoja 1 y dale click al boton, si le cambias el nombre a la pestaña, en la macro viene donde tienes que hacer el cambio para que la macro siga funcionando.

EJEMPLO (1).xlsm

[NEOGEO]

Hace 9 minutos , Dr Hyde dijo:

Checa la macro para activarla ve a la hoja 1 y dale click al boton, si le cambias el nombre a la pestaña, en la macro viene donde tienes que hacer el cambio para que la macro siga funcionando.

EJEMPLO (1).xlsm

gracias esta perfecto pero me esta copiando la tercera columna con formato  numero no como texto como podría arreglarlo

[Dr Hyde]

solo cambias esta linea

MATRIZ(A, 3) = ORIGEN.Cells(1, J)

por esta

MATRIZ(A, 3) = "'" & ORIGEN.Cells(1, J)

y listo, checa el archivo ya le hice la correccion 

EJEMPLO (1).xlsm

[NEOGEO]

Hace 3 horas, Dr Hyde dijo:

solo cambias esta linea

MATRIZ(A, 3) = ORIGEN.Cells(1, J)

por esta

MATRIZ(A, 3) = "'" & ORIGEN.Cells(1, J)

y listo, checa el archivo ya le hice la correccion 

EJEMPLO (1).xlsm

ok amigo muchas gracias por la ayuda 

[NEOGEO]

Hace 14 horas, Dr Hyde dijo:

solo cambias esta linea

MATRIZ(A, 3) = ORIGEN.Cells(1, J)

por esta

MATRIZ(A, 3) = "'" & ORIGEN.Cells(1, J)

y listo, checa el archivo ya le hice la correccion 

EJEMPLO (1).xlsm

amigo una ultima consulta para copiar solo las que tengan valor y no las que  estén en 0 como seria 

[Dr Hyde]

checa la macro ya tiene la condicion para copiar solo los valores mayores a 0

EJEMPLO (1).xlsm