Здравствуйте!  Интересует такой вопрос. Можно ли с помощью макроса добавить надстройку при открытии книги?? Дело в том что разнае надстройки нужны в разных файлах, и чтобы много вкладок не весело в панели инструментов хочу каждом файлу прописать свою настройку при открытии и закрытии книги.  

Доброго времени суток.
Этот макрос брал толи на этом форуме толи была ссылка на него здесь.
Немного изменил его под свои нужды, но появилась проблема которую не могу самостоятельно решить.
В макросе прописан путь сохранения создаваемой книги с копией листов текущей в сетевую папку. Но если этой папки, или доступа к ней нет, то появляется ошибка с невозможностью сохранения по указанному пути, хотя сама книга с листами создается, и после нажатия End она открывается.
Помогите сделать так чтобы в случае отсутствия доступа к данной папке выдавалось сообщение о том что "Файл не может быть сохранен, т.к. нет доступа к папке".

Макрос запускается из меню макросов, территориально он находится в книге.

Упрощенную версию файла прикрепляю в приложении.

P.S.: Файл перезалил без пароля на VBA

Всем доброго времени!!
Имеется таблица с перечнем оборудования (строки) и данными по их поверке по годам (столбцы). Столбец L отвечает за анализ данных по поверке по годам, который выбирается пользователем М4.
Помогите пожалуйста с созданием формулы, в столбце L, которая сможет определить  последнюю заполненную ячейку в строке до выбранного года (столбца).
При комбинации если(епусто(индекс(года;1;М4-1));... получается очень громоздко... Может есть способ по компактнее....
Заранее Спасибо...

Всем доброго времени суток. Нашел этот макрос тут на форуме, типо ВПР, который адаптирую под разные формы. Столкнулся с такой проблемой что при сопоставлении сожержимого ячеек через If Then Else, неправильно определяется содержимое ячейки при его значении, для тех ячеек содержимое которых меньше 100. Ничего не могу понять что сделано не так. Помогите разобраться пожалуста.

Имеется книга, с изменяемой пользователькой формой взависимости от активного листа... На одном из листов макрос поиска ищет по массиву данных, но если в массиве иммется 2 ячейки с похожим содержимым, например ищет 862, то находим первое знаечем 3862,4144 и не перескакиваем на ячейку которая содержит только 862, нет фукнции найти далее... использовал функцию xlWhole, но она не всегда походит.... Помогите настроить работу форму... Заранее спасибо.. Файл с формой приложен в архиве....

Помогите написать макрос, чтобы при отображении/скрытии элементов 3 уровня структуры строк столбцы сами отображались или скрывались

Предесловие:Извиняюсь за повторение темы, но не смог найти ее на форуме. Несколько месяцев назад нашел тут макрос, использую "метод тыка" и читая другие темы форума доработал его под свои нужны, доработал но не совсем.  
Цель темы: Имеется код поиска и подстановки значений по условию. Код завязан за имя текущего листа, именованные диапазоны и значение комбобокса из другой формы. Поиск должен осуществляться в другом файле и из него копироваться значения по условию.... но этого не происходит, помогите пожалуйста.    
 
Sub Zagruzka()  
   Dim a As Range  
   Set a = Range("Гар.№_" & ActiveSheet.Name) 'Диапазон ячеек КОТОРЫЕ ищем'  
   Call SearchID(a)  
End Sub  
Sub SearchID(diap As Range)  
   Dim BaseDiap As Range, x As Range, c As Range  
       Set BaseDiap = Workbook("тэп_" & ActiveSheet.Name & "_" & Forma.ComboBox1.Value & ".xls").Sheets(1).Range("D5:D600") 'Диапазон ячеек ГДЕ ищем'  
   For Each x In diap  
       Set c = BaseDiap.Find(What:=x.Value, LookIn:=xlValues, LookAt:=xlWhole)  
       If Not (c Is Nothing) Then  
           'Если что-то нашли то копируем значение из соседнего столбца'  
           Cells(x.Row, x.Column + 17).Value = Workbook("тэп_" & ActiveSheet.Name & "_" & Forma.ComboBox1.Value & ".xls").Sheets(1).Cells(c.Row, c.Column + 3).Value     'копирует сп.об.'  
       End If  
   Next x  
   MsgBox "Подстановка значений завершена"  
End Sub  
 
Если необходим сам файл попозже выложу (необходимо почистить его от рабочей информации)