Страницы: 1
RSS
Сравнение ячеек и заливка
 
Добрый день!
Задача следующая:
На листе 1 в столбце А записаны значения, на листе 2 в ячейках B5-B15 вписываются значения, если одно из этих значений равно значению из столбца А на листе один, тогда заливка красным.
Проблема в том, что значения начинаются с букв, пример: ABC1234.
Изменено: Offisniy_rabotnik - 12.12.2019 18:30:24
 
Offisniy_rabotnik,
Цитата
Offisniy_rabotnik написал:
Проблема в том, что
Вы не приложили файл примера с исходными данными и желаемым результатом...
Не бойтесь совершенства. Вам его не достичь.
 
Прошу прощения, прикрепил.
 
ячейки b5:b15 пустые
 
В модуль листа 2
Код
Private Sub Worksheet_Change(ByVal Target As Range)
 If Not Intersect(Target, Range("B5:B15")) Is Nothing Then
        Application.EnableEvents = False
  With Worksheets("Лист1")
   If Not .Range("A1:A" & .Cells(.Rows.Count, 1).End(xlUp).Row).Find(Target, , xlValues, xlWhole) Is Nothing Then
    Target.Interior.ColorIndex = 3
   End If
  End With
 End If
    Application.EnableEvents = True
End Sub
Страницы: 1
Наверх