Acumular la suma en una misma celda para varias celdas

[alexguti]

SOY MUY NUEVO EN EXCEL Y NO SE COMO HACER QUE ME FUNCIONE ESTE MACRO EN MAS CELDA APARTE DE H3 EN LA QUE FUNCIONA PERFECTAMENTE, COMO POR EJEMPLO DESDE H3 HAST H20

Option Explicit

Dim valor As Long

Dim cantidadVeces As Integer

Private Sub Worksheet_Change(ByVal Target As Range)

If Target.Address = "$H$3" Then

cantidadVeces = cantidadVeces + 1

If cantidadVeces > 1 Then

Exit Sub

End If

valor = valor + Sheets("Entradas-salidas").Range("H3").Value

Sheets("Entradas-salidas").Range("H3").Value = valor

End If

End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

valor = 0

cantidadVeces = 0

If Target.Address = "$H$3" Then

valor = Sheets("Entradas-salidas").Range("H3").Value

End If

End Sub

Copia de Control-de-entradas-y-salidas.xls

[eja-n1]

Hola alexguti.

Te mando el ejemplo correjido. Haber si es esto lo que quieres. Te lo he puesto desde H3:H53. Si quieres que te afecte a toda la columna solo tienes que ponerlo H:H.

Comenta y si te gusta pica en me gusta y da el tema escribiendo tema solucionado.

Saludos.

Control-de-entradas-y-salidas-3.xls

[alexguti]

Perfecto muchisimas gracias.....

[Antoni]

Para futuras consultas, sube un archivo con las explicaciones.

No escribas en mayúsculas, que hay gente a la que les molesta.

[alexguti]

Tema solucionado