Microsoft Office Forums - View Single Post - [Solved] Check if a word exists in a list of words established in the vba code

Visor · 07-14-2020, 04:40 AM

I'm sorry!!

Excellent works perfect !! I am very grateful, ... But I thought I could adapt it to the way I require it, however I have not succeeded ... Actually I have three groups of verbs Low level, Medium level and High level and it does not allow me to distinguish with Elseif I thought that if I could, here I put the three verb levels

I put the code in the previous post

Podrías echarle un vistazo nuevamente??

Quote:

Originally Posted by gmaxey

Code:

Private Sub CommandButton1_Click()
Dim palabra As String
  palabra = "Calcar,Citar,Encontrar,Enumerar,Etiquetar,Fijar,Localizar,Memorizar,Mostrar,Recitar,Recordar,Relatar,Repetir,Reproducir,Señalar,Subrayar,Comentar,Describir,Determinar,Dibujar,Diferenciar,Explicar,Expresar,Generalizar,Identificar,Ilustrar,Informar,Leer,Observar,Parafrasear,Reconocer,Resumir,Revisar,Secuenciar,Sintetizar"
  If InStr(palabra, TextBox1) > 0 Then
    MsgBox "Si Existe ese verbo:" & TextBox1
  Else
    MsgBox "No Existe ese verbo:" & TextBox1
  End If
End Sub