Suma Acumulada en hh:mm:ss en hoja Excel
Para: Dante Amor
Ante todo un cordial saludo, mi pregunta es como puedo realizar un acumulado de horas minutos y segundos ya que tengo una macro en la que solo puedo acumular o incrementar números mas no lo que que busco. Es decir si mi celda C3 se encuentra con 00:00:30 y dígito en la misma celda 00:00:10 presiono Enter la autosuma debería de darme 00:00:40
La macro que tengo en la Hoja1 es la siguiente.
Option Explicit
Dim valor As Long
Dim CantidadVeces As Integer
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$C$3" Then
CantidadVeces = CantidadVeces + 1
If CantidadVeces > 1 Then
Exit Sub
End If
valor = valor + Sheets("Hoja1").Range("C3").Value
Sheets("Hoja1").Range("C3").Value = valor
End If
End Sub
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
valor = 0
CantidadVeces = 0
If Target.Address = "$C$3" Then
valor = Sheets("Hoja1").Range("C3").Value
End If
End SubEspero que mi pregunta sea entendida correctamente y gracias por la repuesta que me pueda dar.
1 respuesta
Respuesta de Edgar Castillo
1
Gracias al foro e podido resolver esta pregunta y si a alguien le interesa la macro con la que resolví esta pregunta se las dejo.
Private Sub Worksheet_Change(ByVal Target As Range)
On Error Resume Next
Static Anterior As Double
If Not Target = Range("C3") Then Exit Sub
On Error GoTo Fin
If Target <> 0 Then
Application.EnableEvents = False
Target = Target + Anterior
Anterior = Target
Else
Target.ClearContents
Anterior = 0
End If
Fin:
Application.EnableEvents = True
End SubTema Resuelto.
