Macro evitar duplicado de datos
Estimados expertos buenos días:
Tengo el siguiente caso en donde utilizo un Userform1 que contiene entre textbox y combobox. En el Textbox1 ingreso el número de identificación de la empresa denominado RUC compuesta por 11 dígitos, deseo que al momento de terminar de digitar los 11 digitos me valide en la hoja Base y me lance una alerta que me diga que el cliente ya existe en la base y muestre: el ruc de la empresa, el nombre de la empresa, el producto que se esta trabajando y el usuario que lo esta trabajando. Para esto los datos están ubicado en la hoja Base y con las siguientes cabeceras:
C1 Ruc
D1 Nombre de empresa
H1 Producto
X1 Usuario
1 respuesta
H o l a:
Te paso la macro
Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
Set h1 = Sheets("Base")
Set b = h1.Columns("C").Find(Textbox1, lookat:=xlWhole)
If Not b Is Nothing Then
ncell = b.Row
MsgBox "Ya existe en la Base " & vbCr & _
"RUC: " & h1.Cells(b.Row, "C") & vbCr _
& "NOMBRE: " & h1.Cells(b.Row, "D") & vbCr _
& "PRODUCTO: " & h1.Cells(b.Row, "E") & vbCr _
& "USUARIO: " & h1.Cells(b.Row, "X")
Exit Sub
End If
End SubMe comentas y valora para finalizar
no no valida te comento me permite ingresar el numero 2 que es con el que empieza el ruc y sale ya registrado lo que deseo es que me permita ingresar los 11 dígitos y de ahí recién valide.
Tal vez lo pusiste en el evento change, debe estar en el evento Exit como te puse en ejemplo, al presionar enter te valida los datos.
