Sub SumarHoras()
' Sumar 1 hora 55 minutos a D5 y colocar el resultado en E5
Range("E5").Value = Range("D5").Value + TimeValue("01:55:00")
' Sumar 3 horas 55 minutos a D5 y colocar el resultado en F5
Range("F5").Value = Range("D5").Value + TimeValue("03:55:00")
' Sumar 5 horas 55 minutos a D5 y colocar el resultado en G5
Range("G5").Value = Range("D5").Value + TimeValue("05:55:00")
' Sumar 7 horas 40 minutos a D5 y colocar el resultado en H5
Range("H5").Value = Range("D5").Value + TimeValue("07:40:00")
End Sub
No hay comentarios.:
Publicar un comentario