Ver originales (Francés)

Insertar varias líneas con una macro

DADY07 Mensajes publicados 8 Estado Miembro -  
 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

2 respuestas

  1.
    eriiic Mensajes publicados 24581 Fecha de registro   Estado Colaborador Última intervención   7 281
     
    Buenas noches,

    Al señalarle la playa, y el .select es innecesario:
    Rows("5:14").Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
    o incluso aún más corto si son los valores por defecto:
    Rows("5:14").Insert

    eric
    3
    1. Ankhsuamon Mensajes publicados 50 Estado Miembro 2
       
      Hola Eriiic,

      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.
      0
    2. Thorgal28
       
      Hola Anksuamon,

      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".
      0