Como Reordenar tablas de excel
Tengo que crear una tabla excel reordenando los datos de una tabla existente. Lo explico con un ejemplo mas sencillo:
Tabla origina:
Cliente1: datos en celdas A1-B1-C1
Cliente2: datos en celdas A2-B2-C2
Cliente3: datos en celdas A3-B3-C3
Cliente1: datos en celdas A4-B4-C4
Cliente2: datos en celdas A5-B5-C5
Cliente3: datos en celdas A6-B6-C6
Siguiendo la progresión hasta un total de 400 filas y 7 columnas aproximadamente, de ahí la necesidad de automatizarlo.
Tengo que copiar los datos y transformalo en la siguiente tabla:
Cliente1: A1-B1-C1-A4-B4-C4
Cliente2: A2-B2-C2-A5-B5-C5
Cliente3: A3-B3-C3-A6-B6-C6
Hasta ahora me he arreglado con funciones sencillas pero esto se me escapa. Quizas con macros o conocimientos sobre bases de datos podría conseguirse pero soy novato en el tema.
2 respuestas
Archivo enviado
Problema resuelto!
H o l a:
Podrías enviarme tu archivo con 2 hojas, en la primera hoja me pones tus datos tal y como están, en la segunda hoja me pones el resultado que esperas.
Mi correo [email protected]
En el asunto del correo escribe tu nombre de usuario “txorimalo” y el título de esta pregunta.
H o l a:
Te anexo la macro para reordenar la tabla
Sub ReordenarTabla()
'Por.Dante Amor
Set h1 = Sheets("Original")
Set h2 = Sheets("resultado")
h2.UsedRange.Offset(2, 1).ClearContents
h1.Range("B4:B10").Copy h2.Range("A3")
col = 2
For i = 4 To h1.Range("B" & Rows.Count).End(xlUp).Row Step 7
h1.Range("C" & i & ":I" & i + 6).Copy h2.Cells(3, col)
col = col + 7
Next
MsgBox "Fin"
End Sub‘ F E L I Z A Ñ O T E D E S E A D a n t e A m o r. Recuerda valorar la respuesta. G r a c i a s :)