yanıp sönen lamba

[celofb]

Merhaba Arkadaşlar,
Excel hesaplama yaparken bazı değerleri yazmayı unutmamak adına "ÇALIŞTIR" yazdığında yanıp sönen lamba koymak istiyorum."TAMAM" yazdığında yanıp sönmeyecek.
yardımcı olacak arkadaşlara şimdiden teşekkürler.

=EĞER(AA58=Z60;"TAMAM";"ÇALIŞTIR")

 

[çıtır]

Tamam,çalıştır hangi hücrede yazıyor.Hangi hücrede yanıp sönme olayı olacak.Açıklarmısınız?

 

[celofb]

Pardon
Z60 hücresinde olacak.Teşekkürler

 

[çıtır]

Bir modüle kopyalayınız.Kodları siteden almıştım.Önemlli Sayfa1 değilse değiştiriniz.

Dim S1 As Worksheet

Sub Auto_Open()
    Set S1 = Sheets("Sayfa1")
    Application.OnTime Now + TimeValue("00:00:01"), "Yan_Sön"
End Sub

Sub Yan_Sön()
    If S1.Range("AAA1") = 0 Then
        S1.Range("AAA1") = 1
    Else
        S1.Range("AAA1") = 0
    End If
    Application.OnTime Now + TimeValue("00:00:01"), "Yan_Sön"
End Sub

Yanıp sönmesini istediğiz hücre için formül, hücreyi seçiniz.
Koşullu biçimlendirme,yeni kural,biçimlendirilecek hücreleri belirlemek için formül kullan.Formül alanına alttaki formülü kopyala, dolgun rengi belirle.Kolay gelsin

=EĞER(VE($AAA$1=1;$Z$60="ÇALIŞTIR");1;0)