Jump to content

La hora me sale en decimales en el desplegable del combobox


Recommended Posts

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

Link to post
Share on other sites
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

 

Link to post
Share on other sites

Create an account or sign in to comment

You need to be a member in order to leave a comment

Create an account

Sign up for a new account in our community. It's easy!

Register a new account

Sign in

Already have an account? Sign in here.

Sign In Now


  • Crear macros Excel

  • Posts

    • Buenas tardes Haplox, es justo lo que necesitaba, funciona perfecto. Muchas gracias. Solucionado.
    • Hola a todos, Espero poder explicarme bien. Adjunto archivo y a continuación la explicación. Tengo una gran base de datos de la cual necesito pasar los datos de 2 columnas no contiguas a filas mientras éstos tengan el mismo ID. En el ejemplo, a partir de la columna L (marcado en rojo) pongo intercalado los valores de la columna K y D en la misma fila mientras el ID_FORMULA (columna A) sea igual y siempre en la primera fila del grupo (por grupo me refiero a igual valor en columna A). Aclaro que la cantidad de filas por ID no es fija. Ejemplo.xlsxPuede ser desde 2 filas hasta 7.  En el ejemplo, hay de 3, 5 y 4 filas.  Como son 900.000 filas se me ocurre que lo mejor es hacer un macro pero no sé como o tal vez haya otra forma sin macros.  Agradezco la ayuda. 
    • Yo pienso que si, y desde luego me apoyo en lo que he entendido, pero tu debes estar mas claro, sobre lo que necesitas ¡Suerte!   Saludos
    • Te dejo una solución según lo que explicas. Saludos Copia de Ejemplo.xlsm
    • José Lamento te hayas confundido con el (mal) ejemplo que puse en codigo,,,Cubo es una hoja por cierto y estoy copiando a otra, cuyo nombre está en la variable cractual, colu es un numero de columna al igual que columnacr, pero ---olvida ello y dale una mirada al adjunto por favor ...alli está lo que quiero hacer
  • Recently Browsing

    No registered users viewing this page.

×
×
  • Create New...

Important Information

Privacy Policy