Jump to content
pneox

Eliminar hojas sin que pida confirmación

Recommended Posts

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.

Share this post


Link to post
Share on other sites

@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

Share this post


Link to post
Share on other sites

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.

Share this post


Link to post
Share on other sites



×
×
  • Create New...

Important Information

Privacy Policy