=ДВССЫЛ(ПРАВБ(0&ЛЕВБ(ПРАВБ(ЯЧЕЙКА("filename";A1);5);2)-1;2)&"."&ПРАВБ(ЯЧЕЙКА("filename";A1);2)&"!U12")
=ДВССЫЛ(ТЕКСТ(РАБДЕНЬ(ДАТАЗНАЧ(ПРАВБ(A1;10));-1);"ДД.ММ")&"!U12")
Function GetPrevSheetValue(CellAddr As String) Application.Volatile True Dim wsCur As Worksheet Set wsCur = Application.Caller.Parent If wsCur.Index = 1 Then GetPrevSheetValue = "" Else GetPrevSheetValue = wsCur.Parent.Worksheets(wsCur.Index - 1).Range(CellAddr).Value End IfEnd Function