Условие для цвета

[segail]

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

Киньте файл,а то кофе уже закончилось,гадать нечем

Его надо забрасывать в файлы программы. Есть зависимость от txt файла, папок, и еще…, а также необходимо объяснять что зачем и почему.
Если есть смысл, то мне надо это все подготовить.
Хотя если нет решения или это просто интерес, буду продумывать другой вариант.

[EducatedFool]

segail, поймите, что разобраться в Вашем коде, не увидев файла, весьма сложно.

Возьмите за правило - создавая новую тему, сразу же прикреплять к сообщению файл с примером.
И будете получать готовое решение чуть ли не в первом же ответе...

А то ваши абстрактные объяснения только ещё больше запутывают.

[segail]

Понятно. Буду готовить файл.
Хотя я думал условие простое.
Тем более файл такого объема форум не пропускает.

[motorway]

Откиньте все лишнее - всякие данные и т.п. Можно просто сделать новый файл и оставить там все, что нужно.

[segail]

Не всегда бывает так как у Леонардо Довинчу

p/s
Чтобы отсечь все лишнее необходимо страдать…

[motorway]

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

[segail]

Предлагаю полный код (данный код работает нормально и изменять его не надо). Необходимо добавить в данный код вышесказанное условие.

Private Sub CommandButton1_Click()
    
    Dim i As Integer
    
    For i = 1 To 1000
            
        If Cells(i, 27).Text = ComboBox1.Text Then
            
        If TextBox1 = "" Or ComboBox1.Text = "Итого" Then
        MsgBox "Не корректный ввод данных.    ", 16, "Запрет ввода"
        TextBox1 = ""
        Exit Sub
       
      Else
        
        If CDbl(TextBox1.Text) > Round((Cells(i + 34, 21) * -1), 0) Then
        MsgBox "ВНИМАНИЕ!" & vbCrLf & "" & vbCrLf & "1. Объем списания не должен превышать объема недостачи." & vbCrLf & "2. Объем прибыли не покрывается объемом списания.", 16, "Запрет ввода"
        TextBox1 = ""
        Exit Sub

        End If
        End If
    
    
    
    If MsgBox("ВНИМАНИЕ" & vbCrLf & vbCrLf & "Списание нефтепродуктов в пределах норм естественной убыли до установления факта недостачи запрещается." & vbCrLf & vbCrLf & "Списание производится только после выполнения инвентаризации и определения количества выявленных недостач." & vbCrLf & vbCrLf & "Данные инвентаризации и списание документально должны быть зафиксированы и заверены ответственными лицами, в противном случае списание является не действительным." & vbCrLf & vbCrLf & "Показателем проведения инвентаризации является ячейка окрашенная в желтый цвет." & vbCrLf & vbCrLf & "На данный момент производится списание объема недостачи в количестве " & TextBox1.Text & " л. на " & ComboBox1.Text & " месяц.   " & vbCrLf & vbCrLf & "Продолжить ввод данных?", _
vbYesNo Or 48, "Ввод данных разрешен") = vbYes Then GoTo wyhod
        Exit Sub
wyhod:
        Cells(i + 35, 21).Value = CDbl(TextBox1.Text)
        
        End If
    Next
End Sub

[motorway]

Выложите хотя бы скриншот, где видно, какие ячейки надо проверять

[segail]

Если что-то не ясно, то дополню.

[Teslenko_EA]

Здравствуйте segail, приветствую всех участников обсуждения.
мнение:
Давно уже придуманы способы рационального хранения и обработки данных, но "благодаря" возможности которую предоставляет Excel, никто не допускает мысли о том, что стоит отказаться от "хранения" данных в документе более похожем на отчет, чем на "хранилище", и обсуждение этой темы это подтверждает.
If ....Interior.Color <> 65535 Then это субъективная оченка, я сомневаюсь, что глаз пользователя определит различие в цветах если установит .Color = 65522, а какой будет результат проверки(?) все понимают - ошибочный. Но тем не менее из за легкости создания подобных конструкций в Excel, мы смиряемся и с низким уровнем надёжности, и с огромной вероятностью ошибок. Конечно проще найти и устранить ошибку, чем создавать конструкцию не допускающую их возникновения.
Печально.
Евгений.