Cuestión : Conseguir todas las hojas row2 hasta el final de datos a una hoja. Uno después del otro.

Hola, el

Get todas las hojas row2 labra el final de datos a una hoja. Uno después de que los other.

On cada uno funcionen con claramente la hoja y consigan un nuevo set

Row 1 sean jefes y yo no los quiere que la hoja del copied

One se debe excluir su nombre es el

Can cualquier persona de la “lista completa " ayuda con este macro.

Regards
Sharath
 class= del

Respuesta : Conseguir todas las hojas row2 hasta el final de datos a una hoja. Uno después del otro.

Sharath,

He cambiado la macro para hacerla más fácil agregar nombres de la hoja de trabajo para excluir - ver abajo. Está en el archivo atado.

Patrick
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:

Consolidator secundario ()
WS dévil como hoja de trabajo
Rng dévil como gama

Para cada WS en hojas de trabajo
    Seleccionar el caso LCase (WS. Nombre)
        El caso es = “sheet4”, “lista completa” 'agrega otros nombres de la hoja de trabajo en minúsculas en esta línea
        Caso 
            Fijar al rng = a WS. Gama (WS. Células (2, “A”), WS. Células (WS. Rows.Count, “A”). Extremo (xlUp). Compensación (0, 10))
            Con las hojas (“Sheet4”)
                rng. Copia. Células (. Rows.Count, “A”). Extremo (xlUp). Compensación (1, 0)
            Extremo con
    Extremo selecto
WS siguiente

Submarino del extremo
Otras soluciones  
 
programming4us programming4us