Box para preguntar si o no en Excel 2013
Hola a todos, tengo la siguiente rutina que funciona muy bien, pero quisiera (debido a que es borrar contendidos), que antes de que se ejecute la rutina saliera una caja y pregunte SI esta seguro que desea borrar, si encoje SI, pues la rutina se ejecuta pero si escoge NO simplemente se detiene y cierra la caja de dialogo.
Sub Nueva_Evaluacion()
Application.ScreenUpdating = False
ActiveSheet.Unprotect Password:="2012"
Rows("36:1000").Select
Selection.Delete Shift:=xlUp
Range("C6:D35").Select
Selection.ClearContents
Range("F6:F35").Select
Range("F33").Activate
Selection.ClearContents
Range("H6:J35").Select
Range("J33").Activate
Selection.ClearContents
Range("M6:M35").Select
Selection.ClearContents
Range("C6:C11").Select
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True, AllowFiltering:=True, Password:="2012"
Application.ScreenUpdating = True
End Sub
Espero me puedan ayudar!!
1 Respuesta
Te agregue las instrucciones que necesitas: Solo ajusta el texto que desees mostrar.
Sub Nueva_Evaluacion()
'agregado x Elsamatilde
Dim sino
sino = MsgBox("¿Deseas eliminar?", vbQuestion + vbYesNo, "CONFIRMAR")
If sino <> vbYes Then Exit Sub
'----- sigue tu macro
Application.ScreenUpdating = False
ActiveSheet.Unprotect Password:="2012"
End Sub
