10 Dan küçük sayı var ise yanıp sönmesi hakkında

[karahan5]

iyi çalışmalar,
Aşağıda yer alan kod`da (B2 - B88) Hücreleri arasında yer alan sayı kombinasyonunda "10" küçük sayı var ise yanıp sönmesini istiyorum. Fakat bütün hücreler yanıp sönüyor. Nerede hata yaptığım konusunda yardımcı olabilecek arkadaş varmıdır acaba?
Saygılarımla.

Sub uyar()
On Error Resume Next

If Range("B2:B88").Value < 10 Then
Do While (True)
If durum = True Then
Range("B2:B88").Font.Color = vbRed
Range("B2:B88").Font.Bold = True
Range("B2:B88").Interior.ColorIndex = 6
For i = 0 To 10000
DoEvents
Next
durum = False
ElseIf Range("B2:B88").Value < 10 Then
Range("B2:B88").Font.Color = xlNone
For i = 0 To 20000
DoEvents
Next
durum = True
End If
Loop

End If
End Sub

 

[Erdem Akdemir]

Merhaba,

Böyle yanmalı sönmeli şeyler bilgisayara ve excel'e eziyet etmekten fazlası değil.
Boşuna işlemcinizi ve raminizi bitiriyorsunuz.

 

[karahan5]

Sayın Kuvari;
İnanın keyfine istemiyorum.

 

[askm]

http://www.excel.web.tr/f48/olu-an-ko-ula-gore-yanyp-sonen-hucreler-t42689/sayfa3.html bu linki inceleyin.

 

[Zeki Gürsoy]

Deneyin...

Makroyu durdurmak için Ctrl + Break tuşlarını kullanın.

Sub test()
    Dim arr() As String, hcr As String, t As Integer
    
    For i = 2 To 88
        
        If Cells(i, "b") < 10 Then
        
            s = s + 1
            
            ReDim Preserve arr(1 To s)
            
            arr(s) = Cells(i, "b").Address
            
        End If
        
    Next
    
    hcr = Join(arr, ",")
    
    Range(hcr).Font.Color = vbRed
    Range(hcr).Font.Bold = True
    Range(hcr).Interior.ColorIndex = 6
    
    Application.OnTime Now + TimeSerial(0, 0, 1), "test"
    
    
    Do
        DoEvents
        t = t + 1
    Loop While t < 10000

    Range(hcr).Font.Color = vbBlack
    Range(hcr).Font.Bold = False
    Range(hcr).Interior.Color = xlNone
End Sub