TextBox

28/12/2008 - 00:23 por Manuel | Informe spam

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

Siga el debate

7 respuestas

Tengo una respuesta

Preguntas similare

Mostrar todos los temas similares

Leer las respuestas

#6 Manuel

29/12/2008 - 00:31 | Informe spam

Héctor, quedó perfectamente.

Sabes que cuando se resuelve una necesidad esta genera otra.
¿Cómo evito que se escriba algo que no sea número? y genere un error,
porque me percaté que sin querer se le pone el signo : y genera una
hora inadecuada (12:01 am).

Saludos, Manuel

On 28 dic, 16:36, "Héctor Miguel"
wrote:

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") -?-- Ocultar texto de la cita -

- Mostrar texto de la cita -

Responder a este mensaje

#7 Héctor Miguel

29/12/2008 - 01:13 | Informe spam

hola, Manuel !

... cuando se resuelve una necesidad esta genera otra.
Como evito que se escriba algo que no sea numero? y genere un error
porque me percate que sin querer se le pone el signo : y genera una hora inadecuada (12:01 am).

copia/pega (o escribe) lo siguiente en el modulo de codigo del formulario:

Private Sub AdmissionTime_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
Select Case KeyAscii
Case 48 To 57: Case Else: KeyAscii = 0
End Select
End Sub

saludos,
hector.

Siga el debate Respuesta

Responder a este mensaje

Ads by Google

Hacer una pregunta

Tengo una respuesta

1 2

Busqueda sugerida