=ЕСЛИ(ИЛИ(RC[-15]="ООО ""123""";RC[-14]="ООО ""123""");"ООО ""123""";
ЕСЛИ(ИЛИ(RC[-15]="ООО ""456""";RC[-14]="ООО ""456""");"ООО ""456""";
ЕСЛИ(ИЛИ(RC[-15]="ООО ""789""";RC[-14]="ООО ""789""");"ООО ""789""";"")))

=IF(OR(RC[-15]=""ООО ""123"",RC[-14]=""ООО ""123""),""ООО ""123"",
IF(OR(RC[-15]=""ООО ""456"",RC[-14]=""ООО ""456""),""ООО ""456"",
IF(OR(RC[-15]=""ООО ""789"",RC[-14]=""ООО ""789""),""ООО ""789"";"""")))

Sub FindererBezDvizheniya()
Dim FD, firstAddress, adrs
FD = "Оставлено без движения"
If FD = "" Then Exit Sub
Dim c As Range: Set c = Range("M:M").Find(FD)

If c Is Nothing Then MsgBox "В базе данных excel отсутствуют признаки о наличии заявлений, оставленных без движения!", vbInformation: Exit Sub
firstAddress = c.Address
c.Select
Do
    adrs = adrs & vbLf & c.Address(0, 0)
    Union(Selection, c).Select
    Set c = Range("M:M").FindNext(c)
Loop While c.Address <> firstAddress

MsgBox "Имеются дела с признаком """ & FD & """" _
& vbCr & "" _
& vbCr & "В связи с этим рекомендуется проверить сроки и устранить недостатки!" _
& vbCr & "" _
& vbCr & adrs, vbExclamation
End Sub

=ЕСЛИ(ИЛИ(M9="В удовлетворении требований отказано";M9="Требования удовлетворены частично")*И(ИЛИ(O9="Подана АЖ";O9="Подана КЖ"));"Снято с контроля";"Контроль подачи АЖ/КЖ")

=ЕСЛИ(И(A2=1;ЕПУСТО(B2));"Необходимо подписать";"")

=IF(AND(A2=1,ISBLANK(B2)),"Необходимо подписать","")

‪Sub Zapusk_Word_iz_Excel()
Dim objWrdApp As Object
Dim objWrdDoc As Object
On Error Resume Next
Set objWrdApp = GetObject(, "Word.Application")
If objWrdApp Is Nothing Then
Set objWrdApp = CreateObject("Word.Application")
Set objWrdDoc = objWrdApp.Documents.Open("C:\Users\mrche\Desktop\1.docx")
objWrdApp.Visible = True
End If
Set objWrdDoc = objWrdApp.Documents.Open("C:\Users\mrche\Desktop\1.docx")
Set objWrdDoc = Nothing
Set objWrdApp = Nothing
End Sub

Sub Zapusk_Word_iz_Excel2()
Dim objWord As Object, objDocument As Object
    Set objWord = CreateObject("word.application")
    Set objDocument = objWord.Documents.Open(Filename:="C:\Users\mrche\Desktop\1.docx")
    objWord.Visible = True
    Set objDocument = Nothing: Set objWord = Nothing
End Sub

Private Sub CommandButton1_Click()
            ActiveSheet.Range("$A$3:$E$7").AutoFilter Field:=4, Criteria1:= _
        ">=" & TextBox1.Value, Operator:=xlAnd, Criteria2:="<=" & TextBox2.Value
        Unload UserForm2
End Sub

Sub h()
If ActiveSheet.Name = Sheets("Лист1") Then
MsgBox "1"
Else
MsgBox "2"
End If
End Sub

=ЕСЛИ(ЕЧИСЛО(ПОИСК("омский";RC[-2]));"ОК";"НЕ ОК")