Как избежать повторение одного и того же номера дважды

[CockPuncher]

Добрый день, уважаемые!
У меня такая задачка интересная появилась:
В общем ведется регистрация документации организации в EXCEL, так вот этим документиком пользуется всего 2 человека, это секретарь приемной и тетенька с АХО, иногда(уже почаще))) возникают накладки в виде регистрации одного письма дважды.
Во избежание сей проблемы, захотелось придумать какую нибудь весч, чтобы когда в столбце "Исходящий номер" при повторении этого номера выскакивало окошко, мол "есть такой номер, проверьте документ" ну и т.д.
CTRL+F тетенек юзать не научишь, ибо пенсионерки...
поможите, люди добрые, пжалста))

[SAS888]

В модуль требуемого листа вставьте код:

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Cells.Count > 1 Then Exit Sub
    If Target.Column <> 1 Then Exit Sub
    If Application.CountIf([A:A], Target) > 1 Then MsgBox "Такое значение уже присутствует"
End Sub

После этого, при попытке ввода в столбец "A" уже имеющегося значения, будет выведено соответствующее предупреждение.

[Maxx]

Да уж, с профи не сравниться, но все же:

Надо вставить в модуль:

Sub Search()
yes = 0
For i = 1 To Cells(Cells(Rows.Count, "A").End(xlUp).Row, "A").Offset(-1, 0).Row
 If Cells(i, 2).Value = Cells(Cells(Rows.Count, "A").End(xlUp).Row, "A").Value Then yes = 1
Next i
If yes > 0 Then
MsgBox "Письмо с таким номером уже зарегистрировано!"
Cells(Cells(Rows.Count, "A").End(xlUp).Row, "A").ClearContents
End If
End Sub

Надо вставить в модуль листа, где содержаться номера писем:

Private Sub Worksheet_Change(ByVal Target As Range)
Dim r As Long
r = Target.Row
If r > 1 And r < 10000 And Target.Column = 1 Then Search
End Sub

[viter.alex]

А почему нельзя сделать условное форматирование для столбца «Исходящий номер»? Если значение в ячейке повторится, то сделать ячейку красной. Или сообщение — это принципиально? Бабушки могут перепугаться.
А если уж выводить сообщение, то не в виде MsgBox, а в виде InputBox, с предложением ввести правильный номер

[CockPuncher]

Багодарю за помощь!
Но есть одно НО, на простенькие числа этот код срабатывает, ну то есть целые числа, а вот к примеру 21-03/238 вот на это уже не работает...

[SAS888]

к примеру 21-03/238 вот на это уже не работает...

Не верю. Значит есть какие-то различия в значениях (лидирующий пробел и т.п.).

[The_Prist]

Еще вариант, без макросов. Применено ко всему столбцу А.