Insertar columnas con VBA en Excel

Insertar columnas con VBA en Excel es una de las tareas mas sencillas que hoy en día se pueden realizar en este lenguaje de programación. Mas abajo os dejo el código necesario para realizar esta tarea así como el vídeo explicativo, muy sencillo de seguir.

Para realizar esta “Receta de Excel” (como las he llamado en el canal de YouTube) vamos a necesitar:

  • Una variable que nos permita especificar el numero de columnas que queremos insertar.
  • Una variable donde recogeremos el número de columnas a insertar por parte del usuario.
  • Un pequeño bucle que inserte columnas usando la primera variable.

El código


 Sub InsertarColumnas()
Dim numeroColumnasAInsertar as Integer
Dim contadorColumnas as Integer
numeroColumnasAInsertar=InputBox("Introduzca el numero de columnas", "Ejemplo insertar columnas")
ActiveCell.EntireColumn.Select
For contadorColumnas=1 To numeroColumnasAInsertar
Selection.Insert Shift:xlToRight
Next contadorColumnas
End Sub

Por otro lado para poder obtener el numero de columnas a insertar, usaremos la función InputBox que muestra en pantalla un pequeño formulario en una ventana emergente, donde el usuario podrá introducir la cantidad de columnas a insertar.

También seleccionaremos la columna entera de la celda que tiene el foco (celda seleccionada) y será esta columna la que se tomará como referencia para la inserción desplazando hacia la derecha las columnas siguientes.

El vídeo tutorial

¿Que hemos aprendido?

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

  • Insertar columnas desplazando el resto a la derecha.
  • Seleccionar una columna entera desde una celda activa.
  • 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