Buenas noches:
Tengo el siguiente código
Range("L8").End(xlDown).Offset(1, 0).Select
Selection.FormulaLocal = "=SUMA(L8:L18)"
En el libro que adjunto están los datos llenados hasta la fila 18 , solo que la última fila puede ser de menos o más datos, todo depende del movimiento de las fechas de ventas, POR FAVOR necesito una macro que introduzca la fórmula que sume hasta la última fila con monto, digamos que por ejemplo si el rango aumenta de l8 a l20 , sume ese rango, o si disminuye de l8 a l7 sume ese rango.
Muchas gracias por su tiempo.
Saludos cordiales
Jesús
| Adjunto | Tamaño |
|---|---|
 suma.xlsx | 31.3 KB |
Sub Macro2()
'definimos variable
Dim UltLinea As Long
'busco la última fila con datos que y le sumo 1 para colocar el sumatorio, define correctamente la columna y la primera celda que tiene datos
UltLinea = Range("E3").End(xlDown).Row + 1
'escribo la formula en la celda, fijate que le resto uno aquí a UltLinea para que no provoque una redundáncia
Range("E" & UltLinea).FormulaR1C1 = "=SUM(R[-" & UltLinea - 1 & "]C:R[-1]C)"
end sub
Saludos,
Muchas gracias, esta bien
Jesus Martinez Plantarosa
He probado tu script sin embargo no me funciono, me puedes ayudar , cuando lo ejecuto no da ningun resultado.
muchas gracias esta macro esta muy buena, pero podria el resultado de las sumas de cada rango colocarlo en la parte superior de la siguiente columna?
estuve buscando por mucho tiempo y tu respuesta me ayudó mucho, gracias!