formulac1r1 VBA excel

[gorkaorma]

Buenas de nuevo, muchas gracias de todas formas, lo que había que hacer es lo siguiente:

En la declaración de variables del principio del todo se pone esto

Dim rCell As Range

Luego:

Row3 = Row3 - 1
Row5 = Row3 + 3 ' We write two rows down
Row = 23
Column = 6


WRKNEW.Worksheets(1).Cells(Row5, 4) = "SUB-TOTAL OPTIONS"


Do Until WRKNEW.Worksheets(1).Cells(10, Column) = ""

WRKNEW.Worksheets(1).Cells(Row5, Column).Activate
Set rCell = Range(Cells(Row, Column), Cells(Row3, Column))
ActiveCell.Formula = "=SUM( " & rCell.Address & ")"
Column = Column + 1

Loop

Espero que alguien le pueda servir de ayuda!

A ahora planteo una nueva pregunta sobre el mismo tema. Esto es para sumar un rango´variable, pero si lo que quiero es hacer una resta de dos celdas varaibles...cómo lo haríais, yo estoy probando pero no acabo de acertar... Como se haría para poner una fórmula la resta de dos celas, todas ellas definidas por variables.. ejemplo:

Quiero que en la celda row,column este el resultado, entonces activo esa celda:

WRKNEW.Worksheets(1).Cells(Row, Column).Activate
Activecell.Formula= "=................................................ ................."

que reste dos celdas definidas como sigue:

Celda 1: Row1,Column1
Celda2:Row2,Column2

Millones de gracias!