Hücrenin otomatik yanıp sönmesi

[KONYA42]

Sayın Zeki Gürsoy'un daha önce cevapladığı bir konu ama cevabını bulamadım.Örneğin hücrenin istemediğimiz değeri alması durumunda kırmızı beyaz olarak yanıp sönmesi nasıl olur?Tabi aynı zamanda excel de diğer işlemlere devam edebileceğiz.Yardımcı olurmusunuz?

 

[1Al2Ver]

Sayın Zeki Gürsoy'un daha önce cevapladığı bir konu ama cevabını bulamadım.Örneğin hücrenin istemediğimiz değeri alması durumunda kırmızı beyaz olarak yanıp sönmesi nasıl olur?Tabi aynı zamanda excel de diğer işlemlere devam edebileceğiz.Yardımcı olurmusunuz?

Merhabalar,

Bu işinizi görebilir belki,

Sub YANIPSON()
On Error GoTo hata
Dim durum As Boolean, i As Single
Do While (True)
If durum = True Then
Range("H4,H18").Interior.ColorIndex = 3
For i = 0 To 5000
DoEvents
Next
durum = False
Else
Range("H4,H18").Interior.ColorIndex = xlNone
For i = 0 To 5000
DoEvents
Next
durum = True
End If
Loop
hata:
End Sub

H4 ve H18 hücrelerini kırmızı yanıp söndürür, (bir buton aracılığı ile)

 

[Zeki Gürsoy]

Burası olabilir mi?

Oluşan Koşula Göre Yanıp Sönen Hücreler

 

[1Al2Ver]

Burası olabilir mi?

Oluşan Koşula Göre Yanıp Sönen Hücreler

Sayın Zeki Gürsoy,

Sağolun, birden fazla cevabını aldığım bir soruydu, hatırlayamamıştım, ben de arkadaşıma bir kod göndermiştim, ama doğru cevapmıydı bilememiştim, bence yanlış cevapmış, sayenizde sorununa çözüm buldu sanıyorum.

Teşekkür ederim.

 

[KONYA42]

Sayın Zeki Gürsoy,bu hücreler otomatik yanıp sönemez mi?Ben sayfanın kod bölümüne Sub Workbook_SelectionChange(ByVal Target As Range) başlığı altında düğmedeki kodu kopyaladım ama çalışmadı.