Macro que al guardar realice una acción
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...
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...
1 respuesta
Respuesta de tavopz
1
Ya la tienes prácticamente lista, sería incluir esto:
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
If Range("N10") > 0 Then
MsgBox ("Existen Errores, verificar en la columna [Tipo Registro] el registro (Erróneo) de color ROJO")
Cancel = True
End If
End Sub
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
If Range("N10") > 0 Then
MsgBox ("Existen Errores, verificar en la columna [Tipo Registro] el registro (Erróneo) de color ROJO")
Cancel = True
End If
End Sub
