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

[ruavia3]

У меня есть 4 OptionButton(a), которые привязаны к ячейкам А1, B1, C1, D1. И если 1-й optionbotton из 4-х имеет значение TRUE, то значения в ячейку тянутся из одного листа, если 2-й равен TRUE - то с значения тянутся с другого листа и т.д.
Формула в ячейке выглядит примерно так:
=IF($A$1=TRUE;VLOOKUP(F2;'Sheet1'!$ A$3:$D$300;2;FALSE);IF($B$1=TRUE;VL OOKUP(F2;'Sheet2'!$A$3:$D$300;2;FAL SE);IF($C$1=TRUE;VLOOKUP(F2;'Sheet3 '!$A$3:$D$300;2;FALSE);IF($D$1=TRUE ;VLOOKUP(F2;'Sheet4'!$A$3:$D$300;2; FALSE)))))

*Vlookup может искать значения не только с листов активной книги.xls, а также с других книг.

**Плюс у меня формулы на случай ошибки прописаны через If(iserror(...);"";(...)) это вдвое увеличивает ее написание. Пример во вложении.

Как можно сократить формулу? Или искать иначе?

[SAS888]

А обязательно прописывать формулы? Примените макрос, который будет запускаться по изменению значений OptionButton-ов, искать и расчитывать все, что Вам нужно и вставлять в нужную ячейку (ячейки). Тогда и привязка значений OptionButton-ов к конкретным ячейкам будет не нужна.

[ruavia3]

Как запустить макрос для optionbutton без вспомогательной кнопки?

[SAS888]

Если у Вас OptionButton-ы на листе созданы как "Элементы управления" (как в примере), то включите "Режим конструктора", зайдите в "Исходный текст" и там пропишите запуск макроса. Например

Private Sub OptionButton1_Click()
    Run "Macro"
End Sub

Будет запущен макрос с именем "Macro".
Если же OptionButton-ы создать как формы, то просто - назначить макрос.

[IgorGO]

а вы поверите, если я скажу, что написал формулу длиной 18 символом? которая возвращает значение с нужного листа или пустую строку, когда значение не найдено, т.е. аналог вашей формулы с проверкой.
мало того, эта формула (при небольшой настройке, которая не повлияет на ее длину) может производить поиск на 10, 100, 1000 и т.д. листах.
понятно, все без макросов

[ruavia3]

эммм...можно посмотреть, а?

[ruavia3]

SAS888, выручите с макросом?
Sub Macro1()
'заполняет выделенный диапазон по соответствующим датам столбца B из листа Sheet1, если значение Optionbotton1 = TRUE
End Sub

*Наверняка есть какой-то умный цикл с UBound)

[IgorGO]

в строке 13 "честная формула", с проверкой, она все равно на 10 символов короче вашей без проверки
в строке 14 короткая формула. вместо ВПР... подставлено имя. в Ф2 пишем дату, выбираем лист, формула возвращает значение из второй колонки листа напротив указанной даты, если она нашлась на листе.

[SAS888]

Вопрос с макросом актуален? Или Вас устроит вариант, предложенный IgorGO?

[ruavia3]

SAS888, если есть возможность, то я бы хотел макросом.