Questione : Ottenere tutti gli strati row2 lavorare alla conclusione dei dati ad uno strato. Uno dopo l'altro.

Ciao, il

Get tutti gli strati row2 lavora la conclusione dei dati ad uno strato. Uno dopo che i other.

On ciascuno fanno funzionare chiaramente lo strato ed ottengono un nuovo set

Row 1 sono intestazioni ed io non li vogliono che lo strato del copied

One dovrebbe escludersi il relativo nome è “

Can chiunque della lista completa " aiuto con questo macro.

Regards
Sharath
 class= del

Risposta : Ottenere tutti gli strati row2 lavorare alla conclusione dei dati ad uno strato. Uno dopo l'altro.

Sharath,

Ho cambiato la macro per renderlo più facile aggiungere i nomi del manuale per escludere - vedere sotto. È nella lima allegata.

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

Consolidator secondario ()
La WS fioca come manuale
Rng fioco come gamma

Per l'ogni WS in manuali
    Selezionare il caso LCase (WS. Nome)
        Il caso è = “sheet4„, “lista completa„ 'aggiunge altri nomi del manuale nella lettera minuscola su questa linea
        Caso altrimenti
            Regolare il rng = la WS. Gamma (WS. Cellule (2, “A„), WS. Cellule (WS. Rows.Count, “A„). Estremità (xlUp). Contrappeso (0, 10))
            Con gli strati (“Sheet4„)
                rng. Copia. Cellule (. Rows.Count, “A„). Estremità (xlUp). Contrappeso (1, 0)
            Estremità con
    Estremità prescelta
La WS seguente

Sommergibile dell'estremità
Altre soluzioni  
 
programming4us programming4us