Validar TextBox de fecha y hora

Tengo un userform donde tengo un textbox donde ingreso una fecha y otro donde ingreso hora. Como puedo validar que la fecha no supere la fecha actual y que la hora también quede sin superar las 23:59, es decir que no pueda digitar, por ejemplo, 25:00.

1 Respuesta

Respuesta
1

Prueba con el evento Exit de tu textbox

Pon el siguiente código en tu userform. Cambia TextBox1 por el nombre de tu control.

Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
  Dim x As Variant
  If TextBox1.Value = "" Or salir Then Exit Sub
  On Error Resume Next
  x = TimeValue(TextBox1.Value)
  If x = "" Then
    MsgBox "No es una hora válida"
    Cancel = True
  End If
End Sub

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas