d2enri

Creo que si me mandas el archivo iremos más directos [email protected]

Veamos si te vale esto Cambia la macro que tienes por esta Sub incrementa() Range("B5").Value = Range("B5").Value + Range("B6").Value Application.OnTime EarliestTime:=Now + TimeValue("00:00:01"), _ Procedure:="incrementa", Schedule:=True End Sub Al...

Dime en que columna tienes las fechas y te paso un código que te buscara las fechas y te devolverá el resto de datos Si lo prefieres mandame tu archivo [email protected]

Esta fórmula te devolverá 1 si esta dentro del rango y 0 si no lo esta =SUMAPRODUCTO((A1>=B1)*(A1<=C1)) Si mañana puedo te paso el código para hacer lo que pides pero comfirmame que quieres pasar ¿solo el valor de a1 con el color crespondiente o...

Si me mandas el rachivo y una explicación de donde quieres los datos te la adaptare [email protected]

Adaptando los rangos de este código hace lo que pides Private Sub Worksheet_Change(ByVal Target As Range) ' casilla que deves seleccionar para ejecutar la macro datos = "F13" If Not Application.Intersect(Target, Range(datos)) Is Nothing Then...

Eso es fácil con sumaproducto =SUMAPRODUCTO((B2:B34="jose")*(A2:A34)) Si no te aclaras mandame un archivo de como lo quieres distribuir y te la adapto [email protected]

No soy un gran experto en macros y seguramente habrá alguna manera más fácil pero yo te explico como realizarlo 'esto en un modulo Public InicialTime As Date Public EarlTime As Date Sub IniciaCronometro() InicialTime = Now Cronometro End Sub Sub...

Cambia la fórmula por esta =SI(A1>$D$5;"Aprobo";"Reprobo") Al poner el signo $ evitas que la celda cambie al correr o copiar la fórmula

Si me pasas el archivo te lo modifico [email protected]