Foro de Ayuda Excel

Nuevamente, un gran saludo para todos, estoy muy desesperado porque todavía estoy con el el problema que tiene que ver con la elaboración de una macro que me permita realizar la Busqueda de palabras (que el usuario elija) en un libro que contiene varias hojas, esto a través del uso de un formulario o del InputBox. Estuve tratando de resolver este problema, y pude mediante formulario (UserForm) crear una macro que me permite buscar una palabra (o texto) específico, pero solo de la hoja que esta activada, el tema es, que el libro tiene varias hojas con bastante información, y hasta ahora no pude hacer que la busqueda considere todas las palabras posibles de todo el libro.

Por favor, es urgente y acudo a ustedes para que me ayuden a solucionar este problema, Muchas, pero muchas Gracias.

Mira en un tema planteado hace un par de meses llamado

Devolver Dirrecion De Celda Con Un Texto Especifico

Ahi hablaban de una macro que pasaba por todas las hojas del libro

__________________
Cordial saludo a todos desde Pereira Colombia

Gracias por responder Luis Fernando, buscaré el tema que me recomiendas y te comentó como me fué. Saludos.

Luis Fernando, no es lo que realmente necesito, la idea es que el usuario busque una palabra específica y esta sea buscada en todo el libro (tiene bastantes hojas), ya hice una macro apoyada en un formulario (UserForm) pero el problema es que busca solo en la hoja que está activada, te mando la macro para que te des cuenta mas o menos que es lo que busco. La idea es que eso lo realice en todas las hojas y se posicione en la celda donde encuentra la palabra, algo así como el comando buscar del excel o del word.

Private Sub CommandButton1_Click()

On Error GoTo noencontro

Cells.Find(What:=TextBox2, After:=ActiveCell, LookIn:=xlFormulas, LookAt _
:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
False).Activate

ActiveCell.Offset(0, 0).Select

noencontro:

End Sub

Private Sub UserForm_Click()

End Sub
Private Sub CommandButton2_Click()
End
End Sub

--------------------------------------

Espero tus comentarios, y te agradezco mucho de antemano

Saludos,

TE ADJUNTO EL CÓDIGO:


Sub GG()
'DEBEMOS SABER PRIMERO CUANTAS HOJAS TENEMOS EN EL LIBRO
CUANTASHOJAS = ActiveWorkbook.Sheets.Count
For I = 1 To CUANTASHOJAS
Sheets(I).Select
Cells.Find(What:="PAPA", After:=ActiveCell, LookIn:=xlFormulas, LookAt _
:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
False).Activate
ActiveCell.Offset(0, 0).Select
Next
Sheets(1).Select
End Sub

Gracias Roberto, pero te cuento que no puedo hacerlo correr, de todas maneras solucione la búsqueda mediante el InputBox, no quedó como quería (estéticamente hablando), pero cumple con lo que busco. Gracias por la preocupación.

Saludos.

Hola Samito,
aunque has resuelto ya el problema, en el fichero adjunto te envío un formulario por si te puede servir de ayuda.

Se accede pulsando Ctrl+Mayúsc+B. Busca por todo el libro la palabra o frase que introduzcas y muestra una lista de las coincidencias encontradas. Pulsando sobre la lista, lleva el cursor a la celda y resalta la palabra con rojo (o azul, si el texto es rojo). Vuelve a su color original cuando se elige otra o se cierra el formulario.

Un saludo.

PS. el fichero es un archivo .rar

Archivos Adjuntos

buscartexto.zip (82,4 KB, 47 visitas)

Estimado Efmc, realmente me impresionó el formulario, está buenísimo y es lo que estaba buscando por ya hace varias semanas, muchísimas gracias!!!. Es un gran aporte que hiciste. Muchas gracias

Estaria bueno verlo; pero me da error en el file (zip).

Gracias

En realidad es un fichero .rar renombrado como .zip. Sólo se pueden adjuntar ficheros con ciertas extensiones y tamaños, y la del WinRar no es precisamente una de ellas.

Lo siento, pero en este ordenador no tengo el winzip instalado.

Un saludo.