Формула на условие

[Iskin]

Сообщение от 0mega

Я не знаю специфики Вашей таблицы, но мне кажется можно еще упростить
Если надо только предупредить и не блокировать ввод - тогда УФ самое то

Во вложение. И макрос там и формулы в М1 и Р1. С макросом как бы красивее получается, но он реагирует на каждый ввод...а формулу защищать надо. Наверное лучше "проверку" (Модуль 3) запускать, при запуске Модуля 1.

[Iskin]

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

Наверное лучше "проверку" (Модуль 3) запускать, при запуске Модуля 1.

Sub макрос1()
If Range("O1") >= Range("N1") * 1.2 Then
    MsgBox "Брутто привышет Нетто на 20%", vbInformation, "Внимание!"
    Else
End If
    If Range("N1") > Range("O1") Then
    MsgBox "Нетто не может привышать Брутто", vbInformation, "Внимание!"
Else
End If
Application.ScreenUpdating = False
Application.DisplayAlerts = False
On Error Resume Next
Sheets("дек").Delete
Application.DisplayAlerts = True
Worksheets.Add.Name = "дек"
Sheets("декларация").Range("A2:T" & Sheets("декларация").Cells(Sheets("декларация").Rows.Count, 2).End(xlUp).Row).Copy
Sheets("дек").Range("A1").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Application.CutCopyMode = False

End Sub

вроде работает. всем спасибо за помощь)

_____
Код программы нужно выделять (форматировать) тегами [CODE] (читать FAQ)
Модератор