Новости:

К первому сообщению темы должен быть прикреплен файл примера в формате xls*.
Приложив пример, Вы избавите себя и других от вопросов типа "А какой критерий?", "А куда выводить результат?", "А сколько строк?" и все тех же просьб выложить файл. Рисовать за Вас Ваши же таблички с заданиями, а затем и решение к ним, никто желанием не горит. Да и, как показывает практика, в большинстве случаев без файла решения не найти.

Главное меню

Заменить значение ячеек ЕСЛИ совпадение

Автор x3emz, 21.10.2023, 15:53

« назад - далее »

x3emz

Добрый день!

Есть шаблон (см. вложение).
Вижу два пути решения для своего ТЗ:
1. Дописать формулы в колонках E и F
2. Использовать какой-нибудь макрос для проверки

Задача следующего характера...
Если в колонке J есть фамилии "Фамилия1" "Фамилия2" "Фамилия3" "Фамилия4"
То в колонке Е
Слово "регистрация" у данной фамилии, например совпала "Фамилия1" заменить на слово "Прилет диспетчер"; Слово "Встреча" заменить на "Вылет диспетчер"
В колонке F для данной фамилии и операции "Прилет диспетчер" значение взять с листа Регистрация ячейка К4
В колонке F для данной фамилии и операции "Вылет диспетчер" значение взять с листа Регистрация ячейка К3

Забегая наперед... В колонке J из 4 фамилий из условия, точно всегда на выходе будет 2 фамилии совпадать, которые положу в условие.

На скриншоте во вложение показал, как хочу чтобы это потом выглядело.
Screenshot_30.png

Посоветуйте, пожалуйста, каким лучше путем пойти ?
Пробовал оборачивать имеющие формулы еще в условие ЕСЛИ, но что то пока к нужному результату придти не получилось. 

x3emz

Sub Кнопка5_Щелчок()
Dim R As Range
For Each R In Range("J2:J200")
  If R.Interior.Color = vbRed Then
    R.Interior.Pattern = xlNone
    R.Offset(, -5).Value = "Вылет диспетчер"
    R.Offset(4, -5).Value = "Прилет диспетчер"
    R.Offset(, -4).Value = Sheets("Регистрация").Range("K3")
    R.Offset(4, -4).Value = Sheets("Регистрация").Range("K4")
  End If
Next
MsgBox "Значения для диспетчеров записаны"
End Sub

Пока сделал так. Что если фамилию в колонке J выделить красным цветом, то выполнить...

Но выглядит костыльно))


Serge 007

Бесплатная помощь: www.excelworld.ru
Платная помощь: sergeyizotov@excelworld.ru
Ю-money: 41001419691823 | WMR:126292472390