condicion SI

Propongo dos pasos:

Primero: Capturas la dirección de la celda adyacente.
Segundoo: Editas la fórmula para ejecutar la operación que deseas,
concatenando con la fila de la celda activa.

Aquí estaría el código:

Sub MiFormula()
ActiveCell.FormulaR1C1 = "=RC[-1]"
ActiveCell.Formula = ActiveCell.Formula & "*D" & ActiveCell.Row
End Sub


"Leandro" escribió:

Gracias Hector funciona perfectamente
muchas gracias
Leandro