Private Sub CommandButton1_Click()
    
    Dim rng As Range, rng2 As Range
    On Error Resume Next
        Set rng = Application.InputBox( _
      Prompt:="Выберите диапазон с формулами.", _
      Title:="Выберите диапазон с формулами.", Type:= 8 , Left:= 200 , Top:=- 65 )
    If rng Is Nothing Then Exit Sub
    For Each rng2 In rng.Cells
        rng2.GoalSeek Goal:= 10 . 4 , ChangingCell:=rng2.Offset( 0 , - 1 )
    Next

End Sub

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

Продолжая использовать сайт, вы даёте согласие на обработку файлов cookie, необходимых для работы сайта. Другие опции вы можете выбрать по своему усмотрению.

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

Пользовательское соглашение
Политика конфиденциальности

	Необходимые cookie
	Cookie для сбора статистики
	Cookie для маркетинга и рекламы