Juntar información en una sola hoja

Espero que me puedan ayudar con una macro que permita juntar la información de 6 hojas que tengo en una sola hoja teniendo en cuenta que la información de cada hojapuede cambiar en cantidades, el formato que utilizo es una base de datos en 2003, todas las hojas tienen las mismas cabeceras asi que solo necesito que este una debajo de otra sin que haya espacios en blanco.

1 respuesta

Respuesta
1

Necesito saber en qué fila empiezan lo datos de esas 6 hojas, necesito saber en qué fila está el encabezado.

s cabeceras están en la fila 1 de cada hojA

toda la información empieza en la celda A1

Te mando mi solución con esta macro:

Cuando haya terminado la macro tendrás una pestaña llamada zjuntas con toda la información apilada

Sub proceso()
'por luismondelo
Application.DisplayAlerts = False
c = 1
For x = 1 To Sheets.Count
If Sheets(x).Name = "zjuntas" Then
p = 1
End If
Next
If p = 1 Then Sheets("zjuntas").Delete
Sheets.Add after:=ActiveWorkbook.Sheets(ActiveWorkbook.Sheets.Count)
ActiveSheet.Name = "zjuntas"
For Each hoja In ActiveWorkbook.Sheets
If hoja.Name <> "zjuntas" Then
hoja.Select
ultimac = Range("iv1").End(xlToLeft).Column
ultimaf = Range("a65000").End(xlUp).Row
Range(Cells(2, 1), Cells(ultimaf, ultimac)).Copy
Sheets("zjuntas").Range("a65000").End(xlUp).Offset(1, 0).PasteSpecial Paste:=xlValues
If c = 1 Then
Range(Cells(1, 1), Cells(1, ultimac)).Copy
Sheets("zjuntas").Range("a1").PasteSpecial Paste:=xlValues
c = 2
End If
End If
Next
End Sub

recuerda finalizar

esta muy bueno, solo quisiera un detalle, despues que haya terminado de juntar las hojas, eliminar las filas de la columna B, solo las que tengan las dos primeras letras empiezen con RG o con GE, sin tocar las cabeceras.

Te manto otra vez toda la macro reformada para hacer lo que pides... 

Sub proceso()
'por luismondelo
Application.DisplayAlerts = False
c = 1
For x = 1 To Sheets.Count
If Sheets(x).Name = "zjuntas" Then
p = 1
End If
Next
If p = 1 Then Sheets("zjuntas").Delete
Sheets.Add after:=ActiveWorkbook.Sheets(ActiveWorkbook.Sheets.Count)
ActiveSheet.Name = "zjuntas"
For Each hoja In ActiveWorkbook.Sheets
If hoja.Name <> "zjuntas" Then
hoja.Select
ultimac = Range("iv1").End(xlToLeft).Column
ultimaf = Range("a65000").End(xlUp).Row
Range(Cells(2, 1), Cells(ultimaf, ultimac)).Copy
Sheets("zjuntas").Range("a65000").End(xlUp).Offset(1, 0).PasteSpecial Paste:=xlValues
If c = 1 Then
Range(Cells(1, 1), Cells(1, ultimac)).Copy
Sheets("zjuntas").Range("a1").PasteSpecial Paste:=xlValues
c = 2
End If
End If
Next
Sheets("zjuntas").Select
Range("b65000").End(xlUp).Offset(1, 0).Value = "end"
Range("b1").Select
Do While ActiveCell.Value <> "end"
If UCase(Left(ActiveCell, 2)) = "RG" Or UCase(Left(ActiveCell, 2)) = "GE" Then
ActiveCell.EntireRow.Delete
Else
ActiveCell.Offset(1, 0).Select
End If
Loop
ActiveCell.ClearContents
End Sub

recuerda finalizar

Añade tu respuesta

Haz clic para o
El autor de la pregunta ya no la sigue por lo que es posible que no reciba tu respuesta.

Más respuestas relacionadas

Capturar información de varias hojas en una nueva

Estoy tratando de automatizar la captura de información a partir de varias hojas de un mismo libro de excel, una vez grabada la macro esta solo me efectúa el proceso hasta la hoja 4 del libro y en total son 287 hojas. Que sentencia debo incluir al...
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

Necesito una macro para copiar varias celdas a una hoja resumen colocándolas una debajo de la otra

Tengo una hoja resumen (Hoja1) y una serie de hojas de datos, no siempre son el mismo número. Los nombres de las hojas de datos van desde el 1 en adelante. En la hoja resumen quiero copiar las celdas a5, d12 y d15 de cada hoja de datos y que se me...
1 respuesta

Como juntar los datos de varias hojas en una sola

Tengo un archivo en el cual hay más de 20 hojas, pero necesito tener esa información en una sola hoja, como puedo juntar todas esas hojas.
2 respuestas

Copiar una fila en otra hoja si cumple condición

Tengo excel con 10 hojas, una por cada deposito de vino, las cantidades se mueven de un deposito a otro, como hacer que haga una salida del deposito 1 al 5 por ejemplo y automáticamente en la hoja del deposito 5 aparezca ese movimiento con su suma o...
1 respuesta

Buscar si dato existe en todas las hojas. Copiar en otra hoja las filas donde el dato se encuentre

Tengo un archivo de Excel con muchas hojas. Me gustaría buscar alrededor de 50 datos (cadenas de texto) en todas las hojas (menos en una hoja de "Resultados"). Cuando se encuentre el dato, que se copien todas las líneas en donde el dato sea...
2 respuestas

Copiar el contenido de archivos txt incrementalmente sobre hoja de excel

Les comento, tengo varios archivos txt, y necesito llevar su contenido a un libro y hoja de excel en particular. El detalle es que el contenido de cada txt debe ocupar linea a linea en el excel, y a continuación, el siguiente txt se debe agregar a la...
2 respuestas

Macro Excel Buscar Hoja y copiar datos en otra Hoja de mi Libro Excel.

Necesito una Macro Excel de modo que me permite buscar una Hoja determinada dentro de un Libro y copiar los datos de una Rango de la misma a otra Hoja que yo le diga. En este caso sería necesario habilitar un espacio en la Hoja4 en el que indicando...
1 respuesta

Copiar celdas rellenas de diferentes hojas a otra hoja

Tengo un archivo que tiene diferentes hojas, son iguales entre sí ya que indican la actividad de cada gestor en el mes. Dentro del archivo tengo una hoja de resumen en la que quiero copiar las celdas que están escritas de cada hoja. Las filas de cada...
1 respuesta

Necesito copiar los datos de varias hojas excel y misma celda en una sola hoja y correlativos.

Tengo un libro excel con varias hojas. En cada hoja y en la misma celda hay un dato numérico. Hay manera automática de traspasar todos esos datos de la misma celda ¿A una sola hoja y que se copiaran correlativas (una debajo de otra)?.
1 respuesta