|
|
Cordial Saludo,
Necesito hacer lo siguiente:
En la celda N10 tengo una fórmula que me cuenta errores de diligenciamiento de un formato, si el valor de esa celda es superior a cero (0), lo que quiero es que el libro o archivo no se pueda guardar, entonces el usuario haga las correcciones y cuando le vuelva a dar en guardar, la macro verifique la celda N10 y si es igual a cero (0) entonces ahora si guarde.
lo que tengo hasta ahora es que me muestra el mensaje de que hay errores pero igual guarda...
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
'no dejar guardar mientras haya errores
If Range("N10") > 0 Then MsgBox ("Existen Errores, verificar en la columna [Tipo Registro] el registro (Erróneo) de color ROJO")
End Sub
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
Muchas Gracias...
|