Bir hücredeki koşul gerçekleşince, başka bir hücrenin yanıp sönmesi

[CAFERCİFTCİ]

Değerli Arkadaşlar,
Ekte sunduğum örnekte de açıkladığım gibi,bir hücredeki koşul sağlandığında (Örnekte A2 nin 31 olması),diğer bir hücrenin yanıp sönmesini istiyorum.(Örnekte B2 deki 333 rakamının yanıp sönmesi)Bu koşul tek bir rakam değilde,örneğin 31-40 gibi bir aralıkta olabilir.Yardımlarınızı bekliyor saygılar sunuyorum.

 

[Murat OSMA]

Sayfanın kod kısmına yapıştırıp deneyin;

Private Sub Worksheet_Change(ByVal Target As Range)
    On Error Resume Next
    If Target.Address(0, 0) <> "A2" Or Target.Value = "" Then Exit Sub
    If Target.Value = 31 Then
        For n = 1 To 100
            Target.Offset(0, 1).Interior.Color = vbRed
            Delay (0.1)
            Target.Offset(0, 1).Interior.ColorIndex = xlNone
            Delay (0.1)
        Next n
    End If
End Sub

Private Sub Delay(rTime As Single)
    Dim oldTime As Variant
    If rTime < 0.01 Or rTime > 300 Then rTime = 1
    oldTime = Timer
    Do: DoEvents
    Loop Until Timer - oldTime > rTime
End Sub

 

[CAFERCİFTCİ]

Sayfanın kod kısmına yapıştırıp deneyin;

Private Sub Worksheet_Change(ByVal Target As Range)
    On Error Resume Next
    If Target.Address(0, 0) <> "A2" Or Target.Value = "" Then Exit Sub
    If Target.Value = 31 Then
        For n = 1 To 100
            Target.Offset(0, 1).Interior.Color = vbRed
            Delay (0.1)
            Target.Offset(0, 1).Interior.ColorIndex = xlNone
            Delay (0.1)
        Next n
    End If
End Sub

Private Sub Delay(rTime As Single)
    Dim oldTime As Variant
    If rTime < 0.01 Or rTime > 300 Then rTime = 1
    oldTime = Timer
    Do: DoEvents
    Loop Until Timer - oldTime > rTime
End Sub

[/QUO
Teşekkür ederim Murat kardeşim.Sorun çözüldü.İyi akşamlar,iyi çalışmalar.