Macro para conjuntar datos en una hoja de excel
Encontré la respuesta que le diste a otra persona acerca de una macro que le permitió conjuntar de un grupo de archivos la información en otro archivo. Fue muy útil para mi tu respuesta, sin embargo quisiera tu apoyo para realizar lo siguiente.
1. Tengo un grupo de archivos en una carpeta.
2. Cada archivo tiene 10 pestañas
3. Las pestañas "DReal", "DProgr" y "DSeg" están intercaladas con otras.
4. De estas pestañas quiero concentrar la información en una pestaña concentradora para cada tipo de información. Es decir, todas las pestañas "DReal" en una sola pestaña, y así para las otras dos.
La respuesta a la que hice mención está en Macro para unir varios archivos en uno
Y es exactamente lo que necesito, pero con las variables que arriba mencioné.
Gracias por tu apoyo y espero en otro momento me sea posible poderte ayudar también.
1 respuesta
Te anexo la macro. Recuerda poner el archivo con la macro en otra carpeta. El archivo con la macro deberá contener las hojas "DReal", "DProgr" y "DSeg"
Sub ponernombre()
'Por.Dante Amor
Application.ScreenUpdating = False
Set l1 = ThisWorkbook
l1.Sheets("DReal").Cells.Clear
l1.Sheets("DProgr").Cells.Clear
l1.Sheets("DSeg").Cells.Clear
'
Set nav = CreateObject("shell.application")
carp = nav.browseforfolder(0, "SELECCIONA CARPETA", 0, "C:\trabajo").items.Item.Path
If carp = "" Then Exit Sub
ChDir carp
'
archi = Dir("*.xls*")
Do While archi <> ""
Set l2 = Workbooks.Open(archi)
For Each h In l2.Sheets
Select Case h.Name
Case "DReal", "DProgr", "DSeg"
Set hn = l1.Sheets(h.Name)
u = hn.UsedRange.Rows(hn.UsedRange.Rows.Count).Row + 1
h.UsedRange.Copy hn.Range("A" & u)
End Select
Next
l2.Close
archi = Dir()
Loop
MsgBox "Archivos concentrados", vbInformation, "UNIR ARCHIVOS EN UNA HOJA"
End SubSaludos.Dante Amor
No olvides valorar la respuesta.
¡Muchas Gracias! Ya probé la macro y fue genial!!! No sabes lo mucho que me ayudaste, y espero algún día poder contribuir contigo también.
Saludos!!!
Dante mis cordiales saludos; tengo una consulta, espero no incomodar, estoy haciendo en un formulario de catalogo de fotos en la cual tengo que hacer la búsqueda de las fotos desde una pc "x". Mi consulta como se invoca.Y mi otra consulta al terminar el formulario quisiera que otras personas desde sus PC puedan consultar a este catalogo más no ver el código para evitar que hagan modificaciones. Espero que me pueda ayudar. Correo: [email protected] Perú - luz maria villar torres
Hola Luz: Podrías crear una pregunta en el tema de excel por cada una de las peticiones, en la pregunta detallas lo que necesitas y con gusto te ayudo a resolverlo. Si gustas al final del título de la pregunta puedes poner que va dirigida a Dante Amor. Saludos - Dante Amor