No permitir duplicar datos de entrada en textbox
Hola, el problema de hoy es que tengo un userform con un textbox, me interesaría que al darle al commadbutton me compare los datos introducidos con los valores de una columna, si ya existe vuelva al userform y si no pase al userform2. La parte que más me cuesta es la de comparar el valor introducido con el de la columna.
Un saludo
Un saludo
1 Respuesta
Respuesta de Elsa Matilde
1
Esta rutina puede servirte. Si se encuentra el valor del textbox1 en el rango A2:A50 de la hoja activa (ajustar todas estas referencias ) se queda en el textbox1, sino pasa al otro form:
Private Sub CommandButton1_Click()
Set busca = ActiveSheet.Range("A2:A50").Find(TextBox1, LookIn:=xlValues, LookAt:=xlWhole)
If not busca Is Nothing Then
'si no encuentra el valor en el rango se queda en el textbox
TextBox1.SetFocus
Else
UserForm2.Show
End If
End Sub
También podrías colocarla en el evento Exit del textbox, en ese caso reemplazá la línea que dice: Textbox1. Setfocus por Cancel = true
Private Sub CommandButton1_Click()
Set busca = ActiveSheet.Range("A2:A50").Find(TextBox1, LookIn:=xlValues, LookAt:=xlWhole)
If not busca Is Nothing Then
'si no encuentra el valor en el rango se queda en el textbox
TextBox1.SetFocus
Else
UserForm2.Show
End If
End Sub
También podrías colocarla en el evento Exit del textbox, en ese caso reemplazá la línea que dice: Textbox1. Setfocus por Cancel = true
