Juntar abas do excel depois de converter do PDF [2]

[wallandaora]

Boa tarde a todos, sou novo no fórum e me cadastrei para pedir uma ajuda, espero também poder ajudar futuramente.

esta é uma duvida que ja foi resolvida aqui no fórum, porém nao consegui encontrar a resolução, mas sim o problema ja resolvido, então aqui vai:

Pessoal tenho uma dúvida:

Converti uma planilha de PDF para excel, so que o sistema separa por páginas. Gostaria de colocar tudo em uma unica aba (ou pagina), pois são 781 e copiar e colar fica dureza...

Se alguem puder me ajudar segue planilha: http://www.sendspace.com/file/lwieyb

Muito obrigado!

[jeffsilveira]

Seja bem vindo ao fórum.

Vou passar um código que faz rapidinho isso pra você.

Para instalá-lo siga os seguintes passos:

Abra sua planilha. Tecle Alt F11 para abrir o VBA. Clique no menu Inserir > Módulo.

Na janela em branco que abrir cole a macro abaixo.

Tecle Alt Q para fechar o vba e voltar ao excel.

Tecle Alt F8 para abrir o menu de macros, que já deve estar com 'juntarabas' selecionada, e clique em Executar.

Pronto, está tudo em uma aba só!

Basta salvar o arquivo (em xlsx mesmo, a macro será automaticamente descartada).

Boa sorte!

Sub juntarabas()

' desabilita atualização da tela
Application.ScreenUpdating = False
' desabilita mensagens
Application.DisplayAlerts = False
' dimensiona variável
Dim LIN As Integer
' copia o conteúdo da aba seguinte e apaga a aba
Do
Sheets("Table 1").Select
' define a primeira linha vazia da aba atual
LIN = Cells(Rows.Count, 1).End(xlUp).Offset(1, 0).Row
' vai para a aba seguinte
ActiveSheet.Next.Select
' copia o conteúdo necessário
Range("A2:A" & Cells(Rows.Count, 1).End(xlUp).Row).EntireRow.Copy
' volta para a aba inicial e cola
ActiveSheet.Previous.Select
Rows(LIN).Insert Shift:=xlDown
' vai para a aba copiada e deleta ela
ActiveSheet.Next.Select
ActiveSheet.Delete
' limpa a variável LIN
LIN = 0
' repete o procedimento até haver apenas 1 aba
Loop Until Worksheets.Count = 1
'apaga área de transferência
Application.CutCopyMode = False
' habilita atualização da tela
Application.ScreenUpdating = False
' habilita mensagens
Application.DisplayAlerts = False
Range("A1").Select
End Sub

[wallandaora]

Seja bem vindo ao fórum.

Vou passar um código que faz rapidinho isso pra você.

Para instalá-lo siga os seguintes passos:

Abra sua planilha. Tecle Alt F11 para abrir o VBA. Clique no menu Inserir > Módulo.

Na janela em branco que abrir cole a macro abaixo.

Tecle Alt Q para fechar o vba e voltar ao excel.

Tecle Alt F8 para abrir o menu de macros, que já deve estar com 'juntarabas' selecionada, e clique em Executar.

Pronto, está tudo em uma aba só!

Basta salvar o arquivo (em xlsx mesmo, a macro será automaticamente descartada).

Boa sorte!

Sub juntarabas()

' desabilita atualização da tela
Application.ScreenUpdating = False
' desabilita mensagens
Application.DisplayAlerts = False
' dimensiona variável
Dim LIN As Integer
' copia o conteúdo da aba seguinte e apaga a aba
Do
Sheets("Table 1").Select
' define a primeira linha vazia da aba atual
LIN = Cells(Rows.Count, 1).End(xlUp).Offset(1, 0).Row
' vai para a aba seguinte
ActiveSheet.Next.Select
' copia o conteúdo necessário
Range("A2:A" & Cells(Rows.Count, 1).End(xlUp).Row).EntireRow.Copy
' volta para a aba inicial e cola
ActiveSheet.Previous.Select
Rows(LIN).Insert Shift:=xlDown
' vai para a aba copiada e deleta ela
ActiveSheet.Next.Select
ActiveSheet.Delete
' limpa a variável LIN
LIN = 0
' repete o procedimento até haver apenas 1 aba
Loop Until Worksheets.Count = 1
'apaga área de transferência
Application.CutCopyMode = False
' habilita atualização da tela
Application.ScreenUpdating = False
' habilita mensagens
Application.DisplayAlerts = False
Range("A1").Select
End Sub

Cara isso funcionou perfeitamente!

muito obrigado!

[Patropi]

Caso o autor do tópico necessite, o mesmo será reaberto, para isso deverá entrar em contato com a moderação solicitando o desbloqueio.