Не получилось сделать условное форматирование по датам в ячейках О и Р", пишет ошибку "Не достаточно системных ресурсов ....", что за ......???? :(
Сделайте пж макрос для сравнения дат, с комментариями в нем.
Условия окрашивания.
Если "Дата запроса письма" больше контрольной даты - мигание красного цвета
в ячейках "О и Р"
Если "Дата запроса письма" меньше или равна контрольной дате - окрашивается в ячейках зеленный цвет. "О и Р"
Если "Даты запроса письма" нет (пустая ячейка) - мигание зеленного цвета.
в ячейках "О и Р".
И внедрите пж мигание по условию.
'Мигание ячейки
Sub BlinkingCell()
Static intCalls As Integer ' Счетчик количества миганий
' Определение, какой цвет необходимо установить
If Range("O9:Р10").Interior.Color <> RGB(255, 0, 0) Then
' Цвет ячейки не красный, так что теперь назначим _
именно красный цвет
Range("O9:Р10").Interior.Color = RGB(255, 0, 0)
' Else
' Назначим ячейке зеленый цвет
'Range("O9:Р10").Interior.Color = RGB(0, 255, 0)
' End If
' Эту процедуру необходимо вызвать через 5 секунд
Application.OnTime Now + TimeValue("00:00:05"), "BlinkingCell"
Else
' Хватит мигать
Range("O9:Р10").Interior.ColorIndex = xlNone
intCalls = 0
End If
End Sub