=ЕСЛИ(ИЛИ(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

Sub Summ1()
ActiveCell.Formula = "=SUM(" & Range(ActiveCell.Offset(-1), ActiveCell.Offset(-1).End(xlUp)).Address & ")"
End Sub

Sub Summ2()
ActiveCell = Application.WorksheetFunction.Sum(Range(ActiveCell.Offset(-1, 0), Cells(2, ActiveCell.Column)))
End Sub

=ЕСЛИ(ПОИСК(A2;"ООО");ПОДСТАВИТЬ(A2;"ООО";"общество с ограниченной ответственность");ЕСЛИ(ПОИСК(A2;"ПАО");ПОДСТАВИТЬ(A2;"ПАО";"публичное акционерное общество");))

Sub Макрос3()
Dim s As Object
  On Error Resume Next
  Application.DisplayAlerts = False
    ChDir "C:\Users\Seven\Desktop"
    ActiveWorkbook.SaveAs Filename:=InputBox("Введите имя для сохраняемого файла") & ".xlsx", FileFormat:= _
        xlOpenXMLWorkbook, CreateBackup:=False
        For Each s In Sheets
    If Not s Is ActiveSheet Then s.Visible = xlSheetVisible: s.Delete
  Next
  ActiveSheet.DrawingObjects.Delete
  ActiveWorkbook.Save
  MsgBox ("Расчет неустойки сохранен на рабочий стол!")
        ActiveWorkbook.Close False
        Application.DisplayAlerts = True
End Sub

Sub Макрос1()
ThisWorkbook.Sheets("Лист2").Activate
End Sub

Sub Add_()
If ActiveCell.Row < 6 Or _
ActiveSheet.UsedRange.Row + ActiveSheet.UsedRange.Rows.Count - 1 <= ActiveCell.Row Then Exit Sub
NewRow = ActiveCell.Row + 1
Rows(NewRow).Insert Shift:=xlDown
End Sub

Sub Add_()
If ActiveCell.Row < 6 Or _
ActiveSheet.UsedRange.Row + ActiveSheet.UsedRange.Rows.Count - 1 <= ActiveCell.Row Then Exit Sub
NewRow = ActiveCell.Row + 1
Rows(NewRow).Insert Shift:=xlDown
Range(Cells(NewRow, 1), Cells(NewRow, 2)).Merge
End Sub

Private Sub Workbook_Open() 
  If Environ("USERNAME") <> "Nikolay" Then 'если логин пользователя не Nikolay  
     Worksheets("Лист1").Visible = False 'скрываем Лист1 
     Worksheets(3).Visible = xlVeryHidden 'делаем 3-й лист суперскрытым 
  Else
      For i = 1 To Worksheets.Count 'в противном случае 
        Worksheets(i).Visible = True 'проходим в цикле по всем листам 
      Next i 'и делаем их видимыми 
  End If
End Sub

If Environ("USERNAME") <> "Nikolay" Or "Ivan"  Then 'если логин пользователя не Nikolay или Ivan

'если логин пользователя не Nikolay, Ivan, Petr 
'скрываем Лист1 
'делаем 3-й лист суперскрытым 
'в противном случае
'если логин пользователя Nikolay 
'проходим в цикле по всем листам 
'и делаем их видимыми 
'если логин пользователя Ivan, Petr
'делаем видимыми лист 1 и лист 3

Sub Add_Razdel()
Dim LastRow As Long
    With Sheets("Пени")
        LastRow = .Cells.Find(What:="*", SearchOrder:=xlByRows, SearchDirection:=xlPrevious).Row
        Range(Cells(1, 1), Cells(1, 8)).Copy .Cells(LastRow + 1, 1)
        LastRow = .Cells.Find(What:="*", SearchOrder:=xlByRows, SearchDirection:=xlPrevious).Row
        Range(Cells(2, 1), Cells(2, 8)).Copy .Cells(LastRow + 1, 1)
        LastRow = .Cells.Find(What:="*", SearchOrder:=xlByRows, SearchDirection:=xlPrevious).Row
        Range(Cells(3, 1), Cells(3, 8)).Copy .Cells(LastRow + 1, 1)
        LastRow = .Cells.Find(What:="*", SearchOrder:=xlByRows, SearchDirection:=xlPrevious).Row
        Range(Cells(4, 1), Cells(4, 8)).Copy .Cells(LastRow + 1, 1)
        LastRow = .Cells.Find(What:="*", SearchOrder:=xlByRows, SearchDirection:=xlPrevious).Row
        Range(Cells(5, 1), Cells(5, 8)).Copy .Cells(LastRow + 1, 1)
    End With
End Sub

Sub Макрос1()
'
' Макрос1 Макрос
'

'
    ActiveSheet.Range("$A$11:$H$16").AutoFilter Field:=5, Criteria1:=">=30", _
        Operator:=xlAnd
    Range("A12:H16").Select
    Selection.Copy
    Sheets("Лист2").Select
    Range("A12").Select
    ActiveSheet.Paste
    Range("F12").Select
    Application.CutCopyMode = False
    ActiveCell.FormulaR1C1 = "10%"
    Selection.AutoFill Destination:=Range("F12:F14"), Type:=xlFillDefault
    Range("F12:F14").Select
    Range("H12").Select
    ActiveCell.FormulaR1C1 = "=PRODUCT(RC[-7],RC[-2],RC[-3])"
    Range("H12").Select
    Selection.AutoFill Destination:=Range("H12:H14"), Type:=xlFillDefault
    Range("H12:H14").Select
End Sub