Insertar varias líneas con una macro
DADY07
Mensajes publicados
8
Estado
Miembro
-
Thorgal28 -
Thorgal28 -
¡Hola, alguien podría ayudarme!
Quisiera insertar 10 filas de una sola vez usando una macro
Esta macro inserta una sola fila, pero ¿cómo hacerle entender que necesito 10 sin tener que repetir esta macro 10 veces?
Rows("5:5").Select
Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
Gracias de antemanoConfiguración: Windows XP
Internet Explorer 7.0
Quisiera insertar 10 filas de una sola vez usando una macro
Esta macro inserta una sola fila, pero ¿cómo hacerle entender que necesito 10 sin tener que repetir esta macro 10 veces?
Rows("5:5").Select
Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
Gracias de antemanoConfiguración: Windows XP
Internet Explorer 7.0
La simplicidad... No hay nada mejor...
Gracias
--
Es asombroso lo mucho más fácil que es para un equipo trabajar juntos, cuando nadie tiene idea de hacia dónde van.
Confirmo que la solución "simple" de Eriic funciona bien.
Sub inserción_10_lineas()
'Inserción de 10 líneas a partir de la línea 5
Rows("5:15").Insert 'Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
MsgBox "¡Inserción de 10 líneas completada!", vbInformation
End Sub
Nota:
Sin embargo, ten cuidado de no mantener tus datos en formato "Tabla" de Excel (yo tenía este problema al principio).
Si es el caso, reconvierte tus datos al formato normal: Menú Excel>Diseño>Convertir a Rango
Luego vuelve a ejecutar la macro "inserción_10_lineas".