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.
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.
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.
Sizlere daha iyi bir deneyim sunabilmek icin sitemizde çerez konumlandırmaktayız, web sitemizi kullanmaya devam ettiğinizde çerezler ile toplanan kişisel verileriniz Veri Politikamız / Bilgilendirmelerimizde belirtilen amaçlar ve yöntemlerle mevzuatına uygun olarak kullanılacaktır.