Diferencia de tiempo en excel
Saludos experto paramisolo
Tengo el código para insertar en una celda de excel la hora actual del sistema (gracias a ti) pero ahora surgió una complicación, quieren que de algún modo pueda hacer una resta del tiempo entre una hora y otra.
Es decir, que cuando entre a la hoja de excel y presione un botón, se guarde la hora del sistema y después cuando le presione otro botón se marque esa hora y haga una resta entre la diferencia de ambos tiempos y que esta diferencia se muestre en otra celda.
Ya lo estuve intentando, pero la verdad, no tengo idea como hacerlo
Te agradecería mucho si me ayudas.
DE antemano, gracias por tu tiempo y ayuda.
Tengo el código para insertar en una celda de excel la hora actual del sistema (gracias a ti) pero ahora surgió una complicación, quieren que de algún modo pueda hacer una resta del tiempo entre una hora y otra.
Es decir, que cuando entre a la hoja de excel y presione un botón, se guarde la hora del sistema y después cuando le presione otro botón se marque esa hora y haga una resta entre la diferencia de ambos tiempos y que esta diferencia se muestre en otra celda.
Ya lo estuve intentando, pero la verdad, no tengo idea como hacerlo
Te agradecería mucho si me ayudas.
DE antemano, gracias por tu tiempo y ayuda.
1 Respuesta
Respuesta de paramisolo
1
para el reloj, ya sabes pones de formato las 3 celdas Hora=*13:30:55
Para que se ejecute el reloj en automático al iniciar el excel pones este código en un modulo
Sub Reloj()
Range("A1").Formula = "=NOW()"
Application.OnTime Now + TimeValue("00:00:01"), "reloj"
End Sub
Sub auto_Open()
Call Reloj
End Sub
Ahora dibujas los dos botones en la hoja y pones este codigo:
Private Sub CommandButton1_Click() 'Primera captura de tiempo
Dim tiempo As Date
Range("A1").Select
tiempo = ActiveCell.Text
Range("B1").Value = tiempo
End Sub
Private Sub CommandButton2_Click() 'Diferencia de los dos tiempos
Dim tiempoINI As Date
Dim tiempoFIN As Date
tiempoINI = Range("A1").Text
tiempoFIN = Range("B1").Value
Range("C1").Select
ActiveCell.Value = tiempoINI - tiempoFIN
End Sub
Para que se ejecute el reloj en automático al iniciar el excel pones este código en un modulo
Sub Reloj()
Range("A1").Formula = "=NOW()"
Application.OnTime Now + TimeValue("00:00:01"), "reloj"
End Sub
Sub auto_Open()
Call Reloj
End Sub
Ahora dibujas los dos botones en la hoja y pones este codigo:
Private Sub CommandButton1_Click() 'Primera captura de tiempo
Dim tiempo As Date
Range("A1").Select
tiempo = ActiveCell.Text
Range("B1").Value = tiempo
End Sub
Private Sub CommandButton2_Click() 'Diferencia de los dos tiempos
Dim tiempoINI As Date
Dim tiempoFIN As Date
tiempoINI = Range("A1").Text
tiempoFIN = Range("B1").Value
Range("C1").Select
ActiveCell.Value = tiempoINI - tiempoFIN
End Sub
Saludos experto paramisolo
Ya cheque tu código y funciona muy bien, de verdad te agradezco tu ayuda y sobretodo que compartas tus conocimientos con los demás.
Te doy la máxima calificación.
Ya cheque tu código y funciona muy bien, de verdad te agradezco tu ayuda y sobretodo que compartas tus conocimientos con los demás.
Te doy la máxima calificación.
