Editar macro para "Si existe la hoja Responder Si o No
Dante aquí nuevamente para comentarte lo siguiente:
Tendría que; 1ª verificar si la hoja Global existe, si existe seguir con la 1ª pregunta,
¿Deseas Eliminar Hoja Global?
si no existe;
MsgBox "Vá a cerrar el libro y salir de la aplicacion, ¿Guardar los cambios, Cerrar y salir o No?"
vbYesNo
Si responde Salir(Si) guarda, Cierra y sale.
Si responde No(Cancel =True); no Guarda, no cierra ni sale.
Por ahora es lo que se me ocurre
Estoy pidiendo ayuda para esto, por si hay alguna equivocación cerrando el libro-aplicación y tener opción para devolverse sin que nada suceda posterior al pisar en POR o otra forma de salida
1 respuesta
Respuesta de James Bond
1
Prueba esta macro
Sub borrar()
Application.DisplayAlerts = False
Dim existe As Boolean
On Error Resume Next
existe = (UCase(Worksheets("GLOBAL").Name) = "GLOBAL")
If existe Then
ASK = MsgBox("Borrar hoja global", vbYesNo, "AVISO")
If ASK = vbYes Then Sheets("global").Delete
End If
Application.DisplayAlerts = True
End Sub
