Hacer BLink en una celda

yeye

New Member
Joined
Jul 18, 2002
Messages
32
COmo puedo hacer que los datos en determinanda celda, hagan BLINK, o como se conoce "que resalte en Color"

GRacias
 

Excel Facts

Select a hidden cell
Somehide hide payroll data in column G? Press F5. Type G1. Enter. Look in formula bar while you arrow down through G.
Esta es una de otras posibles soluciones, este codigo va dentro de la hoja donde te interese hacer parpadear una celda, en este caso la celda A1, claro que se puede modificar para que:

Parpadeen mas de una celda
Al parpadear cambien de color (la fuente o el fondo)

Es solo la idea, el ultimo procedimiento, es por si alguna causa la macro "se detiene" o "la detienen antes" puedan restablecer los eventos de la aplicacion

<pre>
Option Explicit

Private Sub Worksheet_Change(ByVal Target As Range)
Dim Pausa As Single
Dim Duracion As Single
Dim Inicio As Single
Dim Fin As Single
Dim Valor As Single

Duracion = 3 'segundos
Pausa = 0.5 'segundos

'Puedes probar con, mas tiempo y mas rapido
'Duracion = 5 'segundos
'Pausa = 0.3 'segundos

If Target.Address(False, False) = "A1" Then
If Target.Value > 0 And Target.Value < 11 Then
Valor = Target.Value
Fin = Timer + Duracion
Application.EnableEvents = False
Do
Inicio = Timer
Do While Timer < Inicio + Pausa
DoEvents
Loop
If Target.Value Then
Target.Value = ""
Else
Target.Value = Valor
End If
Loop While Timer < Fin
Target.Value = Valor
Application.EnableEvents = True
End If
End If
End Sub

Private Sub Restablecer()
Application.EnableEvents = True
End Sub
</pre>
 
Upvote 0

Forum statistics

Threads
1,217,369
Messages
6,136,150
Members
449,994
Latest member
Rocky Mountain High

We've detected that you are using an adblocker.

We have a great community of people providing Excel help here, but the hosting costs are enormous. You can help keep this site running by allowing ads on MrExcel.com.
Allow Ads at MrExcel

Which adblocker are you using?

Disable AdBlock

Follow these easy steps to disable AdBlock

1)Click on the icon in the browser’s toolbar.
2)Click on the icon in the browser’s toolbar.
2)Click on the "Pause on this site" option.
Go back

Disable AdBlock Plus

Follow these easy steps to disable AdBlock Plus

1)Click on the icon in the browser’s toolbar.
2)Click on the toggle to disable it for "mrexcel.com".
Go back

Disable uBlock Origin

Follow these easy steps to disable uBlock Origin

1)Click on the icon in the browser’s toolbar.
2)Click on the "Power" button.
3)Click on the "Refresh" button.
Go back

Disable uBlock

Follow these easy steps to disable uBlock

1)Click on the icon in the browser’s toolbar.
2)Click on the "Power" button.
3)Click on the "Refresh" button.
Go back
Back
Top