MS Excel

Ale makrom prichádzate o Undo.
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("B2")) Is Nothing Then
If Range("E2").Value = "Sledovanie" Then
If Range("B2").Value >= Range("C2").Value Then
Range("D2").Value = Now
Range("E2").Value = "STOP"
End If
End If
End If

If Not Intersect(Target, Range("E2")) Is Nothing Then
If Range("E2").Value = "Sledovanie" Then
If Not Range("E2").FormulaHidden Then 'Vlastnosť bunky využitá na uchovanie predchádzajúceho stavu sledovania
Range("D2").ClearContents
Range("E2").FormulaHidden = True
End If
Else
Range("E2").FormulaHidden = False
End If
End If
End Subcitovat

Je možné to upraviť na celé stĺpce? A2, A3, ... a bolo by to možné doplniť o funkciu, že keď sa dosiahne/prekročí cieľ nejakou hodnotou, tak aby sa vedelo akou? že by sa tá hodnota ukladala do stĺpca F. ďakujem :-)citovat

super riešenie, skvelá práca a ďakujem za Váš čas. Trochu som pracoval s prvým riešením a upravil to do mojej tabuľky podľa potreby, zatiaľ len na jeden riadok. Mám však jeden problém, že keď zadávam hodnoty manuálne, tak všetko funguje správne podľa mojich predstáv, ale keď hodnotu v bunke(v tomto našom príklade (stĺpec B) v mojom kóde AI64, ktorý prikladám, získavam cez vzorec a tá hodnota sa mi aktualizuje z DDE servera, tak mi to nefunguje. Viete mi prosím poradiť riešenie?
Uvedomujem si, že keby to bolo veľa tých riadkov, ktoré by sa mali sledovať, že by to zaťažilo a bolo pomalé.
Tak jedna oblasť by bola od riadku 64:78, ďalšia 107:121, ďalšia 150:164, 193:207, 236:250, 279:293, 322:336, 365:379, 408:422, 451:465. Potrebujem, aby to bolo čo najrýchlejšie a najpresnejšie.

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("AI64")) Is Nothing Then
If Range("X64").Value = "YES" Then
If Range("AD64") = "SELL" Then
If Range("AI64").Value >= Range("AK64").Value Then
Range("AU64").Value = Range("AQ64")
Range("AT64").Value = Now
Range("X64").Value = "NO"
Range("Y64").Value = Range("AV64")
End If
If Range("AI64").Value <= Range("AJ64").Value Then
Range("AU64").Value = Range("AQ64")
Range("AT64").Value = Now
Range("X64").Value = "NO"
End If
End If
If Range("AD64") = "BUY" Then
If Range("AI64").Value <= Range("AK64").Value Then
Range("AU64").Value = Range("AQ64")
Range("AT64").Value = Now
Range("X64").Value = "NO"
Range("Y64").Value = Range("AV64")
End If
If Range("AI64").Value >= Range("AJ64").Value Then
Range("AU64").Value = Range("AQ64")
Range("AT64").Value = Now
Range("X64").Value = "NO"
End If
End If
End If
End If

If Not Intersect(Target, Range("X64")) Is Nothing Then
If Range("X64").Value = "YES" Then
If Not Range("X64").FormulaHidden Then 'Vlastnosť bunky využitá na uchovanie predchádzajúceho stavu sledovania
Range("AT64").ClearContents
Range("AU64").ClearContents
Range("Y64").ClearContents
Range("X64").FormulaHidden = True
End If
Else
Range("X64").FormulaHidden = False
End If
End If

End Subcitovat

Kurňa chlape, to nemôžete napísať rovno všetko tak ako to je, a priložiť anonymizovanú prílohu? Veď nič, čo ste písal nesedí s realitou. Bunky sú úplne iné, rozsah nie je ani bunka, ako ste spomínal, ani stĺpec ako ste neskôr tvrdil, ale samostatné oddelené oblasti. Nejde o zmenu ale o výpočet, na čo Excel pozerá úplne odlišne. Takže nejaký Target a Intersect je Vám v procedúre Calculate k ničomu. Rozlišovacie stavy nie sú "Sledované", ale nejaké "SELL", "BUY", NO". Bunky nie sú vedľa seba aby sa dal použiť zápis poľa naraz ...

Ste dnes už druhý, čo ma nakrkol ...

Čo s Vami ?

Prílohu !citovat