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

Perdón.

Parece que a estas horas ya tengo todos los cables cruzados... Esta
respuesta es para Arturo, en el post anterior...


"David" escribió:

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
>
>
>