AGRUPAR INFORMACIÓN DE VARIAS HOJAS

hola, fernando !

> Las hojas de origen vienen nombradas por quincena: 1aquincena, 2aquincena, etc. hasta 24quincena.
> No existen columnas vacias y si hay filas vacias y subtotales en las filas:
> subtotal de empleados de confianza, de base y eventuales
> pero eso no seria problema porque podria eliminar los subtotales y las filas vacias...

voy a suponer/asumir las siguientes eventualidades:
- que la "a" entre el numero y quincena es una constante en el nombre de las hojas (1aquincena... 24aquincena)
- que la ultima fila con datos reales se encuentra siempre en la columna A
- que la fila 1 no se copia a la hoja de resumen (contiene solo los titulos)
- que ya no hay filas vacias ni (sub)totales en cada hoja
- que la hoja para el resumen se llama "resumen" y que esta "en blanco" (vacia, nada, ...)

al final se ordena la hoja "resumen" por nombre (columna A) -no se si requieras agregar criterios-

si cualquier duda (o informacion adicional)... comentas ?
saludos,
hector.

Sub Concentra_Quincenas()
Dim n As Byte
With Worksheets("resumen")
Worksheets("1aquincena").Range("a1:az1").Copy Destination:=.Range("a1")
For n = 1 To 24
With Worksheets(n & "aquincena")
.Range("a2").Resize(.Range("a65536").End(xlUp).Row - 1, 52).Copy
End With
With .Range("a65536").End(xlUp).Offset(1)
.PasteSpecial xlPasteValues
.PasteSpecial xlPasteFormats
End With
Next
.[a1].CurrentRegion.Sort _
Key1:=.[a2], Order1:=xlAscending, _
Header:=xlYes
End With
End Sub
&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&