Macro para buscar un dato en todas las hojas
Me puedes ayudar con una macro que me busque un dato que tengo en determinada celda en una hoja y que lo busque en todas las hojas y en una ventana emergente me avise en cuál hoja lo encontró y en cuál celda. Si no se entiende me puedes solicitar más información.
1 respuesta
Respuesta de Dante Amor
2
Te anexo la macro
Sub BuscarEnTodasHojas()
'Por.Dante Amor
Set h1 = Sheets("Hoja1")
dato = h1.[C2]
For Each h In Sheets
If h.Name <> h1.Name Then
Set b = h.Cells.Find(dato)
If Not b Is Nothing Then
encontrado = True
Exit For
End If
End If
Next
'
If encontrado Then
MsgBox "Dato encontrado en la hoja: " & h.Name & ", en la celda: " & b.Address
Else
MsgBox "El dato no existe en ninguna hoja"
End If
End Sub
