Sumar Rango

Buen día
Estando ubicado en la celda activa (Puedes ser cualquier celda de la Columna C, en este ejemplo C120), necesito sumar el rango que exista en la columna D6:D119, es decir una fila antes y una Columna después de la celda activa.
Luego de hacer la suma debe colocar un texto (Pasan) en la celda anterior a la celda activa en la columna B (Siempre es en la Columna B)
La celda activa puede ser cualquier celda de la Columna C, obviamente después de la fila 6.
Muchas Gracias

1 respuesta

Respuesta
1
Según lo que explicas la macro sería la siguiente:
'===============
diract = ActiveCell.Address()
celda = Val(Right(diract, Len(diract) - 1))
ini = (celda - 6) * -3
form = "=SUM(R[" & Str(ini) & "]C[1]:R[-1]C[1])"
ActiveCell.FormulaR1C1 = form
ActiveCell.Offset(-1, -1).Range("A1").Select
ActiveCell.Value = "Pasan"
'================
Esta hace lo que dices, y ubica el valor de la fórmula en la celda activa.
Si tienes alguna duda no dudes en contactarme, sino.

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas

Rango variable para una fórmula "sum"

Estoy desarrollando un programa para EXCEL. En su momento dominaba bastante el lenguaje MACRO y ahora estoy "migrando" a VISUAL. Mi problema es que en una instrucción, quiero que me cree una fórmula de suma tal como esta ... ActiveCell.FormulaR1C1 =...
1 respuesta

Macro para Modificar una Fórmula

Primero que nada soy un principiante en esto de las macros y VB y tengo una duda... ¿Se podría hacer una macro que sume 1 a una fórmula?... Me explico... Tengo una fórmula sencilla que es =A1... Lo que quiero es que al dar click en un botón la...
1 respuesta

Como voy variando el rango de suma

Lo que quiero es que tome un rango de celdas y las sume, pero no se bien como estructurarlo Ejemplo sub suma() x=1 do activecell.formulaR1C1="=sum(R[1]c:R[x]C)" x=x+1 loop until x=2o end sub Obvio así no sale, como carajo le hago
1 respuesta

Macro Suma

Necesito una macro que me sume los valores que hayan desede la celda C7 hasta donde yo me ubique, que puede ser la celda 100, 200, etc. Tengo una macro pero solo me suma valores en un rango definido, pero todas las veces no necesito sumar ese mismo...
1 respuesta

Comparar 2 hojas y sacar una tercera

DAN tengo el siguiente caso: En un mismo archivo 3 hojas: Inventario, toma-física, sobrantes-faltante. Debo comparar la columna A de inventario con la columna A de toma-física y colocar lo que este en Inventario que no este en toma-física en la...
2 respuestas

Duda sobre Fórmula "FormulaR1C1" de Visual Basic en excel

Expertos, en múltiples macros de excell encuentro la siguiente fórmula : "FormulaR1C1", quisiera que me explicaran exactamente que hace la fórmula, cuando se debe usar, cuando no se debe usar, solicito la explicación para una persona como yo que...
1 respuesta

Posición de celdas con un texto

Tenía esta macro desarrollada para que me informe la posición de las celdas en las que contiene un texto buscado: Sub buscar_cosas() On Error Resume Next Application.ScreenUpdating = False Range("J:K").Clear 'Esto debería ser variable... (sólo sirve...
1 respuesta

Eliminar autoshapes sin eliminar validación

Tengo el siguiente código: Dim autoforma As Shape For Each autoforma In ActiveSheet.Shapes autoforma.Delete Next autoforma Range("A1").Select Pero resulta que en donde tengo que borrar las formas, tengo celdas en donde hay validación de datos y...
1 respuesta

¿Cómo programar vlookup en una macro?

Necesito pls que me ayuden a programar una macro para que en una columna de la hoja1 ponga el resultado de un vlookup, la lista llega a las cinco mil filas. Entonces la base de datos donde necesito que el buscarv haga la búsqueda esta en la hoja2,...
1 respuesta

Ordenar columnas en base a otra columna

Tengo 4 columnas, una columna con código y la otra con un valor. Me gustaría saber alguna forma para ordenar los códigos de la 3era columna en la misma posición que los de la primera. Ya que tengo que hacer una resta para aquellos que difieran y...
1 respuesta