Добрый день!

Прошу помочь в следующем вопросе, возможно ли сформировать выпадающий список на основе избранных данных из столбца.
Вложен пример, есть список из сотрудников, например сотрудники 1 4 и 7 соответствуют какому-то требованию, сложил их количество получил 3 сотрудника.
Мне необходимо чтобы нажав на цифру 3 появился список сотрудников Сотрудник1, Сотрудник4, Сотрудник7

Добрый день!
Помогите пожалуйста дополнить макрос.
Необходимо, чтобы лист отправлялся адресату, если в ячейке B1 есть слово "отправь".
Если нет соответственно лист пропускался и макрос переходил к следующему листу. Далее по аналогичному сценарию проверял наличие текста и так далее, до последнего листа.


Sub SendSheet()
   ThisWorkbook.Sheets("AN").Copy
   With ActiveWorkbook
       .SendMail Recipients:=Array("(i@mail.ru)", "(i@mail.ru)"), Subject:="A1" & Format(Date, "dd/MM/yyyy")
       .Close SaveChanges:=False
   ThisWorkbook.Sheets("AT").Copy
   With ActiveWorkbook
       .SendMail Recipients:=Array("(k@mail.ru)", "(k@mail.ru)"), Subject:="A1" & Format(Date, "dd/MM/yyyy")
       .Close SaveChanges:=False
End With
End With
End Sub

Добрый день!

Возможно ли формировать диаграммы с отрицательными значениями в классическом виде.
Т.е. чтобы в параметрах оси автоматически проставлялась галочка "обратный порядок значений" при отрицательных значения данных для диаграммы.