Detalhes de vba duplicados validacao dados impede digitacao

Saberexcel - o site das macros
Essa macro do Aplicativo Microsoft Excel VBA, contém uma macro que impede o usuário de digitar dados duplicados, repetidos.
Observe que a interdição é partir da Validação de Dados do próprio Aplicativo Microsoft Excel VBA, através do Visual Basic Application

Sub duplicados_validacao_dados()
''With Range("G1").Validation
With Range("A1:H10").Validation
.Delete
.Add Type:=xlValidateCustom, AlertStyle:=xlValidAlertStop, Operator:= _
xlBetween, Formula1:="''''=CONT.SE($A$1:$H$10;A1)=1"
.IgnoreBlank = True
.InCellDropdown = True
.InputTitle = ""
.ErrorTitle = "Numero Duplicado!"
.InputMessage = ""
.ErrorMessage = "Este número ja foi digitado!"
.ShowInput = True
.ShowError = True
End With
Range("I1").Select
End Sub

Aprenda Aplicativo Microsoft Excel VBA -Saberexcel