помогите упростить код

[serafim09]

Всем добрый вечер!


Помогите упростить мой код

Private Sub CommandButton1_Click()

    Range("G23").GoalSeek Goal:=0, ChangingCell:=Range("G21")
    Range("H23").GoalSeek Goal:=0, ChangingCell:=Range("H21")
    Range("i23").GoalSeek Goal:=0, ChangingCell:=Range("i21")
    Range("j23").GoalSeek Goal:=0, ChangingCell:=Range("j21")
    Range("k23").GoalSeek Goal:=0, ChangingCell:=Range("k21")
    Range("l23").GoalSeek Goal:=0, ChangingCell:=Range("l21")
    Range("m23").GoalSeek Goal:=0, ChangingCell:=Range("m21")
    Range("n23").GoalSeek Goal:=0, ChangingCell:=Range("n21")
    Range("o23").GoalSeek Goal:=0, ChangingCell:=Range("o21")
    Range("p23").GoalSeek Goal:=0, ChangingCell:=Range("p21")
    Range("q23").GoalSeek Goal:=0, ChangingCell:=Range("q21")
    Range("r23").GoalSeek Goal:=0, ChangingCell:=Range("r21")
    Range("s23").GoalSeek Goal:=0, ChangingCell:=Range("s21")
    Range("t23").GoalSeek Goal:=0, ChangingCell:=Range("t21")
    Range("u23").GoalSeek Goal:=0, ChangingCell:=Range("u21")
    Range("v23").GoalSeek Goal:=0, ChangingCell:=Range("v21")
    Range("w23").GoalSeek Goal:=0, ChangingCell:=Range("w21")
    Range("x23").GoalSeek Goal:=0, ChangingCell:=Range("x21")
    Range("y23").GoalSeek Goal:=0, ChangingCell:=Range("y21")
    Range("z23").GoalSeek Goal:=0, ChangingCell:=Range("z21")
    Range("AA23").GoalSeek Goal:=0, ChangingCell:=Range("AA21")
    Range("AB23").GoalSeek Goal:=0, ChangingCell:=Range("AB21")
    Range("AC23").GoalSeek Goal:=0, ChangingCell:=Range("AC21")
    Range("AD23").GoalSeek Goal:=0, ChangingCell:=Range("AD21")

End Sub

[Alex Cones]

Раз цифирьки одинаковые, пробуйте через ASCII коды цикл замутить.

[serafim09]

Сообщение от Alex Cones

Раз цифирьки одинаковые, пробуйте через ASCII коды цикл замутить.

я не знаю о чем ты я новичок. Это сделал через запись макроса + потом его размножил на нужные мне ячейки

[IgorGO]

может так?

Private Sub CommandButton1_Click()
    Range("G23:AD23").GoalSeek Goal:=0, ChangingCell:=Range("G21:AD21")
End Sub

[serafim09]

Сообщение от IgorGO

может так?

Private Sub CommandButton1_Click()
    Range("G23:AD23").GoalSeek Goal:=0, ChangingCell:=Range("G21:AD21")
End Sub

не сработал

[IgorGO]

я вообще не представляю что происходит с ячейками при выполнении данного кода, но если работал тот, то сработает и этот:

Private Sub CommandButton1_Click()
for c = 7 to 30
    cells(c,23).GoalSeek Goal:=0, ChangingCell:=cells(c,21)
next
End Sub

[serafim09]

Сообщение от IgorGO

я вообще не представляю что происходит с ячейками при выполнении данного кода, но если работал тот, то сработает и этот:

Private Sub CommandButton1_Click()
for c = 7 to 30
    cells(c,23).GoalSeek Goal:=0, ChangingCell:=cells(c,21)
next
End Sub

Спасибо за старание, но пишет ошибку "неверная ссылка", я корректировал под себя, но ни как....

Это функция "подбора параметров".

[Teslenko_EA]

Здравствуйте serafim09.
если конструкция которую Вы хотите "упростить" работоспособна, то конструкция которую предложил IgorGO, тоже должна быть работоспособна, после корректировки адресации:

For c = 7 To 30
    Cells(23, c).GoalSeek Goal:=0, ChangingCell:=Cells(21, c)
Next

Евгений.

[IgorGO]

да, уж...
невнимателен, как это мягче сказать - опечатался.
Teslenko_EA, спасибо.

[serafim09]

Сообщение от Teslenko_EA

Здравствуйте serafim09.
если конструкция которую Вы хотите "упростить" работоспособна, то конструкция которую предложил IgorGO, тоже должна быть работоспособна, после корректировки адресации:

For c = 7 To 30
    Cells(23, c).GoalSeek Goal:=0, ChangingCell:=Cells(21, c)
Next

Евгений.

Точно) Заработала) И всего одна строчка)