El testbox diferencia entre las palabras escritas en mayúscula y en minúscula
Hola a todos:
Tengo el siguiente procedimiento:
' Busca si el cliente no fue ya dado de alta
Application.ScreenUpdating = False
' Buscar = Application.ActiveCell
Sheets("Clientes").Select
Range("B6").Select
On Error GoTo seguir
Columns("B").Find(What:=TextBox1, After:=ActiveCell, LookIn:=xlFormulas, LookAt _
:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
False).Activate
If TextBox1 = ActiveCell Then
Mensaje = "CLIENTE EXISTENTE"
Estilo = vbOKOnly
Titulo = " A V I S O "
Respuesta = MsgBox(Mensaje, Estilo, Titulo)
TextBox1 = ""
GoTo continuar
End If
Seguir:
El problema es que si mi TextBox1 está con mayúsculas y lo escribo con minúsculas no lo encuentra, ¿cómo puedo corregir esto?
Gracias y Saludos!
Tengo el siguiente procedimiento:
' Busca si el cliente no fue ya dado de alta
Application.ScreenUpdating = False
' Buscar = Application.ActiveCell
Sheets("Clientes").Select
Range("B6").Select
On Error GoTo seguir
Columns("B").Find(What:=TextBox1, After:=ActiveCell, LookIn:=xlFormulas, LookAt _
:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
False).Activate
If TextBox1 = ActiveCell Then
Mensaje = "CLIENTE EXISTENTE"
Estilo = vbOKOnly
Titulo = " A V I S O "
Respuesta = MsgBox(Mensaje, Estilo, Titulo)
TextBox1 = ""
GoTo continuar
End If
Seguir:
El problema es que si mi TextBox1 está con mayúsculas y lo escribo con minúsculas no lo encuentra, ¿cómo puedo corregir esto?
Gracias y Saludos!
1 Respuesta
Respuesta de asaroma
1
Lo que podrías hacer es validar para que tu caja de texto siempre salga en mayúsculas, de la siguiente manera:
Private Sub TextBox1_Change()
TextBox1 = UCase(TextBox1.Text)
End Sub
Ojala te sirva bytez :)
Private Sub TextBox1_Change()
TextBox1 = UCase(TextBox1.Text)
End Sub
Ojala te sirva bytez :)
Buena observación.
¿Qué pasa cuando mis registros se encuentran indistintamente en mayúsculas y minúsculas? Algunos clientes quieren que así aparezcan sus facturas, ¿cómo hacer en este caso para establecer una búsqueda y que localice un cliente independientemente de que este registrado con mayúsculas o minúsculas?
Gracias
¿Qué pasa cuando mis registros se encuentran indistintamente en mayúsculas y minúsculas? Algunos clientes quieren que así aparezcan sus facturas, ¿cómo hacer en este caso para establecer una búsqueda y que localice un cliente independientemente de que este registrado con mayúsculas o minúsculas?
Gracias
El procedimiento de que busque en mayúsculas o minúsculas no es exactamente lo indicado, lo que deberías saber es si el cliente a buscar contiene más de un espacio en blanco porque tal y como esta tu código no importa si es que esta en minúsculas o mayúsculas tal vez estés ingresando un espacio en blanco demás ya sea en el registro o en el textbox.
