Detallar Horas y Minutos con macro
Buen dia Experto
Estoy tratando de detallar las horas de acuerdo a la hora que ponga en A1 y B1 y determinar los minutos restantes a dichas horas, ejemplo
A1 = Hora de entrada (8:05)
B1=Hora Salida (16:04)
En la columna D detallo las horas y en Columna E detallo el numero de horas y en la columna F pongo los minutos restantes
Para efectos del codigo que estoy haciendo puse las siguientes formulas en las celdas
H1 = Hora(A1)
I1 = si(minuto(b1)>= minuto(A1),Hora(B1),Hora(B1)-1)
J1=Minuto(A1)
Este es el codigo que uso para detallar las horas
Sub ejemplo1()
Dim i, fila, contador As Integer
fila = 2
contador = 0
For i = Range("H1").Value To Range("I1").Value
Cells(fila, 4) = TimeSerial(i, Range("J1").Value, 0)
Cells(fila, 5) = contador
fila = fila + 1
contador = contador + 1
Next
End Sub
Al correr la macro en la columna D y E da el siguiente resultado
Col D Col E Col F
08:05:00 0
09:05:00 1
10:05:00 2
11:05:00 3
12:05:00 4
13:05:00 5
14:05:00 6
15:05:00 7 59 los minutos no se como ponerlos
Otro caso seria si la hora de salida fuera 16:06, en la col F medeberia de poner 1 minuto.
La version de excel que tengo es 2003
Agradezco de antemano la ayuda para poder agregarle a mi codigo el poder determinar los minutos, o si existe un codigo diferente adelante estoy abierto a las propuestas.
Saludos
1 Respuesta
Prueba con lo siguiente
Sub ejemplo1()
Dim i, fila, contador As Integer
fila = 2
contador = 0
rm = Minute([B1] - [A1])
For i = Range("H1").Value To Range("I1").Value
Cells(fila, 4) = TimeSerial(i, Range("J1").Value, 0)
Cells(fila, 5) = contador
fila = fila + 1
contador = contador + 1
Next
Cells(fila - 1, "F") = rm
End Sub Saludos.DAM
Si es lo que necesitas.
