Se puede mejorar, porque este ejemplo que acabo de hacer, discrimina entre mayúsculas y minúsculas, de tal forma que no será lo mismo buscar
a que
A:
Código:
Sub buscar_dato()
'Para que funcione, debemos situarnos en la primera celda con datos.
'Supondremos que ese rango es B5
Range("B5").Select
'Nos situamos al final del mismo
Selection.End(xlDown).Select
'Montamos nuestro buscador
palabra_a_buscar = InputBox("Introduce la palabra a buscar", "Buscador")
'Ahora buscamos en sentido inverso, de abajo a arriba
Do While Not IsEmpty(ActiveCell)
If ActiveCell.Value = palabra_a_buscar Then
'Seleccionamos la celda de la derecha donde tenemos el dato
columna_contigua_donde_esta_el_dato = ActiveCell.Offset(0, 1).Address
'le quitamos el signo de absoluto ($) que nos devuelve Address
columna_contigua_donde_esta_el_dato = Replace(columna_contigua_donde_esta_el_dato, "$", "")
Exit Do
End If
ActiveCell.Offset(-1, 0).Select
Loop
'Mostramos un mensajillo
If columna_contigua_donde_esta_el_dato = "" Then
MsgBox "No he encontrado nada. Lo siento."
Else
MsgBox "El dato que te interesa está en la celda: " & columna_contigua_donde_esta_el_dato
End If
End Sub