Forums Últimos mensajes - Powered by IBM
 
Tags Palabras claves

TextBox

28/12/2008 - 00:23 por Manuel | Informe spam
Ayuda Hacer una pregunta
Tengo un formulario donde recojo la hora en un TextBox, aquí escribo
el código:


Private Sub UserForm_Click()
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. ¿Cómo puedo lograr esto?

Desde ya, muchas gracias,
Manuel
email Siga el debateRespuesta 7 respuestasRespuesta Tengo una respuesta

Preguntas similare

Mostrar todos los temas similares

Leer las respuestas

#1 Héctor Miguel
28/12/2008 - 02:27 | Informe spam
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...
Respuesta Responder a este mensaje
#2 Manuel
28/12/2008 - 02:59 | Informe spam
Héctor, mis saludos.

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

Saludos,
Manuel

On 28 dic, 01:27, "Héctor Miguel"
wrote:
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 -
Respuesta Responder a este mensaje
#3 Héctor Miguel
28/12/2008 - 03:45 | Informe spam
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...
Respuesta Responder a este mensaje
#4 Manuel
28/12/2008 - 10:25 | Informe spam
Héctor, este es el código 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?

Saludos,
Manuel

On 28 dic, 02:45, "Héctor Miguel"
wrote:
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 -
Respuesta Responder a este mensaje
#5 Héctor Miguel
28/12/2008 - 17:36 | Informe spam
hola, Manuel !

la sugerencia esta plasmada en el mensaje anterior... prueba algo +/- asi:

Private Sub OK_Click()
Worksheets("dbase").Range("a65536").End(xlUp).Offset(1) = Format(AdmissionTime, "0\:00")
End Sub

saludos,
hector.

__ OP __
... 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 __
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") -?-
Respuesta Responder a este mensaje
Ads by Google
Help Hacer una preguntaSiguiente Respuesta Tengo una respuesta
Search Busqueda sugerida