VBA Goalseek с петлевой Гол

Question

Я пытаюсь установить циклический поиск цели, где заданная ячейка и изменяющаяся ячейка зафиксированы на месте, единственное, что должно измениться, должна быть цель.

В этом случае она у меня есть в течение 1 oop, где цель указана как Диапазон («I» и i).

Я получаю сообщение об ошибке, говорящее, что ссылка недействительна

Sub OptimizeVal()
Worksheets("TRUCKING PRICING CALC").Activate
Dim i As Long
    For i = 50 To 64
        Range("E55").GoalSeek Goal:=Range("I" & i), ChangingCell:=Range("C75")
        Range("J" & i) = Range("C75").Value
    Next
End Sub

Answer 1

Я глупец ... В ячейке, на которую ссылаются, в E55 должна была быть формула, которую я случайно стер.

Окончательный код.

Sub OptimizeVal()
Worksheets("TRUCKING PRICING CALC").Activate
Dim i As Long
    For i = 50 To 64

        Range("C54") = Range("H" & i).Value

        Range("E55").GoalSeek Goal:=Range("I" & i), ChangingCell:=Range("C75")
        Range("J" & i) = Range("C75").Value
    Next
End Sub