Fóruns
Microsoft Excel - 2...
2024 - VBA & Macros
Macro para copiar d...
 
Notifications
Clear all

Macro para copiar dados e colar de forma sequencial

 
2024 - VBA & Macros
Post Recente por DJunqueira 8 anos atrás
7 Posts
3 Usuários
0 Reactions
2,310 Visualizações
RSS
 FragosoJP
(@fragosojp)
Posts: 101
Estimable Member
Topic starter
 

bom dia pessoal

preciso de uma ajuda para fazer uma macro que copie e cole dados de uma planilha para outra sempre em uma linha abaixo

na net achei esse código em VBA mas nao consegui adaptar para a minha planilha

Sub Copiar2()
Dim LR As Long 'retorna o número da última linha com conteúdo na coluna
LR = Sheets("RELATORIO").Cells(Rows.Count, 1).End(xlUp).Row
Sheets("DADOS").Range("T1;T3;U3").Copy Sheets("RELATORIO").Range("A" & LR + 1)
End Sub

eu preciso copiar os dados da planilha "DADOS" que são: Data, Numero de NFs ok, e valor total da mesma. (esses dados podem ser copiados da tabela dinâmica)
e colar na planilha "RELATÓRIO" sempre uma linha abaixo :

DATA DUPLICATAS VALOR TOTAL
02.09.2016 14 7066117,7
05.09.2016 22 1104252,05

 
Postado : 06/09/2016 6:23 am
DJunqueira
 DJunqueira
(@djunqueira)
Posts: 772
Prominent Member
 

Pq não simplesmente montar uma TD na pasta de trabalho Relatório fazendo a totalização por dia da sua tabela "Tabela1" em DADOS?

Se sua dúvida foi respondida marque o tópico como RESOLVIDO usando o botão com marca verde.

 
Postado : 06/09/2016 6:55 am
 FragosoJP
(@fragosojp)
Posts: 101
Estimable Member
Topic starter
 

Obrigado pela ajuda DJunqueira

essa planilha "DADOS" ela é refeita todos os dias entao eu preciso criar um banco de dados com as informações de cada dia que ela é feita.

de forma sequencial

 
Postado : 06/09/2016 7:26 am
DJunqueira
 DJunqueira
(@djunqueira)
Posts: 772
Prominent Member
 

Qual sua versão do Excel?
É possível fazer o q vc quer com o Power Query / Nova Consulta, veja na planilha anexa as etapas da consulta.

Se sua dúvida foi respondida marque o tópico como RESOLVIDO usando o botão com marca verde.

 
Postado : 06/09/2016 10:15 am
 FragosoJP
(@fragosojp)
Posts: 101
Estimable Member
Topic starter
 

a versão do Excel aqui é a 2010
essa ideia do é muito boa Power Query mas acho q nao da certo

fiz umas alterações da minha planilha e no codigo VBA
que ja me ajuda bastante
o problema que nao consigo fazer colar somente os "valores" através desse código

pode me ajudar ? para que ele ao invés de fazer uma colagem simples cole os dados como valores ?

Sub Copiar2()
  Dim LR As Long 'retorna o número da última linha com conteúdo na coluna
    LR = Sheets("Plan1").Cells(Rows.Count, 1).End(xlUp).Row
  Sheets("DADOS").Range("T1:V1").Copy Sheets("Plan1").Range("A" & LR + 1)
End Sub
 
Postado : 06/09/2016 10:42 am
brunoxro
 brunoxro
(@brunoxro)
Posts: 698
Honorable Member
 

Boa tarde FragosoJP ,

Deixa ver se entendi, você quer copiar os valores da Plan1 do arquivo dados para o arquivo Relatório, independente da quantidade de linhas da Plan1 e logo após a ultima linha da planilha Relatório.

Em anexo coloquei um macro que faz isso, ela só copia os valores, mantenha os dois arquivo na mesma pasta para funcionar corretamente.

 
Postado : 06/09/2016 2:03 pm
DJunqueira
 DJunqueira
(@djunqueira)
Posts: 772
Prominent Member
 

Macro somando e contando colunas depois transferindo resultado p/ segunda tabela.

Se sua dúvida foi respondida marque o tópico como RESOLVIDO usando o botão com marca verde.

 
Postado : 06/09/2016 5:26 pm
Forum Jump:
  Tópico Anterior
Próximo Tópico