Macro con buscar objetivo

Prueba con:

Range("I2").GoalSeek Goal:=Range("I1"), ChangingCell:=Range("I1")

De todas formas, te recomiendo cualificar más las referencias a rangos (a no ser que el código esté en el módulo de la hoja), por ejemplo:

Worksheets("Hoja1").Range("I2").GoalSeek Goal:=Worksheets("Hoja1").Range("I1"), ChangingCell:=Worksheets("Hoja1").Range("I1")

o en tres líneas de código, pero más fáciles de leer:

With Worksheets("Hoja1")
.[I2].GoalSeek goal:=.[I1], changingcell:=.[I1]
End With

Un saludo.


Fernando Arroyo
MS MVP - Excel


"Santi" escribió en el mensaje news:

¿Cómo puedo modificar esta línea de macro para que en lugar de que el
objetivo a buscar, en lugar de 800, sea el valor que tenía la celda I1
antes de iniciarse el cálculo?

Range("I2").GoalSeek Goal:€0, ChangingCell:=Range("I1")

Muchas gracias.