Compartilhar:
Notifications
Clear all

Juntar abas


brunoalmeida___
Posts: 3
Registered
Topic starter
(@brunoalmeida___)
New Member
Entrou: 7 meses atrás

Pessoal, boa tarde!  

Estou com dificuldade em juntar abas do meu arquivo em Excel. 

1- Nem sempre meus arquivos terão a mesma quantidade de abas.

2 - Minha intenção é juntar as planilhas em blocos. Ex: Juntar as planilhas somente do Bloco C - do C001 ao C197

3 - Estou utilizando um código que copia os dados da planilha seguinte na planilha C001 e depois deleta a planilha. Ex: copia os dados da planilha C100 para a planilha C001 e depois deleta a planilha C100. 

4- O problema é que não consigo para meu loop até chegar na planilha C197, ele vai fazendo o procedimento até o final das planilhas. 

5- O Worksheets.Count não esta servindo para mim e gostaria de uma ajuda para o loop parar quando chegar em determinada planilha.

 

Segue o código que estou tentando trabalhar: 

 

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("C001").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

Agradeço quem puder ajudar!! 

Responder
Tags do Tópico
4 Respostas
3 Respostas
Wagner Morel
Registered Registered
(@wagner-morel-vidal-nobre)
Entrou: 10 anos atrás

Top
Posts: 4060

@brunoalmeida___ 

Bom dia!

 

eu faria dessa forma. Veja se atende a sua necessidade.

Responder
EdsonBR
Moderator
(@edsonbr)
Entrou: 7 anos atrás

Prominent Member
Posts: 957

Grande amigo @wagner-morel-vidal-nobre!

Saudações em revê-lo por aqui 🥂 . Andastes desaparecido por um bom tempo! 

 

Responder
Wagner Morel
Registered Registered
(@wagner-morel-vidal-nobre)
Entrou: 10 anos atrás

Top
Posts: 4060

@edsonbr 

Bom dia Edson!

 

Obrigado.

É verdade. Andei sumido por uns tempos em função de muito trabalho no dia-a-dia. Mas, agora, vez ou outra, estarei por aqui novamente.

Responder
brunoalmeida___
Posts: 3
Registered
Topic starter
(@brunoalmeida___)
New Member
Entrou: 7 meses atrás

@wagner-morel-vidal-nobre

Boa tarde! 

Obrigado pela resposta. 

Teria como realizar uma contagem de planilhas entre C001 e C197? 

Te faço essa pergunta pq tenho outros blocos nesse arquivo que vou juntar as abas para depois exportar de volta para o txt. Ex: 

 

1 - Juntar as abas do bloco 0 

2 - Juntar as abas do bloco C

E assim por diante nos outros blocos. Após isso, irei organiza-los para exportar e txt. 

Da forma que mandou ajuda, mas não resolve, pois terão arquivos com mais de 6 planilhas por bloco por exemplo. 

Se possível, de uma olhada no arquivo que anexei. 

 

Atenciosamente, 

 

Bruno Almeida

Responder
Compartilhar: