Celda intermitente dependiendo de su contenido
En la celda A172 tengo una fórmula buscarv que me arroja dos posibles resultados
SI O NO
Lo que necesito es que si el resultado es no La celdas se vuelva intermitente entre dos colores para que me resalte de manera clara el resultado
2 Respuestas
Respuesta de Carlos Arrocha
1
Eso requiere de otra macro para detenerlo después, porque si no consume mucho recurso. ¿No te sería mejor hacerlo cambiando el color interior? Por ejemplo: Fondo rojo para NO y verde para SI
Respuesta de Daniel Espino
1
Pero eso generea un color solido, yo necesito que con la palabra NO sea intermitente o parpadeante
No entiendo para que lo quieres, es muy latoso, pero bueno usa algo así:
Private Sub Worksheet_Change(ByVal Target As Range)
Dim tiempo As Variant
If Not Application.Intersect(Target, Range("A1")) Is Nothing Then
If Target.Count > 1 Then Exit Sub
If Range("A1") = "SI" Then
Range("A1").Interior.Color = 10092441
ElseIf Range("A1") = "NO" Then
For x = 1 To 10
If WorksheetFunction.IsEven(x) Then
Range("A1").Interior.Color = 466685
Else
Range("A1").Interior.ColorIndex = xlNone
End If
Application.Wait (Now + TimeValue("0:00:01"))
Next x
End If
End If
End Subdura 10 segundos pero puedes usar menos.
Corrección, le quito una línea que estaba probando:
Private Sub Worksheet_Change(ByVal Target As Range)
Dim tiempo As Variant
If Not Range("A2") Is Nothing Then
If Target.Count > 1 Then Exit Sub
If Range("A2") = "SI" Then
Range("A2").Interior.Color = 10092441
ElseIf Range("A2") = "NO" Then
For x = 1 To 10
If WorksheetFunction.IsEven(x) Then
Range("A2").Interior.Color = 466685
Else
Range("A2").Interior.ColorIndex = xlNone
End If
Application.Wait (Now + TimeValue("0:00:01"))
Next x
End If
End If
End Sub