Макрос для автоматического проставления статуса при изменении цвета ячейки

[Сергей Ш.]

Добрый день.
Друзья нужна ваша помощь, сам я не селен в макросах. Нужен макрос, который бы автоматически менял статус на "Истек срок" в колонке "H", при изменении заданного цвета в ячейке столбца "К".
(Пример во вложении).

[Сергей Ш.]

Может есть какая-нибудь формула? Или через условное форматирование?

[maksim_serg]

Sub Кнопка1_Щелчек()
Dim R As Range
For i = 6 To ActiveSheet.UsedRange.Rows.Count
    Set R = Cells(i, 11)
    If Cells(i, 11).Interior.Gradient.ColorStops.Item(2).Color = 9869055 Then
        R.Offset(0, -3).Value = "Срок истек"
    End If
Next i
End Sub

[Сергей Ш.]

Спасибо большое.
А есть способ, что бы это все происходило автоматически, без нажимания на кнопку макроса?

[IgorGO]

даже более того, все можно сделать без макросов:
на условном форматировании подкрасить ячейку
в другую вписать нужный текст надо только понимать где находится контрольная дата и с чем ее сравнивать (например с СЕГОДНЯ())

[maksim_serg]

конечно есть, нужно всего лишь перехватить событие изменения заливки ячейки и повесить этот макрос на него. Или ввести дополнительный столбец, где будет отмечаться в ручную статус, а потом через формулу менять ваш столбец со статусом. Или заменить статус на формулу, что то типа =если(дата2>дата1;ячейка="готово";я чейка="просрочено")

[IgorGO]

лишь перехватить событие изменения заливки ячейки

очень интересно, можно подробнее, полагаю не я один не знаю о существовании такого рода события.

[maksim_serg]

где то давно, когда еще совсем не интересен был VBA видел исходник по перехвату всех сообщений от созданной формы с помощью собственных классов (вроде так). Наверняка и тут так можно. Может я ошибаюсь

[maksim_serg]

Про определение изменения заливки ячейки с помощью таймера - тихо молчу)))

[Watcher_1]

Сообщение от maksim_serg

Про определение изменения заливки ячейки с помощью таймера - тихо молчу)))

Фига се это как? Таймер на год запускать если дата через год истечет?