celdas parapadeantes

1 post / 0 nuevos
pepa
Imagen de pepa
Offline
última acción: Hace 1 semana 6 días
alta: 22/12/2016 - 12:19
Puntos: 320
celdas parapadeantes

buenas tardes. si alguien me pudiera ayudar con este tema.

tengo un rango de celdas condicionadas y si cumplen esa condicion cambian a rojo, ahora quiero que esas celdas al cambiar a rojo parpadeen durante 1 minuto para avisar. He puesto este codigo vba pero solo me parpadean las celdas vacias y no las que cumplen la condicion y estan coloreadas. El codigo que he puesto es este

Dim NextFlash As Double

Dim FlashColor As Boolean

 

Sub StartFlashing()

    NextFlash = Now + TimeValue("00:00:01")

    FlashColor = Not FlashColor

    ThisWorkbook.Worksheets("Hoja1").Range("J6:J100").Interior.Color = IIf(FlashColor, RGB(255, 255, 255), RGB(255, 0, 0))

    Application.OnTime NextFlash, "StartFlashing"

End Sub

 

Sub StopFlashing()

    On Error Resume Next

    Application.OnTime NextFlash, "StartFlashing", , False

    ThisWorkbook.Worksheets("Hoja1").Range("J6:J100").Interior.Color = RGB(255, 255, 255)

End Sub

y en thisworkbook este
 
Private Sub Workbook_Open()
    StartFlashing
End Sub
 
Private Sub Workbook_BeforeClose(Cancel As Boolean)
    StopFlashing
End Sub