Junta paginas excel 2016

[sanalme]

Bom dia!

 

Pessoal, preciso juntar as abas (260 no total) de uma planilha. Recibi a planilha só que ela veio dividida em abas(paginas1 a pagina260). Como farei essa junção em aba única?

 

Excel2016

 

Desde já agradeço

[DJunqueira]

você tem 260 abas (guias ou planilhas) ou 260 páginas dentro de uma aba (guia ou planilha)?

[sanalme]

260 Guia. Queria coloca-las somente é uma. De uma olhada no print, por favor

Print.docx

[Basole]

@sanalme seja bem vindo ao forum!

Se a formatacao de todas as planilhas (abas) da sua Pasta_de_Trabalho,

forem identicas, este codigo vba, deve lhe ajudar.

 

Crie uma aba chamada "Resumo" para receber os dados de todas as abas. 

 

Crie um modulo padrão e cole o codigo abaixo. 

 

Sub Juntar_Abas()
    ' Por Basole para http://forum.clubedohardware.com.br/
    
    Application.DisplayAlerts = False
    
    Application.ScreenUpdating = False
    
    For x = 1 To ThisWorkbook.Worksheets.Count
    If Sheets(x).Name <> "Resumo" Then
    Sheets(x).Select
    
    Range("A1:R" & Range("A1048576").End(xlUp).Row).Copy
    
    Sheets("Resumo").Select
    
    Range("A1").Select
    
    Do While ActiveCell <> Empty
    
    ActiveCell.Offset(1, 0).Select
    
    Loop
    
        Selection.PasteSpecial Paste:=xlPasteAllUsingSourceTheme, Operation:=xlNone _
            , SkipBlanks:=False, Transpose:=False
    
        Application.CutCopyMode = False
        End If
    
    Next
    
    Sheets("Resumo").Select
    
    Application.DisplayAlerts = True
    
    Application.ScreenUpdating = True

End Sub

 

 

 

 

 

 

[sanalme]

Basole, nao deu certo nao.

[Basole]

voce não especifica o problema, isso pode abranger várias coisas.

Isso é muito vago, sendo assim, fica difícil tentar te ajudar.

 

 

[sanalme]

OK, segue o print com o erro apresentado.

Print2.docx

[DJunqueira]

5 horas atrás, sanalme disse:

260 Guia. Queria coloca-las somente é uma. De uma olhada no print, por favor

Print.docx

Mama mia, uma tabela com espaço entre as colunas, células mescladas e colunas sem cabeçalho, essa é uma das piores montagem de tabelas q eu já vi, Ahg!!

@sanalme caso você consiga colocar tudo numa aba só, por favor não repita mais os erros mencionados acima.

adicionado 3 minutos depois

2 horas atrás, Basole disse:

voce não especifica o problema, isso pode abranger várias coisas.

Isso é muito vago, sendo assim, fica difícil tentar te ajudar.

@Basole será q as células mescladas sabe-se lá como nas outras abas não seriam a origem do problema?

[sanalme]

Ok! amigos muito obrigado pela atenção de vocês. Mas eu desisto, ta muito complicado.