Como puedo modificar esta macro
Dante tengo una macro para buscar que me busca en todas las hojas de un libro y quisiera que me buscara en todas las hojas menos en la de nombres ... ¿cómo la puedo moficar? Muchas gracias dante de antemano.
Sub buscar()
dim buscar
dim texto as string, titulo as string
texto="INTRODUZCA EL NOMBRE"
titulo= "busqueda en todas las hojas del libro"
buscar=inputbox (texto,titulo)
if buscar=""then exit sub for each hoja in sheets
if hoja.name <>"hoja1" then with hoja.range ("A2:AA65500")
set esta=.find(buscar)
if not esta is nothing then primera celda=esta.adress
'opcional: mostrar el nbre de la hoja segun consulta original.
msgbox hoja.name
hoja.activate
esta.select
end if
end with
end if
next hoja
end sub
1 respuesta
Respuesta de Dante Amor
1
Te anexo la macro con el cambio
Sub buscar()
Dim buscar
Dim texto As String, titulo As String
texto = "INTRODUZCA EL NOMBRE"
titulo = "Busqueda en todas las hojas del libro"
buscar = InputBox(texto, titulo)
If buscar = "" Then Exit Sub
For Each hoja In Sheets
Select Case hoja.Name
Case "Hoja1", "NOMBRES", "BUSCAR"
Case Else
With hoja.Range("A2:AA65500")
Set esta = .Find(buscar)
If Not esta Is Nothing Then
primeracelda = esta.Address
'opcional: mostrar el nbre de la hoja según consulta original.
MsgBox hoja.Name
hoja.Activate
esta.Select
End If
End With
End Select
Next hoja
End Sub
'S aludos. Dante Amor. Recuerda valorar la respuesta. G racias
