Yanıp Sönen Hücre Makrosu

[onur3595]

Selamlar herkese,

Yaygın olan yanıp sönen makrosunu Excel çalışmama entegre ettim fakat şöyle bir durum var,
Benim çalışma sayfamda birden fazla koşul var. Ben koşul sağlayan diğer hücrelerin de aynı anda yanıp sönmesini istiyorum. Bu kodda sadece bir hücre yanıp sönüyor bunu diğer hücrelere nasıl uygulayabilirim?

Sub renkver()
DoEvents

If Range("A1") > 5 Then

Range("A1").Interior.ColorIndex = 6


Application.OnTime Now + TimeValue("00:00:01"), "renksil"
Else
Range("A1").Interior.ColorIndex = xlNone
Application.OnTime Now + TimeValue("00:00:01"), "renksil"
End If

End Sub

Sub renksil()
DoEvents

If Range("A1") > 5 Then
Range("A1").Interior.ColorIndex = xlNone


Application.OnTime Now + TimeValue("00:00:01"), "renkver"
Else


Range("A1").Interior.ColorIndex = xlNone
Application.OnTime Now + TimeValue("00:00:01"), "renkver"
End If

End Sub

 

[Korhan Ayhan]

Burada ki konu sanırım işinize yarayacaktır.

koşula göre o hücrenin yanıp sönmesi

merhaba ustadlarım ekledıgım dosyada f hucresı e hucresınden kucukse yanıp sonen bır alarm yapılabılır mı acaba ? ilginiz için tesekkurler . ( sayfa acıldıgında otomatık olarak makronun calısması gerekıyor. )

www.excel.web.tr

 

[onur3595]

Burada ki konu sanırım işinize yarayacaktır.

koşula göre o hücrenin yanıp sönmesi

merhaba ustadlarım ekledıgım dosyada f hucresı e hucresınden kucukse yanıp sonen bır alarm yapılabılır mı acaba ? ilginiz için tesekkurler . ( sayfa acıldıgında otomatık olarak makronun calısması gerekıyor. )

www.excel.web.tr

Altın üye olmadığım için maalesef dosyayı görüntüleyemiyorum.

 

[Korhan Ayhan]

Linkten indirebilirsiniz.

Bilgi

Bilgi

dosyam.org

 

[onur3595]

Hocam tam istediğim gibi oldu. Sadece kodlama değil de koşullu biçimlendirmeyle olması hem kodlamada karmaşa yaratmadı hem de daha sade oldu. Yardımlarınız için teşekkür ederim.

 

[onur3595]

Farklı bir excel tablosu açınca kod kısmında bir hata alıyorum hocam. Acaba kod tüm excel dosyaları için çalışıyor olabilir mi?

Verdiği hata : Run-time error '9':

Subscript out of range

Option Explicit

Sub Auto_Open()
    DoEvents
    Sheets("test").Range("N1") = 1
    Application.OnTime Now + TimeSerial(0, 0, 2), "Renklendir"
End Sub

Sub Renklendir()
    DoEvents
    Sheets("test").Range("N1") = ""
    Application.OnTime Now + TimeSerial(0, 0, 2), "Auto_Open"
End Sub

Sub Auto_Close()
    Sheets("test").Range("N1") = ""
    ActiveWorkbook.Save
End Sub

 

[onur3595]

Farklı bir excel tablosu açınca kod kısmında bir hata alıyorum hocam. Acaba kod tüm excel dosyaları için çalışıyor olabilir mi?

Verdiği hata : Run-time error '9':

Subscript out of range

Option Explicit

Sub Auto_Open()
    DoEvents
    Sheets("test").Range("N1") = 1
    Application.OnTime Now + TimeSerial(0, 0, 2), "Renklendir"
End Sub

Sub Renklendir()
    DoEvents
    Sheets("test").Range("N1") = ""
    Application.OnTime Now + TimeSerial(0, 0, 2), "Auto_Open"
End Sub

Sub Auto_Close()
    Sheets("test").Range("N1") = ""
    ActiveWorkbook.Save
End Sub

DoEvents 'ten sonra Sheets("test"). kısmı sildikten sonra düzeldi.

 

[Korhan Ayhan]

Kodları aşağıdaki gibi değiştirip deneyiniz.

Option Explicit

Sub Auto_Open()
    DoEvents
    ThisWorkbook.Sheets("Sayfa1").Range("BB1") = 1
    Application.OnTime Now + TimeSerial(0, 0, 2), "Renklendir"
End Sub

Sub Renklendir()
    DoEvents
    ThisWorkbook.Sheets("Sayfa1").Range("BB1") = ""
    Application.OnTime Now + TimeSerial(0, 0, 2), "Auto_Open"
End Sub

Sub Auto_Close()
    ThisWorkbook.Sheets("Sayfa1").Range("BB1") = ""
    ActiveWorkbook.Save
End Sub

Ek olarak BuÇAlışmaKitabı bölümüne de aşağıdaki kodu uygulayınız.

Option Explicit

Private Sub Workbook_Activate()
    Auto_Open
End Sub