Google Groups no longer supports new Usenet posts or subscriptions. Historical content remains viewable.
Dismiss

Acumular valores en una celda

1,146 views
Skip to first unread message

gabriela

unread,
Aug 25, 2003, 5:37:15 PM8/25/03
to
Buenas tardes a todos. Soy Gabrielade Argentina, y
necesito que alguien me ayude.
Estoy tratando de crear una macro que me acumule valores
en una celda, de acuerdo a la pagina de microsoft y esd
imposible.
Por favor si alguien sabe como hacerla me sería de
muchísima utilidad.


Héctor Miguel

unread,
Aug 25, 2003, 9:19:26 PM8/25/03
to
Hola, Gabriela !

> ... macro que me acumule valores en una celda, de acuerdo a la pagina de microsoft y es imposible.

==> "aparentemente" quieres que un valor en una celda se "auto-acumule" sobre si mismo
(no se si "capte" bien lo que solicitas) pero... por lo pronto, prueba copiando las siguientes lineas:
=== en el modulo de codigo de "la hoja" y suponiendo que la celda "acumulante" fuera "A1" ===
Private Sub Worksheet_Change(ByVal Target As Range)
Static Anterior As Double
If Not Target = Range("a1") 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

Si se trata de algo diferente, ¿comentas mas datos?
_______
Saludos,
Héctor.
MS-MVP


cataplas

unread,
Aug 26, 2003, 1:30:41 PM8/26/03
to
Otra solución:

Siendo A1 la celda donde se acumula y B1 la celda donde introduces el valor
a acumular

Dim Acumulador
Acumulador = Range("A1").Value
Acumulador = Acumulador + Range("B1").Value
Range("A1") = Acumulador


"gabriela" <molina...@hotmail.com> escribió en el mensaje
news:039a01c36b51$0d01a340$a501...@phx.gbl...

COLEGIO DE BACHILLERATO TECNICO NUESTRA SEÑORA DE FATIMA DE IBAGUE

unread,
Sep 8, 2003, 10:10:58 AM9/8/03
to
Hola Gabriela, espero esto te sirva, ndepronto puedas aplicarlo:

Yo necesitaba acumular las vesntas diarias en una celda de tal manera que
que al digitar el nuevo valor, el acunulado apareciera en una nueva celda,
pues se logro de la siguiente manera:

Ventas Diarias en C7, acunulado en D7.

Bueno en d7 se digito =c7+d7 esto da una referencia Circular en el mensaje
que aparece se selecciona CANCELAR, luego de esto vas al menu herramientas ,
Opciones y en la pestaña Calcular escojes numero màximo de iteraciones 1
Luego aceptar,

Espero te sirva.

cordialmente

Heriberto Martínez

gabriela <molina...@hotmail.com> escribió en el mensaje de noticias
039a01c36b51$0d01a340$a501...@phx.gbl...

Germán Enrique Padilla Díaz

unread,
Jan 20, 2015, 5:12:34 PM1/20/15
to
Gracias, lo hice y me funcionó, es de gran utilidad.
Message has been deleted
0 new messages