Como insertar varias hojas según valor en una celda con Macros Excel

Para hacer un poco más funcional la macro de la entrega anterior donde se insertaban varias hojas a la vez, en esta ocasión obtendremos el mismo resultado pero la cantidad de hojas a insertar será en función de un número que indiquemos en una celda de la hoja donde estemos realizando la macro, de esta manera, si se necesita insertar 3 hojas o 4 o 5, solo se necesita digitar dicho número en la celda indicada.

Método Add: Con la aplicación de este método, es posible insertar una hoja en el libro de trabajo.

Para el siguiente ejemplo contamos con un libro de tres hojas y como se ya se mencionó, la idea es insertar varias hojas a la misma vez pero la cantidad de hojas estará definido por el valor que se ingrese en la celda A2:

Lo primero es ingresar al editor de Visual Basic, puede ser con la combinación de teclas Alt + F11 y desde el explorador de proyectos, es necesario dar doble clic sobre la hoja donde se requiere crear la macro que para nuestro ejercicio se ubicará en la Hoja1:

Ingresamos el siguiente código:

Sub InsertarVariasHojassegunCelda()

Worksheets.Add , Count:=Range("A2").Value

End Sub

Queda de la siguiente manera en el editor VBA:

Veamos lo que significan cada una de las líneas:

  1. La primera línea Sub InsertarVariasHojassegunCelda (), indica el inicio de la macro.
  2. En la segunda línea estamos utilizando del Objeto Worksheets el Método Add para insertar hojas cuya cantidad se establece con el valor indicado en la celda A2.
  3. La última línea marca el fin (End) de la Macro o Subrutina (Sub).

Para ejecutar la macro, lo ideal es insertar una autoforma en la Hoja1 y luego asignar la macro que acabamos de crear (clic derecho sobre la Autoforma y seleccionar la opción Asignar macro:

Finalmente seleccionar la macro que se acaba de crear:

Imagen 5

Y al dar clic sobre el la autoforma, la macro insertará la cantidad de hojas que se indiquen en la celda A2.

Descargar archivo.

MÁS SOBRE

Gerencie.com en su correo.

Suscríbase y nosotros colocaremos en su bandeja de entrada la mejor información que generamos diariamente.

Siéntase libre de opinar

En Gerencie.com está permitido opinar, criticar, discutir, controvertir, disentir, etc., pero debe hacerlo sin insultar y sin ofender a otros.

Información legal aplicable para Colombia.