Buscar objetivo "automático"

Quizás habría sido mejor que nos hubieras puesto el código que tienes. En cualquier caso, te pongo un ejemplo en el que se buscan los objetivos para que el rango C1:C10 tome el valor de 100 cambiando las celdas B1:B10

Sub BuscarObjetivos()
Dim intFila As Long

For intFila = 1 To 10
ActiveSheet.Cells(intFila, 3).GoalSeek goal:0, changingcell:=ActiveSheet.Cells(intFila, 2)
Next intFila
End Sub

Un saludo.


Fernando Arroyo
MS MVP - Excel


"ABC" escribió en el mensaje news:%

Hola Grupo:

La función "Buscar objetivo" la utilizo con mucha frecuencia. He realizado
una macro sencillita para intentar automatizar el proceso pero sólo lo hace
en la fila en la que programé la macro. ¿Existe alguna manera de automatizar
esto para todas las filas?. No doy con ello y agradecería vuestras
sugerencias.

Muchas gracias y saludos.