¿Que código puedo utilizar para evitar que se repita un registro?
Para Elsa: Buenas noches. El código anterior fue perfecto par lo que estoy haciendo. En este mismo sentido y utilizando el código anterior. Como puedo evitar que al introducir un Id este no se repita. Adicional como hago para al escribir un dato en el textbox de turno este cambie a color azul y luego al darle enter pase al siguiente, dejando el anterior en blanco y el nuevo en azul. Perdón por la redacción.
1 respuesta
Según tu muestra, el código se encuentra en a col B y el control se llama TextB_Codigo. Entonces en el botón Guardar primero se evaluarán contenidos:
Private Sub Btn_Reg_Click() 'botón guardar
'control de contenidos
Set busco = Sheets(1).Range("B:B").Find(TextB_Codigo.Text, LookIn:=xlValues, lookat:=xlWhole)
If Not busco Is Nothing Then 'significa que lo encontró
MsgBox "Este código ya fue registrado. Verifica ...."
'sale sin guardar
Exit Sub
End If
'otros controles (va en libro)
'pase de datos ubicando la fila de destinoPor el tema del color por favor dejame una nueva consulta con el título que trate justamente del tema colores (sino no se encontrará ese tema dentro de este título).
PD) Luego te enviaré tu libro con todos los códigos.
