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 Sub

Espero que mi pregunta sea entendida correctamente y gracias por la repuesta que me pueda dar.

1 respuesta

Respuesta
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 Sub

Tema Resuelto.

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas