Una hora mas en el horario

[DIEFRA]

Un saludo muy especial a todos,

Me podrian ayudar con lo siguiente:

Tengo una columna en cuyas celdas estan los horarios del turno del personal asi:

6:20 - 16:30

y en la siguiente columna el horario debe aumentar una hora, por que el país a donde se envía la información esta una hora mas adelantado que mi país.

la hora entonces seria:

7:20 - 17:30

Lo que necesito es que este horario me cambie por medio de una formula para no tener que digitarlo o pegarlo.

AHHH... No puedo separar las horas en dos celdas tienen que quedar asi mismo.


Gracias

[mrocf]

Hola! DIEFRA. Supongamos que en la celda A1 tienes el dato fuente: 6:20 - 16:30.

Si tienes suerte... () la siguiente fórmula te puede resolver el problema:

= TEXTO( VALOR(IZQUIERDA(A1; HALLAR("-"; A1) - 1)) + 1/24; "hh:mm - ") & TEXTO( VALOR(DERECHA(A1; LARGO(A1) - HALLAR("-"; A1) )) + 1/24; "hh:mm") (en español)

ó:
= TEXT( VALUE(LEFT(A1, SEARCH("-", A1) - 1)) + 1/24, "hh:mm - ") & TEXT( VALUE(RIGHT(A1, LEN(A1) - SEARCH("-", A1) )) + 1/24, "hh:mm") (en inglés)

Y recuerda que -eventualmente- podrías necesitar cambiar los "punto y comas" por "comas" (o viceversa) dependiendo de la Configuración Regional de tu PC.

Saludos, Cacho.

[Taribo007]

Igual te vale tambien esto: copia esta funcion en un modulo:
Public Function UnaHoraMas(Var As String) As String

Dim ArrayV As Variant

ArrayV = Split(Var, " - ")

UnaHoraMas = Format(DateAdd("h", 1, CDate(ArrayV(0))), "hh:mm") & " - " & Format(DateAdd("h", 1, CDate(ArrayV(1))), "hh:mm")

End Function
Y la llamas asi desde un celda
=UnaHoraMas(Hoja1!A1)

Un saludo

[DIEFRA]

HOLA.

Simplemente..... perfecto, las dos formas que me han recomendado funcionan de maravilla.

mil gracias y hasta la proxima.

[mrocf]

¡ Qué bueno !!!
Entonces podemos considerar al tema cerrado.

Saludos para ambos, Cacho.