Доброго времени.
Вообщем есть код.
Он меняет значение ячейки по условию.
Как заставить его менять ещё и цвет этой ячейки ?
в данном случае хотелось бы чтобы красным цветом помечалась ячейка в которую заносится значение 2
Вообщем есть код.
Он меняет значение ячейки по условию.
Как заставить его менять ещё и цвет этой ячейки ?
в данном случае хотелось бы чтобы красным цветом помечалась ячейка в которую заносится значение 2
Код |
---|
If Target.CountLarge = 1 Then If Not Intersect(Target, Columns("AA")) Is Nothing Then Set rngFind = [A:A].Find(Target, , xlValues, xlWhole, , xlNext, False, False, False) If Not rngFind Is Nothing Then Application.EnableEvents = False Intersect([C:C], rngFind.EntireRow).Value = 2 Intersect([W:W], rngFind.EntireRow).Value = Now rngFind.Offset(0, 21) = "розничный покупатель" Application.EnableEvents = True End If End If |