Como Insertar y Borrar hojas en Excel con Macro




Recorrer hojas borrar y luego insertar hoja es el motivo de este post; se presenta una macro simple, pero útil, que permite recorrer las hojas de un libro en busca de una hoja determinada, si la encuentra la borra y luego inserta una hoja otorgando el mismo nombre que la hoja que borró, en caso que la hoja no haya estado en el libro solo agrega una hoja y asigna un nombre específico; anteriormente se presentó un tutorial que explica como se insertan hojas en Excel, aconsejo su lectura para entender el ejemplo presentado.

Este es uno de los mejores cursos on line que he visto en internet donde encontrarás todo lo necesario para aprender o profundizar en programación de macros.






Se puede descargar el ejemplo desde el link que se presenta al final; se denominado como insertar y borrar hojas en Excel con macro; como su nombre lo indica, primero lo que hace es recorrer todas las hojas del libro en busca de un nombre de hoja establecido, en caso de encontrar dicha hoja la elimina.

Luego de realizar la búsqueda del nombre de hoja establecido y eliminar la misma en caso de encontrarla, se procede a insertar otra hoja asignándole el nombre preestablecido; en el ejemplo se podrá observar dos botones, uno que quita la hoja preestablecida y otro que inserta hoja asignando como nombre de la hoja el preestablecido.
Aporta si es posible con ello ayudarás a seguir manteniendo el sitio, descarga desde el link del final el ejemplo; suscribe al blog para recibir en tu correo todas las actualizaciones, dispones también de un canal de You Tube donde encontrarás explicaciones de macros con mayor detalle.

Código que se inserta en un módulo



Sub InsertaHoja()
Application.ScreenUpdating = False
Application.DisplayAlerts = False
Dim she As Worksheet
On Error Resume Next
For Each she In Worksheets
mys = she.Name
If she.Name = "YTUINNODAYRACOLYUTOMYLEEOIUY" Then she.Delete
Next
ActiveWorkbook.Sheets.Add AFTER:=Worksheets(Worksheets.Count)
ActiveSheet.Name = "YTUINNODAYRACOLYUTOMYLEEOIUY"
Sheets("Hoja1").Activate
Application.ScreenUpdating = True
Application.DisplayAlerts = True
End Sub


Sub BorrarHoja()
Application.ScreenUpdating = False
Application.DisplayAlerts = False
Dim she As Worksheet
On Error Resume Next
For Each she In Worksheets
mys = she.Name
If she.Name = "YTUINNODAYRACOLYUTOMYLEEOIUY" Then she.Delete
Next
Sheets("Hoja1").Activate
Application.ScreenUpdating = True
Application.DisplayAlerts = True
End Sub



Si te fue de utilidad puedes INVITARME UN CAFÉ y de esta manera ayudar a seguir manteniendo la página, CLICK para descargar en ejemplo en forma gratuita.


If this post was helpful INVITE ME A COFFEE and so help keep up the page, CLICK to download free example.


Si te gustó por favor compártelo con tus amigos
If you liked please share it with your friends