Fóruns
Microsoft Excel - 2...
2024 - VBA & Macros
Unificar vários arq...
 
Notifications
Clear all

Unificar vários arquivos (excel) em uma única planilha

 
2024 - VBA & Macros
7 Posts
2 Usuários
0 Reactions
1,559 Visualizações
RSS
 mcml.lima
(@mcml-lima)
Posts: 12
Active Member
Topic starter
 

Boa tarde!

Tentei usar as informações deste tópico e de mais alguns postados aqui como o abaixo, mas não consegui resolver meu problema.

viewtopic.php?f=10&t=4951&p=26250&hilit=consolidar+planilhas#p26250

Tenho uma pasta de trabalho com várias planilhas (1 para cada dia do mês) que preciso transformar em uma só.

As colunas são as mesmas, porém o número de linhas variam e há linhas vazias e subtotais.

Tentei via Consolidar, porém não quero consolidar, quero apenas colocar as informações em uma única planilha.

Tentei Consulta no Microsoft Query, porém, só consigo inserir a primeira planilha, pois quando insiro as demais ficam como novas colunas, vi no site guiadoexcel.com.br como editar a consulta utilizando a função UNION ALL, porém teria que fazer isso 30 vezes para todos os meses de 2014.

Gostaria de saber se há alguma sugestão em VBA ou mesmo em query, em que seja um processo mais rápido, por exemplo

Eu consigo criar uma macro que busque em uma planilha a ultima linha e coluna e cole na próxima linha vazia de outra planilha, porém não consigo fazer "buscar" quantas planilhas existem no arquivo.

Obrigada

 
Postado : 10/03/2015 1:16 pm
Fernando Fernandes
 Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

mcml.lima

Movi tua dúvida para um novo tópico.

Sempre crie um novo tópico para as tuas dúvidas, não poste em tópicos dos outros.
Cole o link dos tópicos que você acha que podem ajudar, mas num novo tópico.

Leia as regras do fórum,

[]s

Patropi - Moderador

Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel

 
Postado : 10/03/2015 4:50 pm
Fernando Fernandes
 Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Bom dia!!

Use a pesquisa do fórum!
http://www.google.com.br/cse?cx=partner ... s%20(excel)%20em%20uma%20%C3%BAnica%20planilha&gsc.page=1

Poste seu arquivo modelo compactado!

Att

Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel

 
Postado : 11/03/2015 6:55 am
 mcml.lima
(@mcml-lima)
Posts: 12
Active Member
Topic starter
 

Boa tarde!

Obrigada por mover, só postei em outro tópico por acreditar que seria mais fácil explicar.

Usei a pesquisa do fórum, copiei e colei.

Em anexo a planilha compactada.

Para resumir, preciso colocar as informações de cada planilha em apenas uma sem consolidar, de maneira um pouco mais prática, pois terei que fazer isso para todos os meses de 2014.

Se alguém puder fazer alguma sugestão, fico grata.

Obrigada
Michele Lima

Fluxo - Fevereiro 2015 - Copia.rar
 
Postado : 11/03/2015 10:57 am
Fernando Fernandes
 Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Boa tarde!!

Digamos que você tem uma guia Principal de nome AleVBA, então insira o código abaixo.

Public Sub AleVBA_14953()
Dim ws  As Worksheet, _
    LR1 As Long, _
    LR2 As Long
Application.ScreenUpdating = False
For Each ws In ActiveWorkbook.Worksheets
    If ws.Name <> "AleVBA" Then
        LR1 = Sheets("AleVBA").Range("A" & Rows.Count).End(xlUp).Row + 1
        LR2 = ws.Range("A" & Rows.Count).End(xlUp).Row
        ws.Range("A2:H" & LR2).Copy Destination:=Sheets("AleVBA").Range("A" & LR1)
    End If
Next ws
Application.ScreenUpdating = True
End Sub

Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel

 
Postado : 11/03/2015 11:19 am
 mcml.lima
(@mcml-lima)
Posts: 12
Active Member
Topic starter
 

Boa tarde!

Alexandre,

Excelente.

Era exatamente isso.

Muito obrigada.

 
Postado : 11/03/2015 11:44 am
Fernando Fernandes
 Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Boa tarde!!

Eu fico feliz em ajudar, obrigado pelo retorno!!

Att

Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel

 
Postado : 11/03/2015 11:56 am
Forum Jump:
  Tópico Anterior
Próximo Tópico