Realizar búsqueda en un libro, exceptuando una hoja.
La pregunta es para Dante.
Que tal Dante, me surgió una duda en cuanto al ultimo macro que me enviaste:
Sub BuscarClave() 'Por.Dante Amor clave = ActiveCell.Value If clave = "" Then Exit Sub ' For Each h In Sheets If UCase(h.Name) <> "HOJA RESUMEN" Then Set b = h.Cells.Find(clave) If Not b Is Nothing Then h.Activate b.Select Exit Sub End If End If Next End Sub
Mi dudas es si hay manera de crear una macro con similares características a al anterior, solo que excluyendo un hoja en especifico de la búsqueda.
1 respuesta
Respuesta de Dante Amor
1
La macro anterior ya excluye la hoja "HOJA RESUMEN" de la búsqueda, es decir, busca en todas las hojas excepto en la hoja "HOJA RESUMEN", ¿quieres qué no realice la búsqueda en otra hoja?
Por ejemplo, con la siguiente macro, busca en todas las hojas excepto en las hojas: "HOJA RESUMEN" y "Hoja3"
Sub BuscarClave() 'Por.Dante Amor clave = ActiveCell.Value If clave = "" Then Exit Sub ' For Each h In Sheets Select Case UCase(h.Name) Case "HOJA RESUMEN", "Hoja3" Case Else Set b = h.Cells.Find(clave) If Not b Is Nothing Then h.Activate b.Select Exit Sub End If End Select Next End Sub
S a l u d o s . D a n t e A m o r
Si es lo que necesitas. Recuerda valorar la respuesta.
