Jump to content

PARPADEAR EN CELDA


Recommended Posts

Buenas noches a los miembros de este foro, en esta ocasión recurro a vuestra colaboración en el archivo adjunto en donde quisiera que al momento de digitar el código de trabajador parpadee la CELDA o la palabra "--- NO EXITE TRABAJADOR ---" la cual se ubican en la celda C2, C6 y C280,

Desde ya agradezco su apoyo brindado.

SORT1.xlsm

Link to post
Share on other sites

En tu módulo Pega el siguiente código:

Public Segundos  As Date
Sub Alerta()
On Error Resume Next
Segundos = Now + TimeValue("00:00:01")
Worksheets("INGRESOS").Activate
ultimafila = ActiveSheet.Cells.Find("*", SearchOrder:=xlByRows, SearchDirection:=xlPrevious).Row

For x = 2 To ultimafila
   If Cells(x, 3) = " --- NO EXITE TRABAJADOR --- " Then
      If Cells(x, 3).Font.Color = vbBlack Then
         Cells(x, 3).Font.Color = vbRed
         Cells(x, 3).Font.Bold = True
      Else
         Cells(x, 3).Font.Color = vbBlack
         Cells(x, 3).Font.Bold = False
      End If
   End If
Next x
Application.OnTime Segundos, "Alerta"
End Sub


y en ThisWorkbook

pega esta linea:

Private Sub Workbook_Open()
Application.OnTime Now + TimeValue("00:00:01"), "Alerta"
End Sub

Cualquier duda me comentas..
Saludos

 

 

 

Link to post
Share on other sites

hay una alternativa (usando macros) sin vaciar la pila de niveles para el deshacer/undo/ctrl+Z (que es lo que sucede siempre que por código se modifican propiedades de objetos rango y similares)

mira si te sirve algo de lo comentado (en los extintos grupos nntp) en esta añeja conversación: celda parpadeante

saludos,

hector.

Link to post
Share on other sites

Archived

This topic is now archived and is closed to further replies.

Guest
This topic is now closed to further replies.


×
×
  • Create New...

Important Information

Privacy Policy