yanıp sönen hücreler

[ferhat73]

arkadaşlar
ekteki örnekte combo Box içinde 3 farklı alternatif seçim var.
herbir alternatif seçim için ayrı ayrı hücrelerin yanıp sönmesini nasıl sağlayabiliriz

örneğin
taşınılan daireler seçildiğinde beliren 10 adet hücrenin yanıp sönmesi (T)
teslim edilmeyen daireler (B)seçildiğinde 23 adet hücrenin yanıp sönmesi

yardımlarınızı rica ediyorum


iyi akşamlar

 

[sinbade]

Aşağıdaki kodlar var elimde...
Kendi kodlarınıza göre uyarlayabilirseniz belki işinizi görür...

Sub Sinyalver()
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, "Sinyalver", , True
End Sub

Sub Sinyalkes()
Range("B1").Interior.ColorIndex = xlAutomatic
Application.OnTime RunWhen, "Sinyalver", , False
End Sub

Kolay gelsin

 

[ferhat73]

teşekkürler arkadaşım
gönderdiğiniz kodlarda değişiklik yapıp kullanacak kadar konuya hakim değilim.

iyi akşamlar