yanıp sönen hücreler

[ferhat73]

arkadaşlar merhaba
ekteki örnekte yanında acil yazan satırın yanıp sönmesini nasıl sağlarız.(sadece yazı olan kısımlar)

iyi çalışmalar

 

[Korhan Ayhan]

Selamlar,

Aşağıdaki kodu denermisiniz.

Boş bir modüle;

Public X As Boolean
 
Sub Auto_Open()
    X = True
    Call Renklendir
End Sub
 
Sub Renklendir()
    Application.Cursor = xlDefault
    DoEvents
    If X = True Then
    For Each Hücre In Range("I5:I" & Range("D65536").End(3).Row)
    If UCase(Replace(Replace(Hücre, "i", "İ"), "ı", "I")) = "ACİL" Then
     With Range(Cells(Hücre.Row, "D"), Cells(Hücre.Row, "G"))
    .Interior.ColorIndex = 3
    .Font.ColorIndex = 2
    .Font.Bold = True
    End With
    Else
     With Range(Cells(Hücre.Row, "D"), Cells(Hücre.Row, "G"))
    .Interior.ColorIndex = xlNone
    .Font.ColorIndex = 0
    .Font.Bold = False
    End With
    End If
    Next
    Application.OnTime Now + TimeValue("00:00:01"), "Devam"
    End If
End Sub
 
Sub Devam()
    Application.Cursor = xlDefault
    DoEvents
    For Each Hücre In Range("I5:I" & Range("D65536").End(3).Row)
    If UCase(Replace(Replace(Hücre, "i", "İ"), "ı", "I")) = "ACİL" Then
    With Range(Cells(Hücre.Row, "D"), Cells(Hücre.Row, "G"))
    .Interior.ColorIndex = xlNone
    .Font.ColorIndex = 0
    .Font.Bold = False
    End With
    End If
    Next
    Application.OnTime Now + TimeValue("00:00:01"), "Renklendir"
End Sub
 
Sub Dur()
    X = False
End Sub

ThisWorkBook bölümüne;

Private Sub Workbook_BeforeClose(Cancel As Boolean)
    X = False
End Sub

 

[ferhat73]

korhan bey teşekkürler
kodlarda problem yok oldu.



iyi çalışmalar