En realidad, para resolver este problema no hace falta ninguna macro, porque Excel ya tiene un comando para hacer búsquedas como esta:
1.Seleccionamos el rango donde se encuentran los datos. Si no lo hacemos, Excel busca en toda la hoja.
2.Tomamos las opciones[Edición/Buscar].
3.Donde dice[Buscar:], escribimos el dato que estamos buscando.
4.Hacemos clic en[Buscar siguiente].
Si el dato existe en el rango seleccionado, el cursor se mover hacia ese dato. Entonces hacemos clic en[Cerrar]para terminar la búsqueda.
Por supuesto, podemos usar este comando dentro de una macro. Podra ser algo as:
Sub buscapalabra()
dato = InputBox(Ingrese el nombre a buscar)
Columns(1).Find(dato).Activate
End Sub
Al ejecutar esta macro, aparecer un cuadro de entrada donde debemos indicar el dato que estamos buscando. Luego, la macro ejecuta el comando[Buscar]para localizar ese dato en la columna[A].
Con la opción [Edición/Buscar] podemos localizar un dato determinado dentro
del rango seleccionado. Si no tenemos seleccionado ningón rango, Excel busca en toda la hoja.
del rango seleccionado. Si no tenemos seleccionado ningón rango, Excel busca en toda la hoja.
Esta macro usa el comando [Buscar] para encontrar dentro de la columna [A] el dato indicado en el cuadro de entrada.
Fuente: RedUsers
