Color intermitente en celda

Color intermitente en celda

Mediante una macro podemos poner una o varias celdas de excel con un color intermitente a modo de alerta.

Para ello solo es necesario ejecutar esta macro y nos pondrá de forma intermitente la celda A1:

Sub alerta()
If Range("a1").Interior.ColorIndex = 3 Then
Range("a1").Interior.ColorIndex = 4
Else
Range("a1").Interior.ColorIndex = 3
End If
Application.OnTime Now + TimeValue("00:00:01"), "alerta"
End Sub

Iván Sábado 23 Marzo 2013 - 10:44 pm | | · Microsoft Excel
Etiquetas utilizadas: , , , , , , , , , , , , , , , ,

dos comentarios

Felix Lopez
Felix Lopez, - 03-07-’15 19:33
GrupoNexcom
GrupoNexcom, (URL) - 08-07-’15 11:05
Error opening file

The file /homepages/41/d457140841/htdocs/Webs/Gruponexcom/blog/db/ser_spamkiller.php could not be opened for writing!

Try logging in with your ftp-client and check to see if it is chmodded to be readable by the webuser (ie: 777 or 766, depending on the setup of your server).

Current path: /homepages/41/d457140841/htdocs/Webs/Gruponexcom/blog.