Extraer columnas de varias hojas a una sola

Espero alguien me pueda ayudar, tengo un libro con 5 hojas (periodo 1, periodo 2, etc) en la hoja resumen del mismo libro necesito extraer 3 columnas de cada una de las hojas anteriores y que los datos se concentren hacia abajo de acuerdo al periodo (periodo 2 abajo del periodo 1, etc), ¿por favor pueden decirme si hay alguna fórmula o macro que haga esto?

1 Respuesta

Respuesta
1
Esta macro realiza lo que pides
'copia todas las hojas del libro en una sola hasta la columna cuen,3
Sub copiar_hojas()
Dim contador As Integer
contador = Worksheets.Count
ActiveWorkbook.Sheets.Add After:=Worksheets(Worksheets.Count)
For i = 1 To contador
Sheets(i).Select
cuen = Range("A" & Cells.Rows.Count).End(xlUp).Row
Range(Cells(1, 1), Cells(cuen, 3)).Copy
Sheets(Worksheets.Count).Select
Range("a" & Cells.Rows.Count).End(xlUp).Select
ActiveSheet.Paste
Next
MsgBox "Proceso finalizado"
End Sub
Copia las 3 primeras columnas de cada hoja en una nueva pruébalas y si necesitas alguna aclaración o adaptación dímelo
Hola, buenas tardes.
Muchas gracias por tu pronta respuesta, es casi lo que necesito, solo con dos aclaraciones que espero me puedas ayudar.
El libro contiene 6 hojas
Hoja 1 = Reporte (aquí tomo datos de las hojas 4 a 6)
Hoja 2 = Periodo 1
Hoja 3 = Periodo 2
Hoja 4 = Periodo 3
Hoja 5 = Periodo 4
Hoja 6 = Periodo 5
En la hoja 7 y que ya existe llamada "Concentrado" es donde necesito que se copien las columnas del periodo 1 al Periodo 5, sin que se cree una hoja nueva, otro punto es que las columnas a copiar contienen fórmulas y necesito que se copien unicamente los valores, muchas gracias de antemano por tu ayuda.
Saludos
Prueba con esta otra
'Macro creada x d2enri 1-06-2011
Sub copiar_hojas()
Dim contador As Integer
contador = Worksheets.Count
For i = 1 To 6 'contador
Sheets(i).Select
cuen = Range("A" & Cells.Rows.Count).End(xlUp).Row + 1
Range(Cells(1, 1), Cells(cuen, 3)).Copy
Sheets("Concentrado").Range("A65536").End(xlUp).Offset(1, 0).PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Next
Sheets("Concentrado").Select
Range("A1").Select
MsgBox "Proceso finalizado"
End Sub
Esta realiza lo que pides pero con un par de especificaciones
1º la hoja Concentrado la tienes que situar la 1º osea la de más a la derecha
2º la hoja reporte la tienes que situar la ultima osea la más a la izquierda
Si te vale así perfecto y si te es un inconveniente situar las hojas como te digo me lo dices y me curro un poco más la macro

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas

Copiar de varias hojas a una sola hoja

Tengo en un libro de 50 hojas, en cada hoja (hoja A, hoja B, hojaC... Etc) tengo información que va de la columna A1 a la A100 de la B1 a la B100 y así sucesivamente y en cada hoja es igual, como hago para que en una hoja nueva dentro del mismo libro...
1 respuesta

¿Cómo hago una macro en excel para copiar todos los datos d varias hojas a una nueva?

Tengo 5 hojas en un libro de excel 2003, necesito pasar con una macro todos los datos de 3 de las hojas a una nueva hoja, pero poniendo todos los datos uno debajo del otro a partir de la fila 2 porque la fila 1 son los títulos de las columnas. (Las...
2 respuestas

Buenas tardes como están... Tengo una macro que compara diferencias entre 2 hojas

La macro compara las diferencias entre las 2 hojas y copia las diferencia en una tercera. Y trabaja bien con 30 o 40 lineas pero necesito que compare unas 900 o 1000 lineas, Otra cosa esta macro tiene una hoja ( hoja 1 como master) y importa datos de...
1 respuesta

Macro busca celda por color y resumen

Tengo una macro que compara dos hojas de un mismo libro, específicamente 2 columnas, si hay un cambio en estas columnas, pinta la celda de un color, lo que requiero saber y pedir su ayuda, es poder realizar una macro que me extraiga los valores de...
1 respuesta

No se de macro en excel y quiero una que copie en hoja 2 parte de fila, si en columna B de hoja 1 "si"

Ante todo no se de macros. Intento hacer una que me realice en la hoja 2 un resumen de datos siempre que cumpla una condición. Que en hoja 1, columna ($b2) aparece "si", pues que en hoja 2 copie las celdas "A2", "C2", "E2"... Necesitaría que alguien...
1 respuesta

Macro excel copia datos

Necesito una macro de excel que permita copiar celdas con contenido (es un arbol genealogico que tiene mas de cien nombres de personas) en otra hoja pero en columna. Los datos en la hoja del arbol genealogico estan dispersos, con celdas vacias...
1 respuesta

Hoja de captura de datos en excel

Quisiera saber en excel cual es la forma de crear una hoja de captura de datos y que éstos se vayan acumulando en una hoja alterna. Entiendo que este proceso se puede hacer con macros. Para tratar de ser más claro les comento que se trata de una...
1 respuesta

Copiar filas a hoja resumen

Necesito una macro o formula que copie las filas rellenas, incluido el formato a partir de la cuarta fila de al menos 30 hojas distintas en una hoja llamada resumen ocupando siempre la primera fila vacía disponible y que se ejecute desde un botón o...
1 respuesta

Macro Copiar Valores Únicos de una hoja a otra hoja de excel

He estado batallando con una macro. La vdd apenas me voy iniciando en esto. Quería preguntar si existe alguna forma de que la macro permita copiar en una hoja solo los valores únicos de otra hoja dentro de un mismo libro. El objetivo de mi libro es...
1 respuesta

¿Cómo combino dos macros que hacen lo que necesito?

Tengo que aplicar dos macros a muchos archivos en excel, Pero es laborioso estar haciendo manualmente algunos procesos para las macros. ¿Cómo fusiono estas dos macros? ¿Se requiere de hacer una nueva macro? Me refiero a las macros de las dos...
1 respuesta