Macro para buscar en palabras en hojas y llevarme a esa hoja
Tengo más de 54 hojas y necesito un macro el cual tenga buscar como titulo y al hacer click me salga una ventana la cual me permita buscar la palabra en alguna hoja y me lleve ahi
Respuesta de Dante Amor
1
Ejecuta la siguiente macro, escribe una palabra y presiona Aceptar
La macro busca la palabra en cada una de las hojas, donde la encuentre, selecciona la hoja y la celda. Si no encuentra la palabra te envía un mensaje.
Sub Buscar_Palabra()
'Por.Dante Amor
palabra = InputBox("Escribe la palabra a buscar", "BUSCA EN TODAS LAS HOJAS")
If palabra = "" Or palabra = False Then Exit Sub
existe = False
For Each hoja In Sheets
Set b = hoja.Cells.Find(palabra, lookat:=xlWhole)
If Not b Is Nothing Then
hoja.Select
b.Select
existe = True
Exit For
End If
Next
If existe = False Then
MsgBox "La palabra no existe en ninguna hoja"
End If
End SubAsigna la macro a un botón y la ejecutas.
.
'S aludos. Dante Amor. Recuerda valorar la respuesta. G racias
.
Avísame cualquier duda
.
Esta bien, solo que tambien me gustaria que ademas de las palabras tambien las hojas
¿A qué te refieres con también las hojas?
¿Quieres poner el nombre de una hoja y que te lleve a esa hoja?
Realiza lo siguiente:
