Como poner un AUTOSUMA en Excel con código

Lo que me gustaría hacer es poner un AUTOSUMA con una macro, tengo que poner la suma de varias cantidades, pero no siempre son los mismos registros varían mucho, se que Excel es =suma(rango:rango), ¿pero con código como sería?

2 respuestas

Respuesta
1

Por ejemplo, supongamos que quieres poner en A5 la suma de las celdas A1 a A4. En código sería asi

range("A5") = WorksheetFunction.Sum(Range("A1:A4"))

No sé si es eso lo que necesitas. Si quieres más, puedo hacer el código para que detecte las celdas que hay que sumar, que sean el bloque de celdas con datos seguidos que haya inmediatamente arriba.

Buen dia

Fijate que las celdas son variadas, me ayudaría mucho si solo detecta cuales se deben de sumar.

Te lo agradecere mucho

Alfonso Pineda

Casi sería mejor si me mandaras el fichero para saber lo que hay que hacer exactamente e incluso dejártelo hecho. No es lo mismo por ejemplo si sabemos las celdas donde habrá autosuma al principio o si dependerán de otras operaciones que se hagan. Tampoco es lo mismo si se modificarán las celdas de la suma y es necesario que se autorecalculen las sumas que si la macro se hace después de hechas todas las modificaciones.

Hay dos o tres formas de hacerlo cada una con sus ventajas o inconvenientes.

Mándame el fichero a

A ver si me aclaro, entonces lo que quieres es que se sumen todos datos de cada columna. El primer sumando será siempre el de la fila 2 y el último es el que hay que calcular. También entiendo que las columnas tienen todas el mismo número de filas.

Creo que lo que quieres es esta macro:

Sub AutoSuma()
Dim FilaSumas As Integer
FilaSumas = Range("A" & Rows.Count).End(xlUp).Row + 1
Range("C" & FilaSumas).FormulaLocal = "=SUMA(C2:C" & FilaSumas - 1 & ")"
Range("D" & FilaSumas).FormulaLocal = "=SUMA(D2:D" & FilaSumas - 1 & ")"
Range("E" & FilaSumas).FormulaLocal = "=SUMA(E2:E" & FilaSumas - 1 & ")"
End Sub

La ejecutas una vez y te colocará la fórmula de la suma en las celdas de abajo. De esta forma podrás modificar los datos de alguna celda y se modificará la suma automáticamente. Mientras que si hubiéramos hecho la suma dentro de la macro no se actualizaría, habría que volver a ejecutar la macro para que se recalculasen las sumas.

Ya me dirás si es esto. Ahora te mando el fichero, la macro tiene asignada la combinación de teclas

CTRL + MAYUS + A

Respuesta

Años... y sin la respuesta a la cual me enfrente.

Sub AutoSuma()

Dim fila, columna As Integer, rango As Range, suma As Long
fila = ActiveCell.Row
columna = ActiveCell.Column
    Set rango = Range(Cells(6, columna), Cells(fila - 1, columna))
    suma = Application.WorksheetFunction.Sum(rango)
    ActiveCell.Value = suma
End Sub

pero hay que volver a ejecutar la macro para que vuelva a sumar.

ActiveCell.FormulaR1C1 = "=SUM(R[rango])" 'deberia funcionar para poner la formula directo en la celda

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas

Como hacer que el resultado de la autosuma sea colocado en la parte superior del rango de celdas en lugar de la parte inferior?

En una columna tengo numeros que van desde la celda A5 hasta la celda A20 quiero que el resultado me salga en la celda A4 en lugar de la celda A21
1 respuesta

Bucle para Sumar Columnas cada 4 filas

Tengo un problema con una macro que no logro que funcione. La idea es que suma cada filas de cada columna y me ponga la suma en la ultima fila con datos de dicha columna, luego pasar a la siguiente columna y hacer lo mismo. El rango de filas es...
1 respuesta

Crear una macro para sumar valores de celdas donde la fila y la primera columna son fijas pero la ultima columna es variable.

Pues lo dicho. Necesito vuestra ayuda ya que soy novato en estas lides. Estoy intentando crear una macro para sumar valores de celdas donde la fila y la primera columna son fijas pero la ultima columna es variable. He encontrado este código: Dim...
1 respuesta

Suma con distintos sumandos desde celda relativa

He de realizar varias sumas en una misma hoja y de distintos sumandos. Sabemos las columnas a sumar pero no el número de filas ni el inicio para usar referencias absolutas. He probado a usar la pulsación de teclas en la macro como sendkeys "%{=}",...
1 respuesta

Suma en excel condicionada a celdas itinerantes

Quisiera una macro que sumase en columna "C" empezando en "C5" los ingresos de cantidades que iran siendo introducidas en celdas de las columnas "G", "I", "K", "M", "O", "Q", "S", "U", "W". Así por ejemplo: En "C5" totalizaría la suma de las celdas...
3 respuestas

Buscar en rango aquellas celdas que sumen valor dado

Encontré estas pregunta y respuesta aquí en el foro que son por un problema casi idéntico a uno que yo tengo. La respuesta que dio el experto es muy buena, pero funciona sólo identificando dos celdas que cumplen la restricción, y no sé cómo modificar...
2 respuestas

Ciclos en Macros para repetir una fórmula

Estoy haciendo una base de datos en Excel y necesito que en una columna se vayan sumando ciertos valores hasta la última celda que tenga datos, el código que tengo es el siguiente: Sub Ejemplo_28() Dim A As Integer Dim B As Integer A =...
1 respuesta

Combinatoria condicional

Ayudame ahora 6 abril ok (6/4/2003) Tengo lo siguiente A1 10 A2 20 A3 30 A4 40 A5 50 Quiero que sume 50 solo con dos celdas Y después las marque en negro Esta pregunte es un suesto pueden haber 1000 celdas y quiero que sume a 55874 Usando 745 celdas...
1 respuesta

Suma de Columnas por VBA

Tome de tus respuestas este código el cual suma varias columnas en hoja de calculo y lo quise adaptar a mi hoja de calculo, pero algo he hecho mal, que al correr el programa me da error, me dice que no coinciden los tipos de datos. Quiero aclarar que...
1 respuesta

VBA llenar fórmula en celda si se cumple cierta condición.

Estaría necesitando una macro que me llene una celda con la fórmula Sum, si una celda en la misma fila tiene una X. Deseo hacer una planilla, supongamos con 6 columnas, y que si en la primer columna tiene una la celda tiene una “x”, que en esa misma...
1 respuesta