Insertar filas con VBA en Excel

Aprovechando la última entrada que publique en este blog, hoy vamos a realizar una tarea similar solo que centrándonos en como insertar filas con VBA en Excel. Bajo estas líneas podréis encontrar el vídeo tutorial que hice para YouTube así como el código necesario que tendréis que pegar en el editor de Aplicaciones de Visual Basic de vuestro proyecto Excel.

Para realizar esta “Receta de Excel” vamos a necesitar:

  • Una variable que nos permita especificar el numero de filas que queremos insertar.
  • Vamos a presentar un mini formulario donde recogeremos el numero de filas que el usuario quiere añadir, lo que necesitará de una variable para recoger dicho valor.
  • Un pequeño bucle que inserte filas usando la primera variable.

El código


 Sub InsertarFilas()
Dim numeroFilasAInsertar as Integer
Dim contadorFilas as Integer
numeroFilasAInsertar=InputBox("Introduzca el numero de filas", "Ejemplo insertar filas")
ActiveCell.EntireRow.Select
For contadorFilas=1 To numeroFilasAInsertar
Selection.Insert Shift:xlToDown
Next contadorFilas
End Sub

Como en la entrada anterior, usaremos exactamente la misma técnica para obtener el numero de filas a insertar, la función InputBox, que muestra en pantalla un pequeño formulario en una ventana emergente, donde el usuario podrá introducir la cantidad de filas a insertar.

También seleccionaremos la fila completa partiendo la celda que esta seleccionada. Dicha fila será la referencia para realizar el desplazamiento hacia abajo tras la inserción de las filas que hagamos.

El vídeo tutorial

¿Que hemos aprendido?

Con esta receta de Excel hemos aprendido algunas cosas interesantes, tales como:

  • Insertar filas en Excel con VBA desplazando el resto de filas hacia abajo.
  • Seleccionar una fila completa.
  • Mostrar en pantalla una pequeña ventana con una caja de texto para recoger el input de un usuario.

Leave a reply:

Tu dirección de correo electrónico no será publicada.

Site Footer

X

Suscribete al canal en YouTube

Con más de 90.000 suscriptores, encontrarás mas de 300 video tutoriales gratuitos sobre Excel, Informática, programación e Internet.

Suscribete