Форум по Excel

Форум

Добрый день, уважаемый посетитель сайта RuExcel.
Если Вы воспользовались поиском на сайте и не нашли ответа на свой вопрос, можете задать его здесь — на форуме.
Участники форума или администрация сайта с радостью блеснут своей эрудицией и дадут Вам развернутый ответ на поставленный вопрос.
Если вы и сами неплохо ориентируетесь в программе Excel, не ленитесь и подсказывайте новичкам, как решать ту или иную задачу.
Делитесь знаниями и они к Вам обязательно вернутся. 😉
Всем добра и благополучия.

Пожалуйста or Регистрация для создания сообщений и тем.

Вывод результата по нескольким условиям (If Then Else)

Добрый день эксперты по VBA!

Нужна ваша помощь по формированию кода, к сожалению не хватает опыта для решения задачки, обращаюсь к вам за помощью.

Задача следующая:

В столбцах: A, B, C прописаны условия (на быструю руку), по данным условиям в столбец E необходим ввод результата макросом, через кнопку. Вроде бы код простой но не могу додумать, что бы он работал по диапазону, а в другой диапазон вставлял результат. Должно получиться, как то так:

If Range("A2:A36") = "Дерево" And Range("B2:B36") = "Зелёный" And Range("C2:C36") = "50гр." Then Range("E2:E36") = "Яблоко"

Понимаю, что код не верный (пример на быструю руку), помогите пож. додумать и решить мега проблему. Спасибо!

Загруженные файлы:
  • Вам нужно войти, чтобы просматривать прикрепленные файлы..

Добрый день.

Попробуйте реализовать циклами, приблизительно так:

For Each cell In range("A2:A36")

If  InStr(StrConv(cells.text, vbTextCompare), "Яблоко") > 0    then

....

next