Como Verticalizar datos en excel
Necesito vertizalizar unos datos en excel por medio de una macro si me pueden ayudar, me explico tengo esta tabla, si se puede hacer por medio de una macro son más de 7000 datos
1 Respuesta
Respuesta de Dante Amor
1
H o l a:
Tus datos en la "Hoja1" deben estar así, empezar en la celda A1:
La macro:
Sub Verticalizar()
'Por.Dante Amor
Set h1 = Sheets("Hoja1")
Set h2 = Sheets("Hoja2")
'
h2.UsedRange.Offset(1, 0).Clear
k = 2
'
For i = 2 To h1.Range("A" & Rows.Count).End(xlUp).Row
For j = 2 To h1.Cells(i, Columns.Count).End(xlToLeft).Column
h2.Cells(k, "A") = h1.Cells(i, "A")
h2.Cells(k, "B") = h1.Cells(i, j)
k = k + 1
Next
Next
MsgBox "Fin"
End SubLos resultados quedarán así en la hoja2:
Sigue las Instrucciones para un botón y ejecutar la macro
- Abre tu libro de Excel
- Para abrir Vba-macros y poder pegar la macro, Presiona Alt + F11
- En el menú elige Insertar / Módulo
- En el panel del lado derecho copia la macro
- Ahora para crear un botón, puedes hacer lo siguiente:
- Inserta una imagen en tu libro, elige del menú Insertar / Imagen / Autoformas
- Elige una imagen y con el Mouse, dentro de tu hoja, presiona click y arrastra el Mouse para hacer grande la imagen.
- Una vez que insertaste la imagen en tu hoja, dale click derecho dentro de la imagen y selecciona: Tamaño y Propiedades. En la ventana que se abre selecciona la pestaña: Propiedades. Desmarca la opción “Imprimir Objeto”. Presiona “Cerrar”
- Vuelve a presionar click derecho dentro de la imagen y ahora selecciona: Asignar macro. Selecciona: Verticalizar
- Aceptar.
- Para ejecutarla dale click a la imagen.
