Macro sumatoria de datos que actualizan en tiempo real

[od-lambda]

Buenas:

Tengo un pequeño problema al poder establecer finalmente la siguiente macro a ver si podeis orientarme:

Sub VOLUMEN_VENTA_ACUMULADO()


Do


    Dim Acumulador


Acumulador = Range("D20").Value


Acumulador = Acumulador + Range("B19").Value


Range("D20") = Acumulador


Loop


End Sub[/CODE]

-Su función principal es actualizar los datos constantes de un volumen de venta los cuales se van actualizando casi al seg o en un tiempo real.(Según vienen).

Mi idea principal es hacer una suma acumulativa de estos datos siempre y cuando se actualicen no como esta pequeña macro que actualiza en un bucle el mismo dato.

Por otro lado nose si existe la posibilidad de que nada más abrir la tabla se ejecute dicho macro

Ante todo muchas gracias por leer y vuestro tiempo.

Un saludo:kiwi-fruit:

Tabla.zip

[supervoro]

Hola ol-lambda...

En primer lugar darte la bienvenida al foro y luego... sugerirte que subas el archivo con el mayor numero de aclaraciones relativas a lo que pretendes, asi sera mucho mas facil que cualquiera de nosotros pueda ayudarte

Un saludo

[od-lambda]

Hola supervoro:

Gracias por la bienvenida como no os subo el archivo excel.

Gracias de nuevo!

[supervoro]

Hola denuevo od-lambda....

No habia visto que colgaste el archivo... Bueno... si he entendido lo que quieres... quiza esta macro te sirva

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

If Intersect(Target, Range("B2:B3")) Is Nothing Then Exit Sub

If [b1] <> "" Then [D2] = [D2].Value + [b1].Value: [b1] = ""

If [b2] <> "" Then [D3] = [D3].Value + [b2].Value: [b2] = ""

End Sub