Notifications
Clear all

Copiar sheets para arquivos diferentes

7 Posts
2 Usuários
0 Reactions
730 Visualizações
(@diogotca)
Posts: 0
New Member
Topic starter
 

Olá boa tarde a todos.

Não sei como enviar minha dúvida e se vc poderia me ajudar.
Tenho duas planilhas, uma onde faço minhas alterações no VBA e outra onde os usuários já estão inserindo os dados.
Após as alterações tenho que atualizar essa nova planilha com os dados que já haviam sido inseridos na versão anterior (isso no modo manual).
Gostaria de saber como montar um VBA para informar (na planilha nova) a planilha antiga (a qual tem os dados inseridos) e a mesma busca na sheet que eu informar, todos os dados e inserir na planilha nova. Tipo um atualizador. Porém teria que apagar tudo o que tem na nova planilha.

Desdejá agradeço a atenção

 
Postado : 22/04/2015 10:39 am
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Boa tarde!!!

Temos dúvidas similares em nossa base.
http://www.google.com.br/cse?cx=partner ... gsc.page=1

No mais se poder postar os arquivos modelos.
Att

 
Postado : 22/04/2015 12:35 pm
(@diogotca)
Posts: 0
New Member
Topic starter
 

Olá alexandrevba bom dia.
Eu cheguei a ver esses post, porém preciso de um que copie toda a plan sem eu especificar as linhas e colunas. tipo queria uma bem genérica.

Obrigado

 
Postado : 23/04/2015 5:17 am
(@diogotca)
Posts: 0
New Member
Topic starter
 

Lembrando que preciso que substitua todo o conteudo existente

 
Postado : 23/04/2015 5:24 am
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Bom dia!!!

Onde está seu arquivo modelo? :?

Att

 
Postado : 23/04/2015 6:38 am
(@diogotca)
Posts: 0
New Member
Topic starter
 

Na vdd seria uma rotina genérica para transportar dados de uma aba de uma planilha para outra planilha com a mesma aba (planilhas idênticas) seria como um "backup" da aba.

Só lembrando que a quantidade de linhas e colunas são variáveis, então não queria inserir manualmente, mas sim que o sistema verifique as quantidades e as insira

 
Postado : 23/04/2015 7:15 am
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Boa tarde!!

Considerando que os arquivos estejam abertos

Sub AleVBA()
    Workbooks("Origem.xlsx").Sheets("Cadastro").Copy _
    Before:=Workbooks("Destino.xlsx").Sheets("Cadastro")
End Sub

Att

 
Postado : 23/04/2015 10:54 am