Macro para buscar hojas y copiar los datos

[vikthorius]

hola como lo dice el titulo tengo la siguiente duda

tengo un botón que busca y modifica registros que tengo en una hoja buscando por el numero de referencia,

quiero preguntarles como podría hacer un botón que me exporte los datos que encontró el buscador a una nueva hoja y que el nombre de la hoja sea el numero de la orden de producción, y me gustaria si adicional a eso me pueden explicar como hacer un buscador igual que el que tengo pero para buscar no el numero de orden sino el nombre de varias hojas que tenga abiertas.

Libro1.xls

[AlexanderS]

Hola para la primera pregunta asignale esta macro a un botón:

Sub exportar()

Application.ScreenUpdating = False

Dim hoja As Object

nombre = Sheets("BUSCADOR").[A6].Text

  On Error Resume Next

Set hoja = Sheets(nombre)

  If hoja Is Nothing Then

Sheets.Add After:=Sheets(Sheets.Count)

Sheets(Sheets.Count).Name = nombre

Sheets("BUSCADOR").Range("A5").EntireRow.Copy Sheets(nombre).Rows("1:1")

  End If

Sheets("BUSCADOR").Rows("6:6").Copy _

Sheets(nombre).Range("A" & Rows.Count).End(xlUp).Offset(1, 0)

Sheets("BUSCADOR").Activate

Application.ScreenUpdating = True

End Sub

[/CODE]

Y lo segundo no te entendí bien que es lo que quieres hacer.

Salu2

[vikthorius]

gracias por lo primero y lo segundo es quiero hacer un buscador pero que busque por nombre de las hojas y me traiga los datos y pueda guardar las modificaciones