formato personalizado con cálculos

Hola Charo.

Prueba con:

Private Sub Worksheet_Change(ByVal Target As Range)
If Target = Int(Target) Then
Target = Target / 1440
Target.NumberFormat = "h"" horas ""mm"" minutos ""ss"" segundos"""
End If
End Sub

Saludos desde Tenerife.
*************************
"news.microsoft.com" escribió en el mensaje
news:

Hola buenas tardes.

Tengo una duda en excel y busca alguien que me pueda ayudar.
Quiero realizar lo siguiente:
Introduzco un número en una celda, por ejemplo 75 y aplicarle un formato
en la misma celda que me ponga 1 horas 15 minutos 0 segundos.

Gracias por vuestra atencion
Charo