Excel - buscar celda vba excel colocar valor contiguo

Hola Buenos días

Quisiera por favor que me colaboraran con un inconveniente, estoy programando en vba excel y necesito hacer el siguiente ejercicio:

tengo la siguiente tabla

_____ a _______ b
fila 1 - casa
fila 2 - perro
fila 3 - arbol

lo que necesito hacer es si yo busco la palabra casa me deje colocar un dato en la celda contigua eso seria en la cells(1,2), si yo busco la palabra perro me deje colocar el dato en la celda contigua a la palabra eso seria cells(2,2)



Agradezco su amable colaboración, no se si esto se pueda hacer

obviamente puede hacerse, pero no dices nada de cómo buscas...
puedes utilizar el método Find y FindNext del objeto Range o puedes
recorrer el rango celda por celda y comparar...
de cualquier manera, para trabajar con la celda contínua, te recomiendo que veas el uso
de la propiedad Offset del objeto Range

la ayuda de VBA no muerde!

Saludos, desde Baires, JuanC

Hola
Gracias por tu pronta respuesta

la duda realmente es como buscarla, ya que he utilizado la funcion vlookup pero esta me devuelve es un dato en especifico dentro del rango en el que estoy buscando, la idea es tomar de un textbox el parametro a buscar, realmente necesito la funcion de buscar y situarme en la columna del lado, efectivamente vi la función offset y con eso lo puedo hacer pero primero necesito encontrar en que celda se encuentra lo que estoy buscando

probe el ejemplo que da la guía de excel pero me crea un error de depuración, cambia los numeros 2 por 5 pero al final me sale un error

entonces no me queda muy claro su funcionamiento

With Worksheets(1).Range("a1:a500")
Set c = .Find(2, lookin:=xlValues)
If Not c Is Nothing Then
firstAddress = c.Address
Do
c.Value = 5
Set c = .FindNext(c)
Loop While Not c Is Nothing And c.Address <> firstAddress
End If
End With



Gracias

no es tan complicado evitar el error...



Saludos, desde Baires, JuanC