Jump to content

Evitar Duplicación de Datos, de cualquier columna


Go to solution Solved by Gerson Pineda,

Recommended Posts

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

Link to post
Share on other sites
  • Solution

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 

Link to post
Share on other sites

Create an account or sign in to comment

You need to be a member in order to leave a comment

Create an account

Sign up for a new account in our community. It's easy!

Register a new account

Sign in

Already have an account? Sign in here.

Sign In Now


×
×
  • Create New...

Important Information

Privacy Policy