Явно проверката не я правиш като хората. Нещо от типа на:
Private Sub Worksheet_Change(ByVal Target As Range)
Dim TR As Long, TC As Long
TR = Target.Row
TC = Target.Column
If (TR = 1) And (TC = 1) Then 'A1
If Cells(TR, TC).Value = "Уведомен" Then
Cells(TR, TC + 1).Value = Date 'B1
End If
End If
End Sub
Това е на офис пакет 2003 и при мене не зацикля, независимо колко кутийки имам попълнени.
Та ако беше казала това "Уведомен" кой и кога може да го промени във файла...Така ти идва от някой и предмониторното трябва да напише само дали е уведомено? А ако има вече "Уведомен" в А1 и предмониторното го промени на "майната ти" например и после пак на "Уведомен" - тогава всичката врътка става излишна...
Явно по-подробна информация ще дадеш на десетия пост...Все пак - ти имаш зор, на аз...
<P ID="edit"><FONT class="small"><EM>Редактирано от BatiGogo на 02.07.15 07:35.</EM></FONT></P>Редактирано от BatiGogo на 02.07.15 08:13.