Encontrar ruta de dato y llevarme a el
Buenas tardes,tengo una duda la cual no pude resolver y espero su ayuda,,bien tengo un libro con varias hojas y en cada una de ellas un registro de personas (300 Aprox).lo que necesito es un buscador de "palabra que contenga la celda"y llevarme a ella..por ejemplo
celda a1 " juan peres loza"
a2 " rosa Merino suares"
a3 " jorge del castillo"
y asi hasta cien registros aprox. Necesito poner el dato en otra celda (o en un "box") "h1" "jorge" y me dirija a esa fila...(a3),,,eso es todo y ,,,,,si es posible que desde otra hoja poner el dato y me redirija a la que contiene el dato que seria otra macro pero con una variante muchas gracias,,,,,
1 Respuesta
Te anexo la macro para buscar la celda. Tienes que crear una hoja que se llame "Consulta", en la celda B3 escribe el nombre y ejecuta la macro.
Sub BuscarCelda()
'Por.Dante Amor
Set h1 = Sheets("Consulta")
celda = "B3"
'
For Each h In Sheets
If h.Name <> h1.Name Then
Set r = h.Cells
Set b = r.Find(h1.Range(celda), LookAt:=xlWhole, MatchCase:=False)
If Not b Is Nothing Then
h.Select
Range(b.Address).Select
Exit For
End If
End If
Next
End SubCon la siguiente macro te selecciona la fila, lo mismo, en la hoja "consulta" en la celda "B3" escribe el nombre y ejecuta esta macro y te selecciona la hoja y la fila.
Sub BuscarFila()
'Por.Dante Amor
Set h1 = Sheets("Consulta")
celda = "B3"
'
For Each h In Sheets
If h.Name <> h1.Name Then
Set r = h.Cells
Set b = r.Find(h1.Range(celda), LookAt:=xlWhole, MatchCase:=False)
If Not b Is Nothing Then
h.Select
Rows(b.Row).Select
Exit For
End If
End If
Next
End Sub
