Excel Vba Forum - Excelce.Net

SORU ve CEVAPLAR (Yazılabilir) => Microsoft Excel, Vba, Makro, Formül vb. Soruları => Çözülen Excel, Vba, Makro, Formül vb. Soruları => Konuyu başlatan: yesilyurtlu - 04 Ağustos 2010, 18:40:05

Başlık: [Çözüldü] Yanıp sönen hücre
Gönderen: yesilyurtlu - 04 Ağustos 2010, 18:40:05

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.

Başlık: Ynt: yanıp sönen hücre
Gönderen: Orion1 - 04 Ağustos 2010, 19:31:46

Dosyanız ektedir. :cooll

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

Başlık: Ynt: yanıp sönen hücre
Gönderen: yesilyurtlu - 05 Ağustos 2010, 06:40:50

Evren Abi;
Eline sağlık. :begendim :alkis

Teşekkür Ederim

Başlık: Ynt: yanıp sönen hücre
Gönderen: Orion1 - 05 Ağustos 2010, 10:50:16

Alıntı yapılan: yesilyurtlu - 05 Ağustos 2010, 06:40:50

Evren Abi;
Eline sağlık. :begendim :alkis

Teşekkür Ederim

Rica ederim.
İyi çalışmalar. :cooll