buenas tardes. si alguien me pudiera ayudar con este tema.

tengo un rango de celdas condicionadas y si cumplen esa condicion cambian a rojo, ahora quiero que esas celdas al cambiar a rojo parpadeen durante 1 minuto para avisar. He puesto este codigo vba pero solo me parpadean las celdas vacias y no las que cumplen la condicion y estan coloreadas. El codigo que he puesto es este

Dim NextFlash As Double

Dim FlashColor As Boolean

Sub StartFlashing()

    NextFlash = Now + TimeValue("00:00:01")

    FlashColor = Not FlashColor Seguir leyendo... sobre celdas parapadeantes

Saludos Exceleros.

Sigo trabajando codigos y quemando neurones.

La consulta es sencilla, Puedo utilizar bucles DO Anidados y cual sería la posible estructura? Estoy trabajando uno pero el sistema me indica que tengo un Loop sin DO y cuando quito uno de los Loop, entonces me dice que tengo un DO sin Loop. Esto me pareciera que nos es posible aunque logicamente si, al menos para mi. Seguir leyendo... sobre Bucles DO WHILE Anidados

le pregunte a chat gpt como sumar ciertos valores rellenados con 3 colores diferentes y me los sumara en otra celda rellenada con el color rojo, me dio esta macro y me da valor de cero, le pregunte de 10 diferentes maneras y nunca me resolvio, siempre me dio cero, aqui envio el archivo y la macro dentro y aqui en texto.

Sub SumarColores()

    Dim ws As Worksheet

    Dim rng As Range

    Dim cell As Range

    Dim suma As Double

    ' Establecer la hoja de trabajo

    Set ws = ThisWorkbook.Sheets("Hoja1")

  Seguir leyendo... sobre macro en chatGpt no funciona