Bom dia,

Veja se este código te ajuda:

Sub Copiar()
    Dim Sh As Worksheet
    
    For Each Sh In Worksheets
        If Sh.Name <> "Consolidação" Then
            Sh.Select
            Sh.Range("A2", Cells([A1].CurrentRegion.Rows.Count, [A1].CurrentRegion.Columns.Count)).Copy _
            Sheets("Consolidação").[A65536].End(xlUp).Offset(1, 0)
        End If
    Next
End Sub

Supus que todas as planilhas estão na mesma pasta de trabalho.
Supus, também, que o nome da planilha onde os dados serão consolidados é "Consolidação".
Aí é só adaptar para a sua necessidade.

Abraço

Desculpe a ignorancia, mas onde eu colocaria esse codigo?

abraço

Ola peixoto,
Vc pode colocar em um modulo e criar um botão na planilha para chamar o procedimento.
A menos que tenha outra necessidade.

Obrigado!

Mas o ignorante aqui não sabe onde colocar isso, tentei fazer o mesmo procedimento no query e colocar o codigo com as modificações, não deu certo! depois tentei colocar em macro, não deu certo! Se não for pedir de mais, dá pra colocar os passos, ou se existir um topico falando isso só me indicar, que mais tarde olho.

vlw mesmo pessoal

Boa tarde,

Tem como fazer aqui: http://guiadoexcel.com.br/consolidacao-de-dados-no-excel.

Abraço

Marcos Rieper

Peixoto, proceda da seguinte forma :

Com o arquivo aberto,

1°) Tecle ALT+F11 - Abre a tela do Editor
2°) No lado Esquerdo em Projeto - VBAProject - clique com o Botão Direito e escolha Inserir Modulo;
3°) Apos inserir, copie e cole a rotina enviada pelo JValk.

4°) Feche a Janela do VBA e volte para a planilha.

Para Excel 2003 :
1°) Clique com o Botão Direito na Barra de Menus e Selecione a opção Formulários
2°) Clique em cima do Botão e depois;
3°) Clique na planilha, será adicionado o Botão e abrirá a tela Atribuir Macro,
4°) Selecione a macro que você adicionou e OK.

Para Excel 2007
1°) Clique na Guia Desenvolvedor, depois em;
2°) Inserir, e em Controles de Formulário selecione o Botão;
3°) Clique na planilha, será adicionado o Botão e abrirá a tela Atribuir Macro,
4°) Selecione a macro que você adicionou e OK.

Pronto, agora é só clicar no Botão Criado que a rotina será executada.

Só não esqueça de Ajustar o nome da Planilha e endereços.

[]s

Muito obrigado, resolveu meu problema cara, vlw mesmo )))