Notifications
Clear all

Juntar 53 Planilhas em 1

4 Posts
2 Usuários
0 Reactions
841 Visualizações
(@estevao84)
Posts: 2
New Member
Topic starter
 

Bom dia Amigos.
Sou novo aqui e este é meu primeiro post.
Estou com um problema, tenho um arquivo com 53 Planilhas e preciso junta las em uma única.
Já peguei algumas macros em VBA aqui no Fórum porém elas funcionaram parcialmente, quando digo parcialmente é porque elas não copiaram as planilhas inteiras ficaram faltando linhas.
Alguém pode me ajudar?
Desde já agradeço.

 
Postado : 21/05/2015 8:17 am
(@edcronos)
Posts: 1006
Noble Member
 

eu não sei exatamente oq o pessoal define como juntar planilhas
mas para mim vai depender de varios fatores

tipo de dados, formatação
tipo de organização

e como ajudar sem saber como é a estrutura da sua planilha ?

Somente é impossíveis até que alguém faça
A logica está presa na irracionalidade humana, e morta nos que se consideram donos da verdade.

"ALGUM MODERADOR ME EXPULSE DO FÓRUM POR FAVOR"

 
Postado : 21/05/2015 8:38 am
(@estevao84)
Posts: 2
New Member
Topic starter
 

Boa tarde Edcronos
São panilhas de Dabos com algumas celulas coloridas e sem formulas.
Todas tem a mesma estrutura e preciso coloca las uma embaixo da outra.

 
Postado : 21/05/2015 9:15 am
(@edcronos)
Posts: 1006
Noble Member
 

me desculpe pela resposta...

mas então vc vai ter que pesquisar como fazer e fazer muitos testes
pq é mais facil e rapido do que a gente aqui ficar tentando adivinhar
quantas colunas tem, se tem linhas em branco, se tem colunas com mais linhas que outras, se é para copiar e colar apenas até certa linha ...
no mais oq eu posso te adiantar é

dim colin()
ci=letra coluna inicial
cf = letra coluna final
li= linha inicial de onde vai copiar

With Workbooks("nome da pasta de trabalho da origem").Sheets("nome da aba da origem")

Lf=.Cells(Rows.Count, "coloque a letra da coluna que serve de controle" ).End(xlUp).Row  'serve de linha final da origem que vai ser copiada
        colin = .Range(ci & li, cf & lf).Value2

    End With

Li=Cells(Rows.Count, "coloque a letra da coluna que serve de controle" ).End(xlUp).Row+1
lf=li+ UBound(colin, 1)-1'linha final

Range(ci & li, cf & lf).Value2=colin

Somente é impossíveis até que alguém faça
A logica está presa na irracionalidade humana, e morta nos que se consideram donos da verdade.

"ALGUM MODERADOR ME EXPULSE DO FÓRUM POR FAVOR"

 
Postado : 21/05/2015 12:24 pm