Insertar una nueva Hoja en la última posición

En la entrega anterior vimos el código para insertar una nueva hoja al libro de trabajo; sin embargo, a pesar de que el resultado era el esperado, puede que sea necesario un ajuste, pues las hojas que se insertan, van quedando en la primera posición, lo que deriva en que la hoja “maestra” se vaya moviendo al final y en caso de insertar demasiadas hojas se pueda volver un poco complicado su manejo. Así que vamos a ver cuál es el código para que al insertar una hoja, esta se ubique siempre en la última posición.

Abrimos el editor de Visual Basic (Alt + F11) y damos doble clic sobre la Hoja1 en el explorador de proyectos para activar el espacio de edición de macros en el editor:

Nos vamos a ubicar en el espacio de edición de macros y copiamos el siguiente código:

Sub InsertarHojaenUltimaPosición()

'Esta macro utiliza el Objeto Libro de trabajo con el método adicionar, Contar y la propiedad Name paa insertar una hoja en la última posición del libro

Worksheets.Add(After:=Worksheets(Worksheets.Count)).Name = "Nueva Hoja"

Hoja1.Select

End Sub

Veamos la interpretación de cada línea.

  1. La primera línea Sub InsertarHojaenUltimaPosición (), indica el inicio y nombre de la macro InsertarHojaenUltimaPosición.
  2. La segunda línea que iniciar con una coma sencilla es un comentario informativo para identificar más fácil lo que realizará la macro y en el Editor VB se marcará en color verde toda la línea.
  3. En la tercera línea estamos utilizando el Objeto Hojas de trabajo (Worksheets), luego establecemos el Método Adicionar (Add) para indicar que vamos a adicionar un elemento al libro de trabajo y aplicamos un parámetro para indicar que este método de Adición debe ser en la posición que queda después (After) del número de hojas que actualmente tiene el libro (Count). El siguiente elemento es la Propiedad Nombre (Name) para asignar un nombre que en este caso es el que aparece entre comillas “Nueva hoja”.
  4. La cuarta línea es para que luego de insertar la nueva hoja, la macro deje activa (Select) la Hoja1.
  5. La última línea marca el fin (End) de la Macro o Subrutina (Sub)

Si queremos ejecutar la macro desde el Editor de Visual Basic, es necesario que el cursor este ubicado en cualquiera de las líneas de la macro y luego damos F5. La otra alternativa es vincular la macro a una autoforma en la hoja de Excel. En cualquier de los dos casos, el resultado de la macro es:

Descargar archivo de trabajo.

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. Lo que no está permitido es insultar o escribir palabras ofensivas o soeces. Si lo hace, su comentario será rechazado por el sistema o será eliminado por el administrador. Por último, trate de no escribir en mayúscula sostenida, resulta muy difícil leerle.