=ПОИСК("Мать: ";C2) - выдаёт единичку "1", видимо первый символ, мне же нужно вывести содержимое всей ячейки из диапазона поиска по всему столбцу.

=ПОИСКПОЗ("Мать";ДВССЫЛ("'"&$A$2&"'!A:A")) - ищу мать через ячейку, указывающую на каком листе искать, выдаёт "91"

=ВПР("Мать";'Семья с 5'!A:A;1;1) - далее смотрю он подразумевает под этим числом, выдаёт услугу "Выполнение процедур по сохранению здоровья" первого ребёнка на 52 стоке

=ЯЧЕЙКА("содержимое";ДВССЫЛ("'"&$A$2&"'!A;ПОИСКПОЗ("Мать";ДВССЫЛ("'"&$A$2&"'!A:A")))) - ещё одна дичь с поиском содержимого ячейки с матерью, не работает

=СУММЕСЛИМН('{:}'!$C5:$AG5;'{:}'!$C$3:$AG$3;C$3) - тоже хотел просуммировать услуги специалиста со всех листов семей, вручную ограниченными листами "{" и "}"

=СУММЕСЛИМН(ДВССЫЛ("'"&$A$2&"'!$C5:$AG5");ДВССЫЛ("'"&$A$2&"'!$C$3:$AG$3");C$3)

=СУММЕСЛИМН(ДВССЫЛ("'"&$A$2&"'!$C5:$AG5");ДВССЫЛ("'"&$A$2&"'!$C$3:$AG$3");C$3)

=СУММЕСЛИМН('Семья с 1'!C5:AG5;'Семья с 1'!C3:AG3;C$3)

=СУММЕСЛИМН(ДВССЫЛ($A$2&"!"&C5:AG5);ДВССЫЛ($A$2&"!"&C3:AG3);C$3)

=СУММ('{:}'!AJ14)

=СУММ('{:}'!AJ49;'{:}'!AJ88;'{:}'!AJ127;'{:}'!AJ166;'{:}'!AJ205)

=СУММЕСЛИМН($C14:$AG14;$C$3:$AG$3;AJ$3)

=СУММПРОИЗВ(ДВССЫЛ("'"&$A$2&"'!$C$5:$AG$13")*(ДВССЫЛ("'"&$A$2&"'!$B5:$B13")=$B5)*(ДВССЫЛ("'"&$A$2&"'!C$3:AG$3")=C$3))

=ЕСЛИОШИБКА(ЕСЛИ(A$2="";"Укажите название семьи в ячейку A2";ЕСЛИ(ДВССЫЛ("'"&$A$2&"'!A2")="";"";ДВССЫЛ("'"&$A$2&"'!A2")));"Такая семья отсутствует. Проверьте A2")

Sub Backup_Active_Workbook()
    Dim x As String
    strPath = "D:\Documents\MS Office Bcup"     'папка для сохранения резервной копии
    On Error Resume Next
    x = GetAttr(strPath) And 0
    If Err = 0 Then ' если путь существует - сохраняем копию книги, добавляя дату-время
        strDate = Format(Now, "dd.mm.yy hh-mm")
        Filename = strPath & "\" & "Таймкоды записей" & " " & strDate & ".xls"   'или xlsm
        Application.DisplayAlerts = False 'убрать оповещения при сохранении
        ActiveWorkbook.SaveAs Filename:=Filename, FileFormat:=xlOpenXMLWorkbook, CreateBackup:=False
    Else 'если путь не существует - выводим сообщение
        MsgBox "Папка " & strPath & " недоступна или не существует!", vbCritical
    End If
End Sub

Private Sub Workbook_BeforeClose(Cancel As Boolean)
   Call Backup_Active_Workbook
End Sub

Sub Backup_Active_Workbook()
    Dim x As String
    strPath = "D:\Documents\MS Office Bcup"     'папка для сохранения резервной копии
    On Error Resume Next
    x = GetAttr(strPath) And 0
    If Err = 0 Then ' если путь существует - сохраняем копию книги, добавляя дату-время
        strDate = Format(Now, "dd.mm.yy hh-mm")
        FileNameXls = strPath & "\" & "Таймкоды записей" & " " & strDate & ".xls"   'или xlsm
        ActiveWorkbook.SaveCopyAs Filename:=FileNameXls
    Else 'если путь не существует - выводим сообщение
        MsgBox "Папка " & strPath & " недоступна или не существует!", vbCritical
    End If
End Sub

=ЕСЛИ(B2="";"";ПОДСТАВИТЬ(ТЕКСТ(ПОДСТАВИТЬ(ЛЕВБ(B2;ПОИСК(",";B2)-1);".";",");"#,00000");",";"."))
=ЕСЛИ(B2="";"";ПОДСТАВИТЬ(ТЕКСТ(ПОДСТАВИТЬ(ПСТР(B2;ПОИСК(",";B2)+1;99);".";",");"#,00000");",";"."))