Saltar al contenido

Eliminar hojas sin que pida confirmación


pneox

Recommended Posts

publicado

Hola a todos, tengo un libro con varias hojas, y al ejecutar una macro quiero que se eliminen unas cuantas (siempre las mismas), pero no quiero que me salga el mensaje de confirmación de eliminación de las hojas. Lo he intentado con Application.DisplayAlerts = False pero no lo consigo, me sigue pidiendo el mensaje de confirmacion. Os copio el código:

Sub ()
'
' Macro
'
Application.ScreenUpdating = False

'
Application.DisplayAlerts = False
    Range("D11").Select
    ActiveCell.FormulaR1C1 = "Perfil"
    Columns("K:R").Select
    Selection.EntireColumn.Hidden = True
    Range("G23").Select
    ActiveWindow.SmallScroll Down:=18
    Range("D40").Select
    ActiveSheet.Shapes.Range(Array("Check Box 11")).Select
    Selection.Delete
    ActiveWindow.SmallScroll Down:=15
    ActiveSheet.Shapes.Range(Array("Button 5")).Select
    Selection.Delete
    Rows("35:63").Select
    Selection.Delete Shift:=xlUp
    Range("C48").Select
    ActiveWindow.SmallScroll Down:=-45
        Sheets(Array("hoja2", "hoja3", "hoja4", _
        "hoja5", "hoja6", "hoja7", "hoja8", _
        "hoja9", "hoja10")).Select
    ActiveWindow.SelectedSheets.Delete
    ActiveWindow.SmallScroll Down:=-21
    Range("A3:B4").Select
    Range("B4").Activate
    Selection.ClearContents
    Range("C11").Select


End Sub

 

Gracias.

publicado

@pneox , no sé qué habrás hecho, pero con "DisplayAlerts=False" es suficiente. Eso sí, pon al final de la macro "Application.DisplayAlerts=True" porque si no se queda trabado el False. Prueba con:
 

Application.DisplayAlerts=False

Todo tu código...

Application.DisplayAlerts=True

Por cierto, todo ese código de la grabadora se podría simplificar si no s explicas el propósito de la macro y subes tu archivo de ejemplo

publicado

Hola Haplox! Gracias por tu respuesta.

He vuelto a grabar la macro y le he aplicado tal como me has dicho, y esta vez ha funcionado. He aprovechado, como me decías para borrar lineas que parecían inútiles dentro del código. Parece que ha quedado bien!! Muchas gracias.

Archivado

Este tema está ahora archivado y está cerrado a más respuestas.

×
×
  • Crear nuevo...

Información importante

Echa un vistazo a nuestra política de cookies para ayudarte a tener una mejor experiencia de navegación. Puedes ajustar aquí la configuración. Pulsa el botón Aceptar, si estás de acuerdo.