Добрый день! Задача следующая: На листе 1 в столбце А записаны значения, на листе 2 в ячейках B5-B15 вписываются значения, если одно из этих значений равно значению из столбца А на листе один, тогда заливка красным. Проблема в том, что значения начинаются с букв, пример: ABC1234.
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