сообщение о повторах vba

[Olya1985]

Подскажите, пожалуйста, как написать макрос для excel, который выдавал бы сообщение “повтор”, если в ячейку в одном столбце (может быть любое количество строк) вводится повторное число.

[kuklp]

В модуль листа:

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim c As Range
    Application.EnableEvents = False
    For Each c In Me.Columns(Target.Column).Cells
        If c.Address <> Target.Address And c.Value = Target.Value Then
        MsgBox "Повтор"
        Exit For
'        Application.Undo
        End If
    Next
    Application.EnableEvents = True
End Sub

[Olya1985]

А в этом скрипте нужно вставить номер колонки вместо какого-то значения? например, мне нужно чтобы повторы искались в колонке A.

[kuklp]

Тогда еще лучше, пошустрей будет:

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim c As Range
    If Intersect(Target, Me.Columns(1)) Is Nothing Then Exit Sub
    Application.EnableEvents = False
    For Each c In Me.UsedRange.Columns(1).Cells
        If c.Address <> Target.Address And c.Value = Target.Value Then
        MsgBox "Повтор"
        Exit For
'        Application.Undo
        End If
    Next
    Application.EnableEvents = True
End Sub

[Olya1985]

а как он работает? у меня что то не получается...

[kuklp]

Оля, а куда Вы его вставляете? Нужно в модуль листа: ПКМ по ярлычку листа-Исходный текст. И еще. Макросы у вас включены? Ладно, сейчас дам файл.

[Olya1985]

я вставляю в модуль макроса excel

[kuklp]

Оля, Вы мой файл смотрели? Еще раз повторяю(в 3-й) нужно в модуль ЛИСТА. Не в общий модуль.

[Olya1985]

все, разобралась ) спасибо! а вы профессионально занимаетесь программированием? я вот только хочу начать изучать vba