Pytanie : Kontuar i Timestamp wewnątrz Przodować

I patrzeć dla set the VBA programowanie w the dołączać spreadsheet dwa więcej dane set. The aktualny spreadsheet praca podążać:

This spreadsheet porównywać the liczba w kolumna A (liczba 1) the liczba w szpaltowy B (Comp 1) che być statyczny wartość i liczyć the liczba czas liczba (1) być większy niż lub (1) Comp 1.  Wtedy, gdy liczba (1) być większy niż comp (1), the spreadsheet automatycznie timestamps kolumna U.  Szczegółowy opis móc znajdować w mój ostatni poczta tytułować "Timestamp/Kontuar "

I chcieć ten ten sam funkcjonalność the podkreślać kolumna (Y przez AJ).  Furthermore, I tylko chcieć kolumna AI timestamp gdy Liczba 5 być większy niż comp 5 i I chcieć timestamp szpaltowy AJ gdy Liczba 6 być 6 Comp 6.  Zadawalać spojrzenie przy the prąd VBA kod i mój poprzedzający poczta jak the aktualny program pracować.  Zadawalać pozwalać jeżeli tam  być jakaś pytanie.  I rozumieć że/>Zach być trudny pytanie i I być pewny "A"/>Zach kto być/>Zach dla the challenge.

Thanks,
Zach
Attachments:
Counter.xlsm (58 KB) (Kartoteka Typ Szczegół)
Main File

Odpowiedź : Kontuar i Timestamp wewnątrz Przodować

I brakować the kawałek z the czas znaczek z skrzynka 5 tylko gdy większy niż i z skrzynka 6 tylko jeżeli 6. Ponieważ ty zawsze porównywać jeden kolumna z jeden, ono wydawać się konieczny przez wszystkie komórka w oba kolumna. Ten cecha pozwolić WorksheetChange prosty.

Rewidować kod pokazywać pokazywać. Ten kod także załatwiać niektóre pluskwa w CheckMyData.

Ćwiek
(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:

Okręt podwodny CheckMyData ()
Ciemnawy CellEntry Jako Pasmo, rg Pasmo
Ciemnawy addr Jako Wariant
Z Sheet1
    Dla Ad2 addr W Szyk ("A2", "F2", "K2", "P2", "Y2", "AD2")
        Ustalony rg =. Pasmo (CStr (addr))
        Ustalony rg = Pasmo (rg. Komórka (. Rows.Count, rg. Kolumna). Końcówka (xlUp))
        Dla Rg CellEntry W rg. Komórka
            WorksheetChange CellEntry
        Następnie
    Następnie
Końcówka Z
Application.OnTime EarliestTime: =Now + TimeValue ("00: 00: 10"), Procedura: = " CheckMyData"
Końcówka Okręt podwodny

Okręt podwodny WorksheetChange (ByVal Cel Pasmo)
Ciemnawy rngValue2 Pasmo, rngGreaterThan Jako Pasmo, rngLessThan Pasmo, rngLastAction Jako Pasmo, rngTimeStamp Pasmo
Wybrany Skrzynka Target.Column
Skrzynka Być <> rngValue2.Value Wtedy
        Jeżeli rngLastAction <> ">" Wtedy
            rngGreaterThan = rngGreaterThan + (1)
            Jeżeli Target.Column <> 30 Wtedy rngTimeStamp.Value = Teraz ()
            rngLastAction = ">"
        Kończyć Jeżeli
    ElseIf Target.Value < rngValue2=""> "<> 25 Wtedy rngTimeStamp.Value = Teraz ()
            rngLastAction = "<> >= lub  < to="">
Inne rozwiązania  
 
programming4us programming4us