Добрый вечер друзья!

Помогите написать код.

1.Необходимо в ячейке D7 поставить фильтр: 5 месяцев назад от текущего месяца, т.е. чтобы отображались даты апреля 2022 и более поздние даты (март, февраль...)
2. Чтобы в отфильтрованных ячейках в столбце F был текст 1 апрель и название месяца менялось в зависимости от даты первой отфильтрованной ячейки в столбце D.
В дальнейшем буду фильтровать 4 месяца от текущего месяца и т.д.

Мои "кривые наброски":
ActiveSheet.Range("D7:F7").AutoFilter Field:=1, Criteria1:="<"& Clng(DATE(YEAR(TODAY()),MONTH(TODAY())-5,1))

Заранее огромное спасибо.

Спасибо!!!!!

Добрый вечер!

Подскажите, как правильно записать в ячейку AO8 формулу {=МИН(ЕСЛИ(R:R=AN8;N:N))} в VBA, для поиска минимального значения по условию.
На работе старая версия офиса, функции МИНЕСЛИ нет.
Написал код Range("AO8").Formula = "{=MIN(IF(R:R=AN8;N:N))}" но он не работает.
Можно ли как то использовать комбинацию +^~ в качестве Ctrl+Shift+Enter.

Спасибо огроменное SAS888.
Давно не мог найти решения.

Добрый вечер товарищи!
Подскажите код VBA, необходимо скопировать ячейку D4 и протянуть формулу по данному столбцу до последней заполненной ячейки в смежном столбце.
Диапазон ячеек в смежном столбце будет постоянно меняться.
Пробовал сам через смещение ячеек, не получается.
Спасибо.

Спасибо!  

Добрый вечер!
В ячейку N2 вывести результат "фрукты", если диапазон B2:M2 содержит только слово яблоко, в противном случае, если диапазон содержит другие слова, то "не фрукты".

Спасибо!

Умно, спасибо!

Добрый день!

Подскажите, как правильно дополнить формулу =ЕСЛИОШИБКА(ВПР(A2;Лист2!A2:B2;2;0);""), чтобы если ВПР дает значение 0, то ячейка отображалась пустой?