Условие для ячейки

[motorway]

Не совсем понятно, как можно запретить что-то, что нельзя предугадать? Почему их нельзя угадать? В принципе, если это поможет, можно сделать, если значение R38 получается отрицательным, чтобы оно заменялось на пустое.

[segail]

Предугадать можно. Диапазон получается обширный 12 листов в каждом листе идет добавление строк, в эти строки вводятся данные до 2000 ячеек, конечно все ячейки не заполняются а выборочно. Данные переходят на основной лист, там тоже происходит вычисление, и конечная ячейка это R38 вот и все. Можно конечно R38 заменить на пустое, но будет не совпадение данных из за которых введен ноль в R38. То есть то число которое дало отрицательное значение в R38 должно тоже быть удалено или переведено в ноль. Короче вот такой каламбур.

[motorway]

Скорее всего, этот вклад в отриц. значение будет от нескольких ячеек, так что определить конкретную трудно. Если это только не последняя измененная

[segail]

Нет только от одной. Пользователь вводит значение в какую либо ячейку
Например в конечной ячейки R38 значение 100 пользователь может ввести в другую ячейку от 1 до 100. Но он вводит 105 вот тут как раз и должно произойти удаление 105 или перевод 105 в 0 а R38 также остается с положительным значением 100. Тогда пользователь вводит 99 в ячейки R38 происходит вычисление все нормаль значение 1. Пользователь вводит в другую ячейку 1 и в R38 значение 0

[DV68]

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

DV68, я слеп, не вижу на вкладке слова Проверка. (офис 2007)

Данные-Работа с данными-Проверка данных

[segail]

Здравствуйте.

Как написать условие, если сумма двух ячеек равна “” или 0?

If Sheets("Отчет").Round([C451] + [K451]) = "" Then

[The_Prist]

У меня такое предложение. Поместить в модуль книги код

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
If Target.Count > 1 Then Exit Sub
If Target > Sheets("Лист1").Range("R38") Then Target = 0
End Sub

Тогда обнуляться будет только ячейка в которую внесли изменения. Условие свое и лист с ячейкой R38 тоже.

[segail]

Да нет в модуль не надо. У меня условие не правильно написано. Мне необходимо если сумма двух ячеек дает “” а далее смотрите код.

Private Sub CommandButton8_Click()
  If Sheets("Отчет").Round([C451] + [K451]) = "" Then' Условие. Сумма двух ячеек.

    MsgBox "Данные по топлива отсутствуют.", 64, "Информационное сообщение"
    Else
    Sheets("Отчет").Visible = True 'Открыть лист
    Sheets("V_ГСМ").Visible = False 'Скрыть лист
    Unload Me 'Закрыть фориу
    UserForm4.Show 'Открыть форму
    End If
End Sub

[EducatedFool]

если сумма двух ячеек дает “”

Видимо, я плоховато разбираюсь в математике.
Ибо до сих пор думал, что суммой чисел может быть только число, но никак не текстовая строка (пусть даже пустая)

[segail]

У меня в ячейках если 0, то нулевые значения не показываются. Тут я и запутался
Если нет нуля я думал “”
Или если нет нуля тогда так?

If Sheets("Отчет").Round([C451] + [K451]) = 0 Then

Тоже не правельно