Saltar al contenido

Macro para buscar hojas y copiar los datos

publicado

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

Featured Replies

publicado

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

publicado
  • Autor

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

Archivado

Este tema está ahora archivado y está cerrado a más respuestas.