=ЕСЛИ(C2=1; "4"; ЕСЛИ(C2=2; "1"; ЕСЛИ(C2=3; "2"; ЕСЛИ(C2=4; "3"; ""))))

=ВПР(C2; E2:F5; 2; ЛОЖЬ)

Private vOldValues As Variant

Private Sub Worksheet_Calculate()
    Dim rng As Range
    Dim arr As Variant
    Dim i As Long
    Dim cnt As Long
    
    Set rng = Me.Range("O1:O100")
    arr = rng.Value
    
    ' Подсчёт количества совпадений (например, сколько ячеек > 0)
    cnt = 0
    For i = 1 To UBound(arr, 1)
        If IsNumeric(arr(i, 1)) Then
            If arr(i, 1) > 0 Then cnt = cnt + 1
        End If
    Next i
    
    ' Записываем результат в соседний столбец (например, в P1)
    Me.Range("P1").Value = cnt
End Sub

=ДАТА(ГОД(A1)-100; МЕСЯЦ(A1); ДЕНЬ(A1)) - 1

Function DateBefore1900(ByVal baseDate As Date, ByVal YearsBack As Integer, Optional ByVal DaysBack As Integer = 0) As String    Dim resultDate As Date    resultDate = DateAdd("d", -DaysBack, DateAdd("yyyy", -YearsBack, baseDate))    DateBefore1900 = Format(resultDate, "dd.mm.yyyy")End Function

=DateBefore1900("15.05.2025"; 100; 1)

=ЕСЛИ(C15="JAECOO";
    ЕСЛИОШИБКА(
        ГИПЕРССЫЛКА("file:///W:\ОТДЕЛ ПРОДАЖ\ЭПТС\JAECOO\" & I15 & ".pdf"; "ССЫЛКА");
        ГИПЕРССЫЛКА("file:///W:\ОТДЕЛ ПРОДАЖ\ЭПТС\JAECOO\" & I15 & " .pdf"; "ССЫЛКА")
    );
ЕСЛИ(C15="OMODA";
    ЕСЛИОШИБКА(
        ГИПЕРССЫЛКА("file:///W:\ОТДЕЛ ПРОДАЖ\ЭПТС\OMODA\" & I15 & ".pdf"; "ССЫЛКА");
        ГИПЕРССЫЛКА("file:///W:\ОТДЕЛ ПРОДАЖ\ЭПТС\OMODA\" & I15 & " .pdf"; "ССЫЛКА")
    );
""))

=ИНДЕКС($A$2:$A$100;ПОИСКПОЗ(1;ЕСЛИ(НЕ(ОШИБКА(ПОИСК(D2;$A$2:$A$100)));1;0);0))

=B1 - B2

=B1 - B2 + 1

Public Sub CountLines()
'UpdatebyExtendoffice20171222
    Dim xStrLen As Double
    Dim xChrLen As Double
    With Range("A2")
        xStrLen = Len(.Text)
        xChrLen = Len(Replace(.Text, Chr(10), ""))
    End With
    MsgBox "There are " & xStrLen - xChrLen & " line breaks"
End

Private Sub Worksheet_Change(ByVal Target As Range)

    Dim Cell

    If Not Intersect(Target, Range("A1:A10000")) Is Nothing Then

        Cell = Target.Value
    
        If Cell = InStr(AnforderungVal, vbNewLine) = 1 Then 'Тут видимо что то не правильно
            Rows.RowHeight = Rows.RowHeight + 5
        End If
    
    End If

End Sub

=A1<СЕГОДНЯ()-365

=СЧЁТЕСЛИМН(ЗАЯВКИ!$A$1;"*"&A1&"*";ЗАЯВКИ!$B$1;"*ОТ*";ЗАЯВКИ!$C$1;"ЗАКАЗАНО")

Private Sub Worksheet_Change(ByVal Target As Range)
    
    Dim Cell

    Cell = ActiveCell.Value 'Тут я так понимаю мне нужно указать диапазон A1:A10000
    
    If IsDate(Cell) And Format(Cell, "mm/dd/yyyy") <> Cell Then
        MsgBox "Неверная дата" & Cell
    End If

End Sub