BUscar datos en otras hojas

[el_profeta]

Aunque ya existe el método de seleccionar todas las hojas y dar el comando control+b, les comparto esta forma..

podemos crear un botón en nuestra hoja de calculo para no entrar hasta el código.

Sub Macro1()

Dim x As String, Hoja As Worksheet, Nombre As String, msg As String

Nombre = InputBox("Introduce el nombre o dato a buscar:")

For Each Hoja In ThisWorkbook.Worksheets

On Error Resume Next

If Nombre <> "" Then

x = Hoja.Cells.Find(What:=Nombre, _

After:=Hoja.Cells(1), _

LookIn:=xlValues, _

LookAt:=xlPart, _

SearchOrder:=xlByRows, _

SearchDirection:=xlNext, _

MatchCase:=False).Address

If Err.Number = 0 Then

If msg = "" Then _

msg = "se ha encontrado el texto buscado en:" _

& Chr(13) & Chr(13)

msg = msg & Hoja.Name & "!" & x & Chr(13)

End If

End If

On Error GoTo 0

Next Hoja

If msg <> "" Then MsgBox msg

End Sub

saludos