Объединить два кода

Старая форма входа

Страница 1 из 1 1
Модератор форума: китин, _Boroda_

Объединить два кода (Макросы/Sub)

Объединить два кода

MARINKA

Дата: Пятница, 25.06.2021, 11:27 | Сообщение № 1

Группа: Пользователи

Ранг: Новичок

Сообщений: 37

Репутация: 0 ±

Замечаний: 0% ±

Excel 2010

Добрый день.
Помогите с кодом :help:
Есть два макроса для рассылки оутлук.
Выделяются необходимые ячейки в файле эксель-с помощью кнопок (тык или нет) запускается один из макросов.
Разница в вставляемом тексте в тело письма.
Как их объединить в один по условию: Если в выделенном фрагменте ячейки в столбце Е есть "нет" запускается один, если нет второй.
Как вписать в код формулу

Код

=ЕСЛИ(ЕОШИБКА(ПОИСК("нет";E2));G2;"")

, и с указанием не на конкретные ячейки, а ячейки в столбцах E и G в выделяемом фрагменте
if range

Код

=ЕСЛИ(ЕОШИБКА(ПОИСК("нет";E2));G2;"")

then
макрос 1
else
макрос 2
end if
end if

Спасибо.

К сообщению приложен файл: 4102987-1-.xls (56.5 Kb)

Сообщение отредактировал MARINKA - Пятница, 25.06.2021, 13:05

Ответить

китин

Дата: Пятница, 25.06.2021, 12:21 | Сообщение № 2

Группа: Модераторы

Ранг: Экселист

Сообщений: 7029

Репутация: 1078 ±

Замечаний: 0% ±

Excel 2007;2010;2016

MARINKA, в файле макросы отсутствуют от слова совсем

Не судите очень строго:я пытаюсь научиться
ЯД 41001877306852

Ответить

MARINKA

Дата: Пятница, 25.06.2021, 12:31 | Сообщение № 3

Группа: Пользователи

Ранг: Новичок

Сообщений: 37

Репутация: 0 ±

Замечаний: 0% ±

Excel 2010

Цитата китин, 25.06.2021 в 12:21, в сообщении № 2 (

)

в файле макросы отсутствуют от слова совсем

исправила

Ответить

китин

Дата: Пятница, 25.06.2021, 12:33 | Сообщение № 4

Группа: Модераторы

Ранг: Экселист

Сообщений: 7029

Репутация: 1078 ±

Замечаний: 0% ±

Excel 2007;2010;2016

MARINKA, - Прочитайте Правила форума
- Оформите формулу тегами (в режиме правки поста выделите формулу и нажмите кнопку fx, пояснялка здесь)
Помогающим просьба воздержаться от ответов в этой теме до исправления замечания

Не судите очень строго:я пытаюсь научиться
ЯД 41001877306852

Ответить

MARINKA

Дата: Пятница, 25.06.2021, 13:05 | Сообщение № 5

Группа: Пользователи

Ранг: Новичок

Сообщений: 37

Репутация: 0 ±

Замечаний: 0% ±

Excel 2010

Цитата китин, 25.06.2021 в 12:33, в сообщении № 4 (

)

- Оформите формулу тегами

готово

Ответить

Объединить два кода (Макросы/Sub)

Страница 1 из 1
1