Encontrar palabras usando If then else

La instrucción If Then else en VBA es necesaria para tomar decisiones dentro del código en VBA. Esta en grand utilidad  y su uso es muy variable.

If condition Then [Instrucciones a ejecutar] [ Else [ Instrucciones a ejecutar] ]

En esta estructura se puede entender que la condición siempre estará antecedido por el If  y elseif es una parte opcional que se ejecutaría solo sí la parte anterior no se cumple y se requiere añadir otra condición mientras que "else" hace que todos los casos en los que no se haya cumplido ninguno de los casos anteriores se pueda ejecutar

Macros para encontrar palabras usando If

(Para mayor visualización de la imagen, hacer click en la misma)

Sub idempalabra()
1. Se crea el comando para la creación del InputBox  (el mensaje que se presentara, el mensaje que ira en la parte superior). Después se agrega CEll.Find para buscar la palabra.

Dim palabara As Range
buscarpalabra = InputBox("Introducir la palabra a buscar", "Buscador")
Set palabra = Cells.Find(WHAT:=buscarpalabra)

2. Si la palabra no se encuentra ahí en la lista, se presentara el mensaje de que  "La palabra no se encuentra en la lista"

If palabra Is Nothing Then
MsgBox "La palabra no se encuentra en la lista"

3. De lo contrario, seleccionara el lugar donde se encuentra esa palabra, en el caso que la palabra se repita seleccionara a la primera palabra en al lista, y te enviara el mensaje de palabra encontrada, para finalizar se colocara el final End If  Set palabra= Nothing y luego End Sub

Else
Range(palabra.Address).Select
MsgBox "palabra encontrada " & UCase(buscarpalabra) & "."
End If
Set palabra = Nothing

 

Por: Claudia Alejandra