Cómo Insertar Varias Hojas al final según valor en una celda con Macros Excel

Para terminar con estos ejercicios de aplicación del Método Add del Objeto Worksheet, retomaremos la entrega pasada para ajustar la macro donde se insertaba la cantidad de hojas definidas en una celda pero en esta ocasión la idea es que se inserten al final pues tal y como está el código anterior siempre se insertan antes de la hoja donde se ejecute la macro lo cual puede ser un poco incómodo el resultado.

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 InsertarVariasHojasalFinalsegunCelda()

Worksheets.Add After:=Worksheets(Worksheets.Count), 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 InsertarVariasHojasalFinalsegunCelda(), indica el inicio de la macro.
  2. En la segunda línea estamos utilizando del Objeto Worksheets el Método Add y la propiedad After para insertar hojas cuya cantidad se establece con el valor indicado en la celda A2 y estas quedarán ubicadas al final de la cantidad de hojas del libro lo cual se obtiene al aplicar la propiedad Count (Conteo)
  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:

Y al dar clic sobre el la autoforma, la macro insertará al final de las pestañas 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.