¿Te atreves a demostrar lo que sabes resolviendo alguno de estos
temas abiertos/no resueltos?

Macro para adjuntar...
 
Compartir:
Avisos
Vaciar todo

Macro para adjuntar, de varios Libros... las hojas que necesite. Ayuda por favor!!

Joseandres
(@joseandres)
Nuevo miembro Registered

Buenas tardes, mi consulta es la siguiente, tengo una macro, lo que hace es: mediante un boton, acceder a una ventana para elegir los libros que necesite unificar, ademas unifica las hojas de cada libro, todo eso en una hoja de  un libro nuevo. El problema es que solo necesitaria que unifique las primeras hojas de cada libro, porque en esta codificacion  ademas de ello, toma las hojas 2, luego las hojas 3, etc. Podrian ayudarme con el código por favor?  Muchas graciasssss

Sub Open_Files()
Dim Hoja As Object

Application.ScreenUpdating = False
'Definir la variable como tipo Variante
Dim X As Variant
'Abrir cuadro de dialogo
ChDir "C:\Users\Usuario\Desktop\Nueva carpeta"
X = Application.GetOpenFilename _
("Excel Files (*.xlsx), *.xlsx", 2, "Abrir archivos", , True)
'Validar si se seleccionaron archivos
If IsArray(X) Then ' Si se seleccionan
'Crea Libro nuevo
Workbooks.Add
'Captura nombre de archivo destino donde se grabaran los archivos seleccionados
A = ActiveWorkbook.Name

'*/********************
For y = LBound(X) To UBound(X)
Application.StatusBar = "Importando Archivos: " & X(y)
Workbooks.Open X(y)
b = ActiveWorkbook.Name
Sheets("Hoja1").Copy After:=Workbooks(A).Sheets(Workbooks(A).Sheets.Count)
Workbooks(b).Close False
Next

Application.StatusBar = "Listo"

Call Unir_Hojas

End If
Application.ScreenUpdating = False
End Sub

Sub Unir_Hojas()
Dim Sig As Byte, eliminar As Boolean
For Sig = 2 To Worksheets.Count
Worksheets(Sig).UsedRange.Copy _
Worksheets(1).Range("a1000000").End(xlUp).Offset(1)

Next
Application.DisplayAlerts = False

For Sig = 2 To Worksheets.Count
Worksheets(2).Delete
Next
Application.DisplayAlerts = True

End Sub

 

 

Citar
Topic starter Respondido : 01/11/2021 12:44 am
Etiquetas del debate

Dejar una respuesta

Nombre del autor

Correo electrónico del autor

Título *

 
Vista previa 0 revisiones Guardado