Pergunta : Começ todas as folhas row2 até o fim dos dados a uma folha. Um após o outro.

Olá!, o

Get todas as folhas row2 lavra o fim dos dados a uma folha. Um depois que os other.

On cada um funcionam claramente a folha e começ um set

Row 1 são encabeçamentos e eu não os quer que a folha do copied

One deve ser excluída seu nome é “o

Can qualquer um da lista cheia " ajuda com este macro.

Regards
Sharath
 class= do

Resposta : Começ todas as folhas row2 até o fim dos dados a uma folha. Um após o outro.

Sharath,

Eu mudei o macro para facilitá-lo adicionar nomes da folha para excluir - ver abaixo. Está na lima unida.

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

Consolidator secundário ()
WS não ofuscante como a folha
Rng não ofuscante como a escala

Para cada WS nas folhas
    Selecionar o caso LCase (WS. Nome)
        O caso é = “sheet4”, “lista cheia” 'adiciona outros nomes da folha no lowercase nesta linha
        Caso mais
            Ajustar o rng = a WS. Escala (WS. Pilhas (2, “A”), WS. Pilhas (WS. Rows.Count, “A”). Extremidade (xlUp). Offset (0, 10))
            Com folhas (“Sheet4”)
                rng. Cópia. Pilhas (. Rows.Count, “A”). Extremidade (xlUp). Offset (1, 0)
            Extremidade com
    Extremidade seleta
WS seguinte

Submarino da extremidade
Outras soluções  
 
programming4us programming4us