yanıp sönen hücre

[ferhat73]

arkadaşlar forumdan indirdiğim son kod arşiv dosyasından
......."A1:m8" hücrelerinin arkaplani yanip söner .........
kodlarını bir dosyada uyguladım ama başarılı olamadım.

problem nerede yardımcı olursanız sevinirim.

iyi çalışmalar

 

[Korhan Ayhan]

Selamlar,

Kullandığınız kod elle tetiklenmektedir. Yani otomatik çalışmıyor. Ve kısa bir süre renklendirme yapıyor. Çalıştırmak için ALT+F8 tuşlarına basın ve çalıştır tuşuna tıklayın.

 

[Nadir46]

Option Explicit
Public CellCheck As Boolean
Private Sub Worksheet_Change(ByVal Target As Excel.Range)
If Range("B1") >= "1" And CellCheck = False Then
Call StartBlink
CellCheck = True
ElseIf Range("B1") <> "1" And CellCheck = True Then
Call StopBlink
CellCheck = False
End If
End Sub

Option Explicit
Public RunWhen As Double
Sub StartBlink()
If Range("B1").Interior.ColorIndex = 3 Then
Range("B1").Interior.ColorIndex = 6
Else
Range("B1").Interior.ColorIndex = 3
End If
RunWhen = Now + TimeSerial(0, 0, 1)
Application.OnTime RunWhen, "StartBlink", , True
End Sub
Sub StopBlink()
Range("B1").Interior.ColorIndex = xlAutomatic
Application.OnTime RunWhen, "StartBlink", , False
End Sub


Bu kodları yazdığımda açık olan bütün çalışma sayfasındaki b hücreleri yanıp sönüyor ben istediğim sayfanın istediğim hücresinin yanı sönmesini istiyorum.
Teşekkür ederim.

 

[Korhan Ayhan]

Selamlar,

Hücre adreslerinin en başına sayfa isimlerinide eklerseniz istediğiniz sonuca ulaşırsınız.

Örnek;

[COLOR=red]Sheets("Sayfa1").[/COLOR]Range("B1").Interior.ColorIndex = 3 Then