Вывести значение из диапазона с условием (сегодня)

[Рафаэль И.]

Как сделать так что бы , сводка сама подтягивала число из диапазона таблицы согласно нынешнему дню (сегодня) ?

[Aleksandr H.]

формулами или UDF?

Function DataFind(r As Range)
    Dim i As Integer
    Dim lB, uB As Date
    DataFind = 0
    For i = 1 To r.Columns.Count
        lB = CDate(Left(r.Cells(1, i), 5) & "." & Year(Now()))
        uB = CDate(Right(r.Cells(1, i), 4) & "." & Year(Now()))
        If Now() >= lB And Now() <= uB Then
            DataFind = r.Cells(3, i)
            Exit Function
        End If
    Next
End Function

вызов:

=DataFind(B8:S10)

[Рафаэль И.]

Формулами это возможно ?

[Рафаэль И.]

Вот и ответ !
=ПРОСМОТР(СЕГОДНЯ();--ЛЕВБ(B8:R9;5);B10:R10)