Excel no repetir datos desde formulario
Desde ya agradezco tu tiempo prestado nuevamente, mi problema es el siguiente, ya estoy realizando el formulario en el cual ingreso los datos y la fórmula para tomar fotos desde la webcam, pero ahora debo impedir que se repitan los nº de identificación y el n de dni, para esto encontré una formula pero funciona solo con uno, si la repito me marca error, espero puedas darme una mano, otra vez gracias y saludos
te paso el código con el ejemplo
Private Sub
BtnNUEVO_Click()
Worksheets("base").Select
Range("A3").Select 'me
sitúo al principio
' ESTO ES PARA EVITAR CAMPOS VACÍOS ***********************************
If ICARNET = "" Then
MsgBox "Coloca algún dato", vbOKOnly +
vbInformation, "AVISO"
ICARNET =
""
IINSTITUCION =
""
IDNI =
""
ICARNET.SetFocus
Exit Sub
End If
If ICARNET
= "" Or IDNI = "" Or
IINSTITUCION = "" Then
MsgBox "No dejes ningún campo en blanco", vbOKOnly
+ vbInformation, "AVISO"
ICARNET.SetFocus
Exit Sub
End If
' PARA EVITAR REPETIR DATOS
**********************************
' he aquí el error
Set rango =
Range("A:A").Find(What:=ICARNET, _
LookAt:=xlWhole,
LookIn:=xlValues)
If rango
<> Empty Then
MsgBox "El dato ya existe", vbOKOnly +
vbInformation, "AVISO"
ICARNET.SetFocus
Exit Sub
End If
' ***********************
Set rango =
Range("C:C").Find(What:=IDNI, _
LookAt:=xlWhole,
LookIn:=xlValues)
If rango
<> Empty Then
MsgBox "El dato ya existe", vbOKOnly +
vbInformation, "AVISO"
IDNI.SetFocus
Exit Sub
End If
' VOLVEMOS A LA CARGA DEL JUGADOR
****************************
Do While Not IsEmpty(ActiveCell) 'bajo hasta encontrar una celda vacía
ActiveCell.Offset(1, 0).Select 'bajo una fila
Loop
ActiveCell =
ICARNET
'Grabo datos en la primera fila vacía
ActiveCell.Offset(0, 0) = Val(ICARNET) 'En la celda derecha grabo el siguiente
ActiveCell.Offset(0, 2) = Val(IDNI)
ActiveCell.Offset(0, 5) = IINSTITUCION
ICARNET.SetFocus 'Pongo el foco
en el casillero del carnet
MsgBox ("El registro ha sido almacenado satisfactoriamente.")
ICARNET =
""
IDNI =
""
IINSTITUCION =
""
ICARNET.SetFocus 'Pongo el foco en el casillero del carnet x las dudas
