Evitar Duplicación de Datos, de cualquier columna

[ramonvar]

Buen día Señores del Foro

Estoy utilizando la formula =CONTAR.SI($D:$D;D716)=1, de tal manera a evitar duplicidad de Datos, me funciona cuando quiero ingresar manualmente, pero tengo un CommandButton1 (GRABAR), en la misma hoja, que es para grabar nuevos registros, y la formula no controla en ese caso la duplicidad de Datos, me gustaría se a través de macro o formula que sea controlada la duplicidad.. mismo que se quiera introducir Datos manualmente o a través del Botón Grabar, particularmente los Datos de la columna "D" .. que no deben repetirse..

Adjunto Planilla

Evitar Duplicacion.xlsm

[Gerson Pineda]

Hola

Prueba así:

Private Sub CommandButton1_Click()

uf = Range("D" & Rows.Count).End(xlUp).Row + 1
reg = Application.CountIf(Range("D:D"), Range("I3"))

If reg Then
    VBA.MsgBox "El registro " & Range("I3") & _
    " ya existe", vbCritical, "AyudaExcel"
Else
    Range("I3:L3").Copy Range("D" & uf)
    Range("D" & uf).Select
End If

End Sub

 

Saludos 

[ramonvar]

Sr. Gerson Pineda

Una ves mas gracias por su tiempo y paciencia, esta perfecto

Damos por concluido este tema

Saludos