Suma progresiva dentro de una misma celda

Estoy preparando una hoja para el control de consumibles en almacén.
Quisiera saber si dentro de una misma celda puedo insertar un valor sin perder el que anteriormente ya había colocado y se autosumen entre si.
Ejemplo: Tengo una celda con valor 7 y vuelvo a incrementar (en la misma celda) otro valor, por ejemplo 3, y luego 5. Lo que quiero es, que de alguna forma en esa misma celda se me muestre la autosuma del total (15) y no el último valor que he colocado.
Respuesta
3
No podrás sumar en tu misma celda ya que te dará error de 'referencia circular'.
Tendrás que utilizar una rutina que te controle lo que ingresas en esa celda (por ej: C15) y sumarle lo que se habrá guardado en otra auxiliar (por ej: AB1)
La rutina cópiala en el Editor de Macros, objeto HOJA donde tendrás esta celda.
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address(False, False) = "C15" Then
Application.EnableEvents = False
Target.Value = Target.Value + Range("AB1").Value
Range("AB1").Value = Target.Value
Application.EnableEvents = True
End If
End Sub
Saludos y comentame si esto resolvió tu problema.

1 respuesta más de otro experto

Respuesta

Que pasaría si se quiere de otra hoja el dato AB1. Como seria el proceso.

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas

Suma progresiva dentro de una misma celda en excel

Necesito hacer una suma progresiva dentro de una misma celda en excel; es decir, si en una celda (por ej:A1) ingreso el número 2, luego poder ser capaz de ingresar en la misma otro número, por ej el 3, y que me arroje el resultado de la suma de estos...
1 respuesta

Sumar valor en misma celda

Como lo hago para que al introducir un valor en una celda me sume automáticamente 25. Es decir que al poner 100 en una celda me de esta misma 125
1 respuesta

Cambiar indistintamente el valor que comparten dos celdas ( II)

Lamentablemente la solución que me dió Elsa no me vale del todo: Private Sub Worksheet_Change(ByVal Target As Range) 'x Elsamatilde If Not Intersect(Target, Range("A1:A10")) Is Nothing Then Range("B" & Target.Row) = Target.Value ElseIf Not...
1 respuesta

Modificar macro Excel para poner mayúsculas.

He copiado un macro para excel de Todo Expertos, para poner la primera letra de una oración en mayúscula y un punto final, funciona bien pero me gustacia aplicarlo solo a una celda o conjunto de ellas y no soy capaz de modificarlo, os agradecería...
1 respuesta

Celda que suma.

Me gustaría saber si es posible conseguir en excel lo siguiente: Tengo una celda que acumula totales, pero estos totales los calculo yo directamente. Me gustaría habilitar una celda para que le ponga un número, pulse intro, lo sume a la columna del...
1 respuesta

Bloquear varias celdas de acuerdo an contenido de otra

Tengo la hoja bloqueada esepto las celdas Q4, K16, K17, K18, Ahora bien si la celda Q4 tiene un valor de FINALIZAR quiero bloquear las celdas K16, K17, K18 y la propia celda Q4 de manera que ya no se pueda hacer ninguna modificacion La contraceña de...
1 respuesta

Ejecutar macro al cambiar el valor de una celda

Otra vez Resulta que tengo varias celdas c12, c13, i12 e i13 en las que se crea una lista de validación mediante una macro. Y quiero que al cambiar el valor de esas celdas se ejecute una macro He estado viendo soluciones que habéis propuesto pero a...
1 respuesta

Macro lenta en la ejecución calculando celdas

Tengo esto en la hoja : Private Sub Worksheet_Activate() ActiveSheet.ScrollArea = "A1:Q6000" Call Celdas_oculta End Sub Private Sub Worksheet_Change(ByVal Target As Range) 'Por.Dante Amor If Target.Column = 4 Then If Cells(Target.Row, "B") = "" Then...
2 respuestas

Ejecutar "x" macro cuando cambia valor"x" columna

Soy nuevo aquí, y tengo un dilema. Todas las respuestas que he mirado hablan de ejecutar una macro cuando se cambia una celda y no me sirven. Pues bien, tengo 5 macros en una hoja, cada una asociada a una columna con sus respectivas celdas. Las...
1 respuesta

Dividir procedimiento demasiado largo

No se si la otra pregunta se envío correctamente, te pido por favor si me puedes escribir como dividir este procedimiento en dos o más partes, porque el original excede los 64 KB y no he podido hacerlo usando el Call, supongamos el nombre para llamar...
1 respuesta