Buscar un valor en una columna de varias hojas

Buen día!

Gusto en saludar de nuevo.

En esta ocasión necesito un código que me permita buscar un valor en todas las hojas del libro dentro de la columna L y que el resultado indique la hoja en la que se encuentra el dato.

Hasta lo hago, pero sólo en la hoja activa.

Gracias.

1 respuesta

Respuesta
1

A grandes rasgos te podría servir esta macro en donde en la celda activa escribas lo que hay que buscar

Sub buscar()
Dim Sh As Worksheet
Dim Rango As Range
For Each Sh In ActiveWorkbook.Sheets
     Set Rango = Sh.Range("L:L").Find(ActiveCell)
     If Not Rango Is Nothing Then MsgBox (Sh.Name & " " & Rango.Address)
Next
End Sub

Pero lo normal sería pulirla un poco con datos que no has facilitado. Por ejemplo, debe buscar el código exacto o sirve con poner parte. Debe buscar todas las ocurrencias en cada hoja o solo se repite una vez en cada hoja. Debe buscar en todas las hojas o basta con la primera vez que ocurra. Si hay varias ocurrencias avisa una a una o hace un resumen al final de todas.

Pues si me facilitas esos datos y aun mejor si me mandas el fichero puedo perfeccionarla lo que necesites.

Mi dirección es

[email protected]

Pon como asunto el título de la pregunta y como nombre del fichero algo alusivo como

ColumnaVariasHojas.XLSM ( o la terminación que tenga)

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas