Validar con MSGBOX antes de seguir con la macro
Tengo un inconveniente con una macro que estoy creando, tengo 1 macro de nombre VALIDACIONES; la cual funciona correctamente, el inconveniente es que estoy tratando de hacer una validación adicional, la validación es la siguiente:
Quiero que al verificar si una celda fija es igual a 1 se ejecute la macro validaciones, si la celda es igual a 0 entonces aparezca un MSGBOX con SI o NO como alternativas de respuesta, preguntando ¿Desea Continuar? Si la respuesta es NO debe salir de la macro, pero si la respuesta es SI debe llamar a la macro VALIDACIONES.
Hasta ahora cuando hago clic en SI o No se sale de la macro, no se donde tengo el error, Pero esto es lo que llevo de código:
Sub Validacion_Dia()
Dim Respuesta As Integer
If Range("K4").Value = 1 Then
Call Validaciones
ElseIf Range("K4").Value = 0 Then
Respuesta = MsgBox("La asistencia que va a cargar no corresponde al día de hoy, ¿Desea Continuar?", vbYesNo, "FECHA DE CARGA")
Else
If Respuesta = vbNo Then Exit Sub
Call Validaciones
End If
End Sub
Quiero que al verificar si una celda fija es igual a 1 se ejecute la macro validaciones, si la celda es igual a 0 entonces aparezca un MSGBOX con SI o NO como alternativas de respuesta, preguntando ¿Desea Continuar? Si la respuesta es NO debe salir de la macro, pero si la respuesta es SI debe llamar a la macro VALIDACIONES.
Hasta ahora cuando hago clic en SI o No se sale de la macro, no se donde tengo el error, Pero esto es lo que llevo de código:
Sub Validacion_Dia()
Dim Respuesta As Integer
If Range("K4").Value = 1 Then
Call Validaciones
ElseIf Range("K4").Value = 0 Then
Respuesta = MsgBox("La asistencia que va a cargar no corresponde al día de hoy, ¿Desea Continuar?", vbYesNo, "FECHA DE CARGA")
Else
If Respuesta = vbNo Then Exit Sub
Call Validaciones
End If
End Sub
1 Respuesta
Respuesta de Nelson Felipe Serrano
1