Hay ocasiones en las que tenemos que crear o agregar una hoja y más tarde descubrimos que no se usaba esa hoja, por lo que necesitamos eliminar la hoja rápidamente del libro de trabajo. Este artículo se enfoca en ahorrar tiempo y proporcionar código para eliminar hojas sin ningún cuadro de mensaje de aviso usando macro / código vba. Puede ser una hoja o varias. Y Excel da una alerta emergente para confirmar la eliminación de la hoja. Si es una hoja, es manejable. Pero si tiene que eliminar varias hojas, obtendrá una ventana emergente por hoja.
A menudo crea varias hojas usando VBA. Pero al final, en realidad no los necesita. Desea eliminarlos una vez que haya terminado su trabajo. Mantendrá su archivo más ligero, rápido y sensible.
El código VBA para eliminar una hoja es simple
Hojas de cálculo ("SheetName"). Eliminar
Digamos que tiene este código para agregar una hoja y luego eliminarlo cuando termine el trabajo.
Sub AddAndDeleteSheet () Sheets.Add 'Agrega una nueva hoja al libro de trabajo activo' ---- '----' ---- 'algo de trabajo en la hoja hecho ActiveSheet.Delete' elimina el activo Activesheet End Sub
Cuando ejecute este código, Sheets.Add funcionará sin ningún aviso, pero cuando el compilador llegue a ActiveSheet.Delete mostrará un mensaje como este.
Dado que está eliminando hojas usando VBA, sabe lo que está haciendo. Le gustaría decirle a Excel que no muestre esta advertencia y elimine la maldita hoja.
Para hacer esto, apagaremos el botón de alerta de visualización de la aplicación Excel.
El siguiente código omitirá este mensaje de alerta y la hoja se eliminará sin ningún indicio.
Sub AddAndDeleteSheet () Application.DisplayAlerts = False 'desactivando el botón de alerta Sheets.Add' ---- '----' ---- 'algo de trabajo en la hoja hecho ActiveSheet.Delete Application.DisplayAlerts = True' activando el botón de alerta End Sub
Aquí estamos eliminando Activesheet usando VBA. Puede eliminar cualquier hoja usando VBA. Simplemente escriba Hojas ("Nombre de hoja"). Eliminar. Hacia adelante…
DisplayAlerts es una propiedad del objeto Application en VBA. Aquí lo apagamos al principio de nuestro código y lo encendemos al final del código. El código anterior confirmará la eliminación sin ningún indicio.
Nota:El código anterior ignorará todas las advertencias lanzadas por Excel. Si desea permitir solo la eliminación de hojas, use esta línea.
Application.DisplayAlerts = False 'desactivando el botón de alerta ActiveSheet.Delete Application.DisplayAlerts = True' activando el botón de alerta
Esto ignorará solo la advertencia de eliminación de hojas.
Consejo profesional: Estas líneas de código hacen que su código VBA sea más eficiente.Úselos siempre al comienzo de su macro y vuelva a activarlos donde se espere que su código salga de la rutina.Advertencia: Si no se enciende antes de salir de la subrutina, es posible que no vea ninguna advertencia. Incluso si su código no se está ejecutando. Esto puede causar muchos problemas.
Si tiene varias hojas para eliminar y está usando un bucle, pruebe este código:
Opción Explícita Sub macro2 () Dim i As Long Application.DisplayAlerts = False For i = 1 to Worksheets.Cuente si Worksheets (i) .Name Like "Test *" Then Worksheets (i) .Delete Next i Application.DisplayAlerts = True End Sub
Eso es todo. Se hace. Es tan fácil como encender y apagar el ventilador. ¿No es así?
Si te gustaron nuestros blogs, compártelo con tus amigos en Facebook. Y también puedes seguirnos en Twitter y Facebook.
Nos encantaría saber de usted, háganos saber cómo podemos mejorar, complementar o innovar nuestro trabajo y hacerlo mejor para usted. Escríbenos a sitio de correo electrónicoDescargar archivo
Elimine hojas sin mensajes de confirmación usando VBA en Microsoft Excel
Divida la hoja de Excel en varios archivos según la columna usando VBA
Cambiar la impresora predeterminada usando VBA en Microsoft Excel 2016
Desactive los mensajes de advertencia con VBA en Microsoft Excel 2016
Mostrar un mensaje en la barra de estado de Excel VBA
Insertar imágenes usando VBA en Microsoft Excel 2016
Cómo recorrer las hojas en Excel usando VBA
Articulos populares:
50 accesos directos de Excel para aumentar su productividad
Cómo utilizar la función BUSCARV en Excel
Cómo usar la función CONTAR.SI en Excel
Cómo utilizar la función SUMIF en Excel