Macro sumar y multiplicar

[Architecto]

Buenos días.

Tengo el siguiente Macro.

col = 5: uFila = Cells(Rows.Count, col).End(xlUp).Row

datos = Cells(1, col).Resize(uFila).Address

On Error GoTo 0

Names.Add "sumar", "=if(" & datos & "=""INICIO"",row(" & datos & "))"

Names.Add "final", "=if(" & datos & "=""FINAL"",row(" & datos & "))"

Application.ScreenUpdating = False

For n = 1 To [count(sumar)]

fila1 = Evaluate("small(sumar," & n & ")") + 1

fila2 = Evaluate("small(final," & n & ")") - 1

grupo = Cells(fila1, col).Address(0, 0) & ":" & Cells(fila2, col).Address(0, 0)

Cells(fila1 - 1, col + 1).Formula = "=sum(" & grupo & ")"

Next: Names("sumar").Delete: Names("final").Delete

Lo que hace es buscar en una columna la palabra INICIO y me genera una suma de las celdas que quedan entre la palabra INICIO y FINAL

El asunto es que necesito que me genere esa misma suma, pero que a la vez me multiplique por una celda de la misma fila donde se encuentra la palabra Inicio.

Cuelgo un ejemplo, a ver si me podéis ayudar.

Gracias!

Ejemplo.rar

[Antoni]

Añade estas 2 líneas:

Cells(fila1 - 1, col + 3).Formula = "=sum(" & grupo & ")" & _

   "*" & Cells(fila1 - 1, col - 3).Address(False, False)

[/CODE]

[JIMMYRUNA]

Por favor, alguien puede explicar la expresión: [count(sumar)]

¿Cómo se interpreta los corchetes?

Esta expresión esta en el código del presente tema en cuestión, en todo caso ¿Cuál sería la otra forma de expresarlo en VBA?

[Architecto]

Añade estas 2 líneas:

Cells(fila1 - 1, col + 3).Formula = "=sum(" & grupo & ")" & _

   "*" & Cells(fila1 - 1, col - 3).Address(False, False)

[/CODE]

Lo primero, muchas gracias por responder...

Estoy intentando añadirlo y me sale si sustituyo la penúltima línea, pero si quiero añadir otra operación? Cómo podría hacerlo?

Por ejemplo, quiero que el macro, después de añadir la suma del grupo, después añada (B5/D5)

Y se quede la fórmula "=Suma(E6:E8)*(B5/D5)"

¿Sería así:?(Entiendo que no, porque me da error...

Cells(fila1 - 1, col + 3).Formula = "=sum(" & grupo & ")" & _ "*" & Cells(fila1 - 1, col - 3) & _ "/" & Cells(fila1 - 1, col -1).Address(False, False)

Si hago eso me da un fallo y me coloca la siguiente fórmula:

=Suma(E6:E8)*0/D5

¿Cómo podría ponerlo?

Muchas gracias!

[Fleming]

[uSER=183630]@JIMMYRUNA[/uSER]

No se debe intervenir en temas promovidos por otros usuarios como no sea para aportar alguna solución.

Saludos

[Architecto]

¿Alguien sabe si se podría hacer?