Поиск по знацению и сцепка

[staniiislav]

Здравствуйте Ув. Форумчане.
Не могу не как доделать одну таблицу, а проблема такова:
1) AO3:BD3 в каждой из ячеек нужна формула, которая будет искать и сцеплять значения по определенному условию.
И так допусти в ячейки AT3 нужно чтобы нашло и сцепило данные по условию: если находит в строке D9:M9,O9:Y9,AA9:AL9 значение которое равно АТ9, в АТ3 должно записать значение со строки . Выглядит так АТ9=40, ищем по диапазоном D9:M9,O9:Y9,AA9:AL9, если находим значение=АТ9(40), например в Н9=40, добавляем значение из Н3(пт.№20) в ячейку АТ3, а если в диапазоне D9:M9,O9:Y9,AA9:AL9 не одно значение "40", в ячейке АТ3 должно быть перечислено через запятую(АТ3=пт.№20,пт.№24).
2) Не как не пойму в чем проблема: Создал фигуру, и к ней присвоил макрос сохранения, выдает прекращение работы экселя, но документ сохраняет. А если вставляю обычную кнопку VB, тогда не каких ошибок о прекращении работы экселя не выскакивает... В чем может быть проблема?

[shanemac51]

видимо вы закрыли активную книгу

Set Wb = ActiveWorkbook
           ' ActiveSheet.Copy after:=Sheets(Sheets.Count)
                    With ActiveSheet
                            .UsedRange.Value = .UsedRange.Value
                    End With
            Wb.SaveAs FolderName _
                      & "\" & "Сводная за " & " " & Date_name & ".xlsm"
            Wb.Close False

[staniiislav]

Сообщение от shanemac51

видимо вы закрыли активную книгу

Set Wb = ActiveWorkbook
           ' ActiveSheet.Copy after:=Sheets(Sheets.Count)
                    With ActiveSheet
                            .UsedRange.Value = .UsedRange.Value
                    End With
            Wb.SaveAs FolderName _
                      & "\" & "Сводная за " & " " & Date_name & ".xlsm"
            Wb.Close False

Дело в том что в примере две кнопки, по одной все нормально, а по фигуре "бок"... Так такое первый раз, т.к. в других документах эксель сохраняет нормально. я думаю что-то с самим файлом. А где именно посмотреть? Индикатор документов нечего интересного не показал, кроме скрытых столбцов.

И кстати если прослежую по коду через F8, проблем не возникает!

[staniiislav]

т.к. не придумал формулы и некто не подсказал, сделал доп. табличку и использовал функцию сцепить, и все заработало.

Спасибо за внимание, и спасибо shanemac51.
Тему можно закрывать