Foro Excel

Deseo trasladar a una Label, dentro de un UserForm, una cantidad de horas que figura en una celda de una Hoja (la cantidad de horas trabajadas en una semana o mes, por ejemplo). El problema es que, mientras esa cantidad de horas se mantenga por debajo de 24h. no hay problema, pero si es mayor de 24h. me aparece la cantidad de horas después de restarle 24, 48, etc.
Por ejemplo, si aparecen 17h. 15m. en la celda aparece 17:15, pero si es 45h. 00m., en la celda aparece 21:00.
¿Alguien puede ayudarme?
Gracias y un saludo,

Hola,

Creo que es un problema de formato. En la celda donde obtengas la suma total de horas, pon el siguiente formato:

[h]:mm:ss

Lo deberás poner a partir de la categorí­a personalizado.

Creo que eso te deberí­a servir. Un saludo.

Onuba:
sino lo lgras con Format( ,"[hh]:mm")
prueba con esto, adaptandolo a tu código

Código: Seleccionar todo

>>>>>>>>>>>>>>>>>>>>>>>>>>>
ActiveCell.NumberFormat = "[h]:mm"
 tiempo = ActiveCell.Value
 
 horas = Int(tiempo * 24)
 minutos = (tiempo * 24 - Int(tiempo * 24)) * 60
 
 
 mensaje = Format(horas, "00") & " h." & Format(minutos, "00") & " m."
 MsgBox mensaje
>>>>>>>>>>>>>>>>>>>>>>>>>>>


Muchas gracias a ambos por vuestro interés.
Chuki: tu solución es buena, pero no sirve para el desarrollo de código que tengo implementado. Cada pasada por alguna celda que contenga el dato horas hago algo así­ como "variable = variable + valor de celda", de tal manera que la variable llega a tener su valor correcto, pero a la hora de visualizarla en un MsgBox o Label de algún formulario, es cuando tengo el problema del formato.
Con la solución que propone Galileogali, aplicada a mi variable, que en su ejemplo es "tiempo", no tengo ningún problema para visualizar el dato (que serí­a "mensaje") en el UserForm que pretendí­a.
Repito mi agradecimiento a ambos y quedo a vuestra disposición.
Un saludo