Чем срочнее поможете себе сами, тем скорее получите помощь. Имею ввиду файл-пример

Поэтому ПРЕДЛОЖИТЕ название для Темы, без привязки к конкретным функциям, соответствующее ЗАДАЧЕ!!!

Вам нужно решение именно таким способом, который Вы указали в названии Темы?
Если Да, то все другие варианты будут удалены.
Если Нет, то предложите Название для темы соответствующее Задаче, а не Способу, которым Вы пытаетесь ее решить

Я тоже еще тот PQ-шник, но может что-то типа такого, без проверки на null?

Измените ссылку в ячейке L1 на ячейку с Названием, а не с Количеством

Daewoo73, Предложите название для темы, соответствующее Вашей Задаче и Правилам форума. Помощь скрыта до устранения

Ну, во-первых, мы (модераторы) на страже Правил не нами писанных). Это, хоть и почетная, но все-же обязанность)
И, если Вы заметили, далеко не все темы с плохими названиями закрываются автоматически. Если я вижу, что Тема, потенциально, может быть полезна не только ТС, то, сначала, предлагаю ПРЕДЛОЖИТЬ новое название. И не всегда хватает времени для вникания в описание Темы, открытие файла-примера. Опять же у каждого остается возможность списаться в ЛС с вопрошающим и помочь ему лично.
А так я тоже за все хорошее, против всего плохого)

Видимо в мой огород
Не уместными с какой точки зрения?
Напомню
Убедите меня в обратном и я искренне извинюсь перед ТС
Мне кажется, постоянно забывается основной принцип данного ресурса - ПОМОЩЬ, а не бесплатная решалка любых хотелок. ИМХО (как говорится) нормальное название Темы поможет гораздо большему количеству людей (умеющих правильно составить поисковый запрос) с подобной проблемой, чем Тема, с названием 'Help', в которой помогли только одному товарищу.
Тем более, что

Название темы о чем? Закрыто

Читаем Правила. Про название темы, про файл-пример. Закрыто

и
Как это? Можете показать в файле нужный результат?

Какую из таблиц добавить к какой?

Можно макросом. В модуль листа
Изменяйте названия столбцов в Таблице1

Скрытый текст

Код Private Sub Worksheet_Change(ByVal Target As Range) Dim iTbl1 As ListObject Dim iTbl2 As ListObject Dim I& On Error Resume Next Set iTbl1 = Me.ListObjects("Таблица1") Set iTbl2 = Me.ListObjects("Таблица2") If Not Intersect(Target, iTbl1.HeaderRowRange) Is Nothing Then   I = iTbl1.ListColumns(Target.Column).Index   Application.EnableEvents = False   iTbl2.HeaderRowRange(I).Value = iTbl1.HeaderRowRange(I).Value End If Application.EnableEvents = True End Sub

Перенесите заполнение ComboBox'а из модуля ЭтаКнига в модуль листа.

Работает ровно так, как Вы прописали правило в УФ. Посмотрите файл. Ваша формула вынесена на лист, наглядно видно, что все корректно
Или была какая-то другая задумка?

Похоже на ограничение в 255 символов

Зачем? Без файла Excel вряд-ли кто-нибудь по картинке вылечит

Текст по столбцам (разделитель ;), а потом СЦЕПИТЬ() в нужном порядке

Да у Вас тут целое ТЗ на разработку.
В этом разделе ПОМОГАЮТ, а не исполняют заказы. ТУТ исполняют заказы
Вы сами-то что сделали для решения Вашей-же задачи? Что у Вас не получилось?

minkeani, Название Вашей темы о чем? О том, что в Excel есть такие функции? Предложите название темы (тут, в сообщении) соответствующее Вашей задаче. Помощь скрыта до устранения

Без понятия. Нет у меня сетевых принтеров

По Вашей ссылке выше, если развернуть ветку вопроса от Tigronius, можно увидеть полный код макроса (правда в виде картинки, руками придется перенабрать в VBE). Вы видели его?

Так в чем помочь-то Вам? В чем затык?

Все в одной формуле
=РАЗНДАТ(;(20*365-(10*365+5*30+15));"y")&" г. "&РАЗНДАТ(;(20*365-(10*365+5*30+15));"ym")&" мес. "&РАЗНДАТ(;(20*365-(10*365+5*30+15));"md")&" дн."

А какой ответ будет корректным в этом случае?

Может Сводная таблица?
Вы бы в файле показали нужный результат

Может быть
Функция ПРОМЕЖУТОЧНЫЕ.ИТОГИ ?