Спасибо!

Добрый день!

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

Благодарю, все как нужно работает!

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

К сожалению пока неизвестно ни сколько реально будет страниц, ни кому конкретно.
Поэтому предположим что у меня файл состоит из 3-х листов (AN, AT, AO).
Адресаты которые указаны в коде.
Но им как описано раньше нужно отправлять только в случае если в листе указано (в ячейке B1 слово "отправь").
В AN (B1 есть слово "отправь") , AT (B1 пусто), AO (B1 есть слово "отправь").
Соответственно как прописано в коде
AN должно отправиться на адреса i@mail.ru, k@mail.ru
AT отправляться никому не должно.
AO  должно отправиться на адреса n@mail.ru, o@mail.ru

Я не знаю может 15 листов. У каждого будет свой получатель (n@ mail.ru и т.д.).
Отправить нужно будет все где есть "отправь", остальные пропустить.

Добрый день!
Помогите пожалуйста дополнить макрос.
Необходимо, чтобы лист отправлялся адресату, если в ячейке 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

Мне необходимо, чтобы данный процесс происходил автоматически без ручного проставления галочки "обратный порядок значений", когда слайды с отрицательными значениями

Добрый день!

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