Cuestión : Contador y reloj fechador en Excel

Estoy buscando a alguien para ampliar el VBA que programa en la hoja de balance atada para incluir dos más conjuntos de datos. La hoja de balance actual funciona como sigue: la hoja de balance del

This compara el número en la columna A (número 1) al número en la columna B (los comp 1) que es un valor estático y cuenta el número de épocas número 1 son mayores que o menos que comp 1.  Entonces, cuando el número 1 es mayor que comp 1, de la hoja de balance la columna U. de los relojes fechadores automáticamente.  Una descripción más detallada se puede encontrar en mi poste pasado titulado “reloj fechador/" el

I quiere aplicar esta misma funcionalidad a las columnas destacadas (Y con AJ).  Además, quiero solamente la columna AI al reloj fechador en que el número 5 es mayor que los comp 5 y yo quieren a la columna del reloj fechador AJ cuando el número 6 es menos que comp 6.  Mirar por favor el código actual de VBA y mi poste anterior para ver cómo el programa actual trabaja.  Dejarme por favor saber si hay algunas preguntas.  Entiendo que esto es una pregunta difícil y estaría seguro de asignar una “A” a cualquier persona que está para arriba para el challenge.

Thanks,
Zach class= " lastRow del
>Attachments del " nombre " del class= del class= " valor " del
del >
de la " descripción " del class= del
el class= de
del >
class= del

Respuesta : Contador y reloj fechador en Excel

Falté el pedacito con la puesta al día del grupo fecha/hora con el caso 5 solamente cuando es mayor que y con el caso 6 solamente si menos que. Puesto que usted está comparando siempre una columna con otra, no me parecía necesario colocar a través de todas las células en ambas columnas. La eliminación de esa característica permite que WorksheetChange llegue a ser mucho más simple.

Código revisado demostrado abajo. Este código también fijó algunos insectos en CheckMyData.

Brad
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:
42:
43:
44:
45:
46:
47:
48:
49:
50:
51:
52:
53:
54:
55:
56:
57:

CheckMyData secundario ()
CellEntry dévil como gama, rg como gama
Addr dévil como variante
Con Sheet1
    Para cada addr en el arsenal (“A2”, “F2”, “K2”, “P2”, “Y2”, “AD2”)
        Fijar el rg =. Gama (CStr (addr))
        Fijar el rg = la gama (rg. Células (. Rows.Count, rg. Columna). Extremo (xlUp))
        Para cada CellEntry en rg. Células
            WorksheetChange CellEntry
        Después
    Después
Extremo con
Application.OnTime EarliestTime: =Now + TimeValue (“00: 00: 10”), procedimiento: = " CheckMyData”
Submarino del extremo

WorksheetChange secundario (blanco de ByVal como gama)
rngValue2 dévil como gama, rngGreaterThan como gama, rngLessThan como gama, rngLastAction como gama, rngTimeStamp como gama
Seleccionar el caso Target.Column
El caso entonces <> es rngValue2.Value
        Si rngLastAction <> “>” entonces
            + 1 rngGreaterThan = rngGreaterThan
            Si Target.Column <> 30 entonces rngTimeStamp.Value = ahora ()
            rngLastAction = “>”
        Terminar si
    ElseIf Target.Value < rngValue2=""> “<> 25 entonces rngTimeStamp.Value = ahora ()
            rngLastAction = “<> al >= o  < to="">
Otras soluciones  
 
programming4us programming4us