Macro para intercalar cinco columnas con nombres
Hola. Necesitaría realizar un Macro donde tengo cinco columnas con nombres de personas y "n" numeros de filas. A su vez que quede el resultado, intercalado, en una sexta columa. Empezando los datos en A2, siguiendo por B2, hasta logicamaente E2, ya que llevan un titulo cada columna.
Ej
juan maría jose mario felipe juan
pedro ana marta pablo carlos maría
jose
mario
felipe
pedro
ana
marta
pablo
carlos
También me gustaría insertar una autoforma y asignarle el macro para que cuando tenga los datos "presione" sobre la autoforma y me intercale los nombres.
Muchas gracias, espero su respuesta y a su vez espero haber sido lo suficientemete claro.
1 Respuesta
Te anexo la macro.
Sub nombres()
'Por.Dante Amor
j = 2
Columns("F").ClearContents
For Each c In Range("A2:E" & Range("A" & Rows.Count).End(xlUp).Row)
Cells(j, "F") = c.Value
j = j + 1
Next
End SubSigue 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: nombres
- Aceptar.
- Para ejecutarla dale click a la imagen.
Saludos. Dante Amor
No olvides valorar la respuesta.
