При пересчете значений в ячейке, форма VBA не дает выполнить код.

[segail]

При выполнении кода пересчет значения в ячейки с шагом 0.01, открытая форма не дает выполнить данный год. Как можно решить данную проблему, и как вывести показатель пересчета Cells(i, 23) в Label?

Public Sub Pereset() 
   With Sheets("Отчет")
    If  Form_SelectDate.ComboBox_Month.Text = .Cells(z, 27).Text Then
        If .Cells(i, 28).Value = .Cells(i, 34).Value * -1 < .Cells(i, 35).Value Then
            X = 0
            .Cells(i, 23).Value = X
            .Cells(i, 28).Value = .Cells(i, 34).Value * -1 <= .Cells(i, 35).Value
            DoEvents
            .Cells(i, 23).Value = X
    End With
            X = X + 0.001
            Loop
        End If
    End If
End Sub

[Hugo121]

Что-то мне это очень напомнило недавнюю задачку...
А куда Do Until пропало?
Да и с шагом непонятно...

[segail]

Недавнею в смысле где?
Насчет Do Until ошибся
Do Until.Cells(i, 28).Value = .Cells(i, 34).Value * -1 <= .Cells(i, 35).Value

[Hugo121]

В смысле на Планете... Я там остановился потому, что неясна задача целиком и поэтому непонятно, как обойти некоторые моменты. Оказывается, тут ещё и формы задействованы. Или это разные задачи?

[segail]

Да да, только планета по VBA не дает ответ.

[Hugo121]

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

[segail]

Да да, только планета на VBA не дает ответ.
Вы показали смыл на примере.
Я попытался его через VBA, но что то не то.
Хотя в коде не объявил переменную i, но это не важно я просто забыл указать в вопросе…

[segail]

Ладно если что потом.

[segail]

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

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

Вроде сделал, только не отображается процесс пересчета в лейбле.
Как его отобразить?

[Hugo121]

Чтоб показало, надо эту строку перенести сюда:

            DoEvents
            .Cells(i, 23).Value = X
            Form_SelectDate.Lab_set = "Изменение процента потерь " & .Cells(i, 23) ' Показ персчета
            X = X + 0.001
            Loop

Только может надо округлить, а то там экспонента проскакивала... (если я правильно выразился...)
Например так:
Form_SelectDate.Lab_set = "Изменение процента потерь " & Format(.Cells(i, 23), "0.000")