Jump to content

Archived

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

SALAVERRINO

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
Guest
This topic is now closed to further replies.

INFORMACIÓN BÁSICA SOBRE PROTECCIÓN DE DATOS

Responsable: Sergio Andrés Celemín

Finalidad: Moderar y responder comentarios de usuarios. Recuerda que la información que facilites es pública, y los datos que incluyas los leerá cualquier visitante de esta web, así como el avatar que poseas.

Legitimación: Consentimiento del interesado.

Destinatarios: Hetzner Online GmbH.

Derechos: Puedes ejercitar en cualquier momento tus derechos de acceso,
rectificación, supresión, oposición y demás derechos legalmente establecidos a
través del email sergio@ayudaexcel.com.

Información adicional: Encontrarás más información en la política de privacidad.




  • Posts

    • Hola compañeros del foro,   Tengo el siguiente problema de novato con el presente array que he creado: Este es el código: Option Explicit Option Base 1 Sub adminTemp() Dim admin As String admin = Array("...", "...", "...", "...", "Administrador", "Conectado", "...", "...") Dim fila As Long fila = Sheets("CONEXIONES").Range("A1048576").End(xlUp).Row Dim columna As Byte For columna = 1 To UBound(admin) If Sheets("CONEXIONES").Cells(fila, columna).Value = admin(columna) Then Sheets("CONEXIONES").Rows(fila).Delete Shift:=xlUp Next columna End Sub En otras palabras, me dice que el problema está en la declaración de la variable "admin", pues la declaro como una cadena de caracteres, en cambio cuando la misma variable la declaro como un variant, entonces la macro si funciona correctamente. Pero no quiero declarar el array como un tipo variant cuando sólo contiene valores de tipo string, y ocupar espacio innecesario de memoria.   Sería de ayuda que cualquier orientación sobre este problema...
    • Estoy de acuerdo con @Sergio, es díficil encontrar documentación oficial sobre el código XML de la ribbon.
    • Muchísimas gracias por la corrección, @JSDJSD. Y muchas gracias también por compartir ese vídeo. Efectivamente, me percaté de ese error cuando me pasó el código @Antoni.   Te felicito por tu corrección. Con gente como vosotros, da gusto compartir conocimientos a través de este foro. Mil gracias de nuevo.   Saludos.
    • Ya lo hice pero con gusto lo hago nuevamente, y soy afortunado  Gracias   
    • Buenas noches Ya cheque la modificación y es exactamente lo que no sabía como hacer, mis respetos y mi agradecimiento,  Un saludo desde Irapuato, Gto. México   Gracias 
  • Recently Browsing

    No registered users viewing this page.

×
×
  • Create New...

Important Information

Privacy Policy