Автор Тема: Цикл и подбор значения  (Прочитано 146 раз)

Оффлайн Посетитель 19.05.2022

  • Посетитель форума
  • Сообщений: 2
Цикл и подбор значения
« : 19 Май 2022, 09:16 »
Добрый день!

Есть вот такой макрос (получился при записи действий с экрана):

Sub Подбор_скидки()
'
' Подбор_скидки Макрос
'
' Сочетание клавиш: Ctrl+Shift+Z
'
    Range("P2").Select
    Range("U2").GoalSeek Goal:=1.6, ChangingCell:=Range("P2")
End Sub

Но он работает только на одну ячейку. Как сделать так, чтобы макрос последовательно перебирал все ячейки столбцов P и U до тех пор, пока не встретит пустую ячейку в столбце P? Их там может быть до 30000...

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

Заранее спасибо, если сможете помочь!

Оффлайн Администратор

  • Administrator
  • Сообщений: 2029
Re: Цикл и подбор значения
« Ответ #1 : 19 Май 2022, 09:22 »
Макрос
Sub Подбор_скидки()
'
' Подбор_скидки Макрос
'
' Сочетание клавиш: Ctrl+Shift+Z
'

    Dim lr As Long, i As Long
   
   
    ' Поиск последней строки в столбце P.
        ' End не ищет в скрытых строках.
    lr = Cells(Rows.Count, "P").End(xlUp).Row
   
    ' Подбор значений.
    For i = 2 To lr
        Cells(i, "U").GoalSeek Goal:=1.6, ChangingCell:=Cells(i, "P")
    Next i
   
End Sub

Оффлайн Посетитель 19.05.2022

  • Посетитель форума
  • Сообщений: 2
Re: Цикл и подбор значения
« Ответ #2 : 19 Май 2022, 12:10 »
Спасибо, очень выручили.