TextBox

Tengo un formulario donde recojo la hora en un TextBox ...
Private Sub AdmissionTime_Exit(ByVal Cancel As MSForms.ReturnBoolean)
If AdmissionTime.Value > "24:00:00" Then
MsgBox "Select the hour using 24 format.", vbCritical, "ERROR WHEN INTRODUCING THE HOUR"
Cancel = True
Exit Sub
End If
End Sub
Deseo escribir en el TextBox solo la hora, en vez de escribir por ejemplo 10:50, quiero escribir 1050
y que el asuma los dos puntos intermedios que separan la hora de los minutos, así ahorro tiempo y evito errores...

hola, Manuel !

(p.e.)

Private Sub AdmissionTime_Exit(ByVal Cancel As MSForms.ReturnBoolean)
  If Format(AdmissionTime, "0\:00") > "24:00:00" Then
    MsgBox "Indica la hora en formato de 24 [hhmm]", vbCritical, "ERROR al entrar la hora !!!"
    Cancel = True
  End If
End Sub

saludos,
hector.

__ OP __



> Tengo un formulario donde recojo la hora en un TextBox ...
> Private Sub AdmissionTime_Exit(ByVal Cancel As MSForms.ReturnBoolean)
> If AdmissionTime.Value > "24:00:00" Then
> MsgBox "Select the hour using 24 format.", vbCritical, "ERROR WHEN INTRODUCING THE HOUR"
> Cancel = True
> Exit Sub
> End If
> End Sub
> Deseo escribir en el TextBox solo la hora, en vez de escribir por ejemplo 10:50, quiero escribir 1050
> y que el asuma los dos puntos intermedios que separan la hora de los minutos, así ahorro tiempo y evito errores...- Ocultar texto de la cita -

- Mostrar texto de la cita -

Hice los arreglos que me indicas y al transcribirme la hora en la hoja indicada
siempre me pone 12:00 am. AL parecer hay algun error.

(p.e.)

Private Sub AdmissionTime_Exit(ByVal Cancel As MSForms.ReturnBoolean)
If Format(AdmissionTime, "0\:00") > "24:00:00" Then
MsgBox "Indica la hora en formato de 24 [hhmm]", vbCritical, "ERROR al entrar la hora !!!"
Cancel = True
End If
End Sub

__ OP __
Mostrar la cita

Tengo un formulario donde recojo la hora en un TextBox ...
Private Sub AdmissionTime_Exit(ByVal Cancel As MSForms.ReturnBoolean)
If AdmissionTime.Value > "24:00:00" Then
MsgBox "Select the hour using 24 format.", vbCritical, "ERROR WHEN INTRODUCING THE HOUR"
Cancel = True
Exit Sub
End If
End Sub
Deseo escribir en el TextBox solo la hora, en vez de escribir por ejemplo 10:50, quiero escribir 1050
y que el asuma los dos puntos intermedios que separan la hora de los minutos, así ahorro tiempo y evito errores...

hola, Manuel !

> Hice los arreglos que me indicas y al transcribirme la hora en la hoja indicada
> siempre me pone 12:00 am. AL parecer hay algun error.

y... el codigo con el que haces "el pase" a la hoja indicada... tambien usa alguna instruccion parecida ?
esa parte no la has dado a conocer... p.e. ActiveCell = Format(AdmissionTime, "0\:00")    -?-

saludos,
hector.

__ previos __



> (p.e.)

> Private Sub AdmissionTime_Exit(ByVal Cancel As MSForms.ReturnBoolean)
> If Format(AdmissionTime, "0\:00") > "24:00:00" Then
> MsgBox "Indica la hora en formato de 24 [hhmm]", vbCritical, "ERROR al entrar la hora !!!"
> Cancel = True
> End If
> End Sub

> __ OP __
>> Tengo un formulario donde recojo la hora en un TextBox ...
>> Private Sub AdmissionTime_Exit(ByVal Cancel As MSForms.ReturnBoolean)
>> If AdmissionTime.Value > "24:00:00" Then
>> MsgBox "Select the hour using 24 format.", vbCritical, "ERROR WHEN INTRODUCING THE HOUR"
>> Cancel = True
>> Exit Sub
>> End If
>> End Sub
>> Deseo escribir en el TextBox solo la hora, en vez de escribir por ejemplo 10:50, quiero escribir 1050
>> y que el asuma los dos puntos intermedios que separan la hora de los minutos, así ahorro tiempo y evito errores...- Ocultar texto de la cita -

- Mostrar texto de la cita -

... este es el codigo de "pase":

Private Sub OK_Click()
Application.ScreenUpdating = False
Sheets("DBASE").Activate
Range("A10").Select
Do While Not IsEmpty(ActiveCell)
ActiveCell.Offset(1, 0).Activate
Loop
ActiveCell.Offset(0, 0) = AdmissionTime.Value
Sheets("INI").Activate
End Sub

Me sugieres algo?

__ previo __
Mostrar la cita

Hice los arreglos que me indicas y al transcribirme la hora en la hoja indicada
siempre me pone 12:00 am. AL parecer hay algun error.

y... el codigo con el que haces "el pase" a la hoja indicada... tambien usa alguna instruccion parecida ?
esa parte no la has dado a conocer... p.e. ActiveCell = Format(AdmissionTime, "0\:00") -?-