Сумма верхней ячейки

[segail]

Не хочу замарачиваться. Код работает вроде нормально. Значения в столбец 22 в нужную ячейку заносятся с другого листа, при необходимости они как бы удаляются, на самом деле они заменяются данной формулой, которая берет значение на порядок выше, короче вот такая галематья.

[segail]

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

Лично я ничего не понял...

Согласен с IgorGO насчёт варианта Cells(i, 22) = "=R[-1]C"
Могу лишь добавить, что указанную формулу можно записать сразу во весь столбец:

Sub test2()
    Cells(2, 22).Resize(100) = "=R[-1]C"
End Sub

Как раз во весь столбец и не надо. Надо на выбранную дату. Где необходимо и во весь столбец, если не были изменены данные выше, или на прядок выше, если были изменения выше. На порядок выше пока оптимальный вариант. Конечно есть варианты проще и эффективней, но….

[segail]

Благодарю за помощь.

[segail]

Здравствуйте
Подскажите как написать условие если сумма двух значений CDbl(TextBox1.Text) и ячейка Cells(i + 35, 21) больше ячейки Round((Cells(i + 34, 21) * -1), 0)