Anónimo
Validar ciertos caracteres en un textbox
Un gran saludo mi pregunta es la siguiente trabajo con un formulario como puedo hacer para leer ciertos caracteres dentro de una misma cadena de caracteres de tipo letra y numéricos es decir si yo tengo en textbox1 01FOR12120 que en textbox2 me imprima la palabra "ACEPTADO" por tener dentro de ese conjunto la palabra FOR de igual manera si yo tengo 01DES21540 que me imprima "RECHAZADO" por tener la palabra DES en ese conjunto espero me haya entendido con mi pregunta gracias por el tiempo
1 respuesta
Puedes usar el operador Like. Se utiliza para comparar dos cadenas de caracteres.
Ejemplo del operador Like
En estos ejemplos se utiliza el operador Like para ejecutar
Una exclusión lógica sobre dos expresiones.
Dim MiPrueba
MiPrueba = "aBBBa" Like "a*a" ' Devuelve True.
MiPrueba = "F" Like "[A-Z]" ' Devuelve True.
MiPrueba = "F" Like "[!A-Z]" ' Devuelve False.
MiPrueba = "a2a" Like "a#a" ' Devuelve True.
MiPrueba = "aM5b" Like "a[L-P]#[!c-e]" ' Devuelve True.
MiPrueba = "BAT123khg" Like "B?T*" ' Devuelve True.
MiPrueba = "CAT123khg" Like "B?T*" ' Devuelve False.
Para nuestro caso seria MiPrueba=Like "*FOR*" y MiPrueba=Like "*DES*"
A partir de esto, puedes usar este código en el evento TextBox1_BeforeUpdate
Private Sub TextBox1_BeforeUpdate(ByVal Cancel As MSForms.ReturnBoolean) If TextBox1.Value Like "*FOR*" Then TextBox2.Value = "ACEPTADO" End If If TextBox1.Value Like "*DES*" Then TextBox2.Value = "RECHAZADO" End If End Sub
Si tienes alguna duda, no dudes en preguntar, No se te olvide dar por finalizada la pregunta. Hasta la próxima!
No se te olvide dar por finalizada la pregunta, recuerda que nuestra única recompensa como expertos es la finalización de las preguntas. Hasta la próxima!