Как сократить формулу

[SAS888]

Посмотрите вложение.

[ruavia3]

IgorGO, спасибо, сейчас буду переводить формулы с русского на английский

[ruavia3]

SAS888, а можно диапазон дат [B17:B37], заменить на диапазон от B17 до последней заполненной ячейки(или вчерашнего дня,т.е. Today()-1 ?

[SAS888]

Посмотрите вложение. Что не так?

[ruavia3]

Вау)
Могли бы дать комментарии?

With [B17:F48] - почему именно F48
r = Date - [B17] + 16 - почему 16 ?

А With Sheets("Sheet1") - можно заменить на "Sheet1" другой книги.xls?

[SAS888]

1. Перед началом работы, макрос очищает ячейки в диапазоне "B17:F48" от данных, заливки и нарисованных ранее границ. 48 - потому, что максимально возможное количество строк в таблице, начиная со строки 17 плюс 31 (максимально возможное количество дней в месяце).
2. r = Date - [B17] + 16 Определяем строку, до которой нужно "растянуть" дату из ячейки "B17". Сегодняшняя дата минус значение ячейки "B17" - это количество дней с 1 по сегодняшний. Соответственно, чтобы получить вчерашний, нужно отнять 1. А чтобы получить абсолютный номер строки, нужно прибавить 17 (т.к. это первая строка диапазона для вставки данных). Итого: r = Date - [B17] - 1 + 17, т.е. r = Date - [B17] + 16.
3. Если книга открыта, то строку

With Sheets("Sheet1")

нужно заменить на строку, содержащую ссылку на книгу. Например:

With Workbooks("Книга1.xls").Sheets("Sheet1")

Если же книга не открыта, то нужно либо макросом предварительно проверить и, если нужно, открыть ее, либо, если известны путь, имя книги, имя листа в ней и диапазон с данными, то получить данные из этой книги не открывая ее.

[ruavia3]

В моем случае даты не ограничены месяцем. Зафиксирована только ячейка B17 как первая дата.

[IgorGO]

спасибо, сейчас буду переводить формулы с русского на английский

а не надо ничего переводить, в колонке В смотрите английские названия функций, они уже там...

[ruavia3]

IgorGO, спасиб. Я сразу не понял, что Ф - вставлена как переменная.
в Ф вставлен vlookup, который ищет определенную дату (значение в ячейке F2 на определенных листах, задаваемых optionbutton). В этом случае все идеально. А если столбец с датами каждый день растет и значения нужно выводить на каждое число.
Другими словами, нужна не одна формула, а столько сколько дат в столбце. Напротив каждой даты нужны значения, которые подтягиваются из других листов.