Buenas tardes expertos, tengo un problema con el formulario presisamente al momento de seleccionar el desplegable de la hora me muestra bien lista de hora pero cuando selecciones una de ellas se convierte en decimales. muchas gracias por ayuda , los adjunto el archivo.

BASE DE DATOS GESTION HUMANA (SERTOCON24).xlsm

Hola

No he visto tu archivo, pero solo es cosa que le cambies el formato a fecha

 

Saludos 

Gerson Pineda, si lo he intentado cambiando de muchas formas el formato y no e logrado de solucionar

En el evento change del combo hora:

Private Sub cmb_Hora_Change()
cmb_Hora = Format(cmb_Hora, "hh:mm:ss am/pm")
End Sub

 

Antoni, justo he probado con esa liena de codigo justo en el mismo evento que mensionas pero al ejcutar y seleccionar sale desbordamiento

Lo primero que te recomendaría es que te acostumbraras a trabajar con los mismos formatos en los datos y en los formularios.

Lo primero que veo que me llama la atención y es una de las causas de tus problemas es que en las celdas AM3:AM19 las horas los valores de las horas las tienes introducidas en formato numérico, y  al dar formato de celda a Hora Perú tu lo ves como hh/mm/ss a. m./p. m. incluidos espacios y puntos en am y pm.

Lo que hace el listbox al seleccionar es tomar el valor REAL de la celda, que en este caso será un valor numérico (puedes verlo si cambias el formato de celdas a General).

Para el ListBox el valor que vale es el numérico, no el adaptado por el formato de celda.

Lo que puedes hacer es introducir como primera línea en el list box lo siguiente:

Private Sub cmb_Hora_Change()
Me.cmb_Hora.Value = Format(Me.cmb_Hora.Value, "hh:mm:ss am/pm")
End Sub

De este modo se saldrá como hora de 1 a 12 y am/pm, aunque sin espacio ni puntos.

No he conseguido que lo haga automatico el poner el punto y el espacio.

De todos modos, si das formato de celdas en como TEXTO y escribes las horas formateadas a tu modo, no tienes que hacer nada en tus instrucciones.

Te envío los dos ejemplos. En el (1) modifico la macro y en el (2) modifico los datos de las celdas

BASE DE DATOS GESTION HUMANA (SERTOCON24)(1).xlsm BASE DE DATOS GESTION HUMANA (SERTOCON24)(2).xlsm

Hace 8 horas, Antoni dijo:

En el evento change del combo hora:

Private Sub cmb_Hora_Change()
cmb_Hora = Format(cmb_Hora, "hh:mm:ss am/pm")
End Sub

 

Prueba así:

Private Sub cmb_Hora_Change()
If cmb_Hora.ListIndex > -1 Then cmb_Hora = Format(cmb_Hora, "hh:mm:ss am/pm")
End Sub