=СЧЁТЕСЛИ('15.07.2025'!BV:BV;"Не Пройден")

book1.Worksheets(1).Range("A3:Z3").AutoFilter(8, "*воспитат*", xlAnd := 1, "<>*офицер*")  ; добавить xlAnd := 1, "<>*кадет*"

Private Sub App_sheetChange(ByVal Sh As Object, ByVal Target As Range)

If Target.Column = 2 Then
 
    Application.EnableEvents = False
For Each x In Target.Cells

    x.Value = Application.Proper(x.Value)
Next x
Application.EnableEvents = True
 End If
End Sub

Sub Papka()

lastrow = "Смирнов А"

a = Split(lastrow, " ")
b = Split(lastrow, " ")

c = a(0)
d = Mid(b(1), 1, 1)

strPath = "C:\Users\smirnovaa\Desktop\"
Data = Format(Now, "dd.mm.yyyy")


Path = "C:\Users\smirnovaa\Desktop\" & Data & "\" & c & " " & d

'Path = "C:\Users\smirnovaa\Desktop\" & Data & "\" & c & " " & d & "*" 

Call Shell("explorer.exe " & Path, vbNormalFocus)

End Sub

Sub Start_Word()

ActiveWorkbook.Save

Dim objWrdApp As Object
Dim objWrdDoc As Object
On Error Resume Next
Set objWrdApp = GetObject(, "Word.Application")
If objWrdApp Is Nothing Then
If ActiveSheet.Range("A" & Cells.Rows.Count).End(xlUp).Text = "*" Then
Set objWrdApp = CreateObject("Word.Application")
Set objWrdDoc = objWrdApp.Documents.Open(".... . docx")
objWrdApp.Visible = True

End If
End If

End Sub

Dim WithEvents App As Application
 
Private Sub Workbook_Open()
  Set App = Application
End Sub
Private Sub App_SheetChange(ByVal Sh As Object, ByVal Target As Range)
' только в определенном файле
  If Sh.Parent.Name <> "1.xlsx" Then Exit Sub
On Error Resume Next
    If Target.Count > 1 Then Exit Sub
    ' запрет на ввод русских букв в столбце 3  (фио на англ)
    If Target.Column = 3 Then
        If Target Like "*[А-Яа-яЁё]*" Then
            ' если есть хоть одна русская буква
            MsgBox "Ввод русских букв недопустим!", vbCritical
            Target.Value = ""        ' очистка ячейки
       End If
    End If
    
    If Target.Column = 2 Then
        If Target Like "*[A-Za-zEe]*" Then
            ' если есть хоть одна англ буква
            MsgBox "Ввод английских букв недопустим!", vbCritical
            Target.Value = ""        ' очистка ячейки
       End If
    End If
End Sub

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, Worksheets(1).Range("C:C")) Is Nothing Then Exit Sub
If LCase(Target) Like "*[а-я]*" Then
    With Application
        .EnableEvents = False: .Undo: .EnableEvents = True
        MsgBox "НЕККОРЕКТНЫЙ ВВОД! ПРОВЕРЬ РАСКЛАДКУ"
    End With
End If
End Sub

=И(A2>0;A2=29;B2="ДА"), применяется к $А$2

=И(A2>0;A2=29;B2="ДА"), применяется к А2
=И(A3>0;A3=29;B3="НЕТ"), применяется к A3
=И(A4>0;A4=29;B4="ДА"), применяется к A4
.......