[Çözüldü] Yanıp sönen hücre

[yesilyurtlu]

Sayfanın Kod Modülüne

Option Explicit

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, [A1]) Is Nothing Then Exit Sub
If Range("A1").Value > 0.05 Then
    Module1.dur = False
    Call basla
    Else
    Module1.dur = True
    Range("A1").Interior.ColorIndex = xlNone
    Range("A1").Font.Color = vbBlack
    Range("A1").Font.Bold = False
End If
End Sub

Modüle
Option Explicit
Public dur As Boolean
Sub auto_open()
    Sheets("Sayfa1").Select
    If Range("A1").Value > 0.05 Then Call basla
End Sub
Sub auto_close()
    dur = True
End Sub

Sub basla()
If dur = True Then Exit Sub
If Format(Now, "ss") Mod 2 = 0 Then
    Range("A1").Interior.Color = vbRed
    Range("A1").Font.Color = vbYellow
    Range("A1").Font.Bold = True
    Else
    Range("A1").Interior.ColorIndex = xlNone
    Range("A1").Font.Color = vbBlack
    Range("A1").Font.Bold = False
End If

Call saat
End Sub
Sub saat()
Application.OnTime Now + TimeValue("00:00:01"), "basla"
End Sub

kodları ile sadece A1 hücresi için

yukarıda ki kodu sütun için ve "SATILDI" ibaresine göre düzenlenmesi mümkün müdür?

Kod Evren GİZLEN üstadıma aittir.

[Orion1]

Dosyanız ektedir.

[Forum yazılım güncelleme esnasında sorun oluştuğundan eklendi silinmiştir.]

[yesilyurtlu]

Evren Abi;
Eline sağlık.

Teşekkür Ederim

[Orion1]

Evren Abi;
Eline sağlık.

Teşekkür Ederim

Rica ederim.
İyi çalışmalar.