Fóruns
Microsoft Excel - 2...
2024 - VBA & Macros
Macro Copiar valore...
 
Notifications
Clear all

Macro Copiar valores e colar apos a ultima linha preenchida

 
2024 - VBA & Macros
Post Recente por TutoElizeu 9 anos atrás
6 Posts
3 Usuários
0 Reactions
1,215 Visualizações
RSS
 TutoElizeu
(@tutoelizeu)
Posts: 0
New Member
Topic starter
 

Boa tarde mestres!

Estou com um grande problema, preciso fazer uma macro que copie os valores de uma aba de uma planilha (Aba Colar_ZSDQ), porem somente os valores da coluna "C" (Data do faturamento) e da coluna "L" (Emissor Ord) e cole esses valores apos a ultima linha preenchida de uma outra aba da mesma planilha (Aba BD_Compras)

Apos rodar esta macro vou fazer uma formula para trazer a ultima data de compra na aba BD compras e na aba Colar_ZSDQ, vou fazer um procv por Emissor Ord para saber quando foi realizado a ultima compra deste ckliente.
A aba Colar_ZSDQ é alterada todo dia.

Obrigado

 
Postado : 28/12/2015 11:57 am
 MPrudencio
(@mprudencio)
Posts: 0
New Member
 

Sem um modelo do arquivo, os dados nao importam.... fica impossivel ajudar.

 
Postado : 28/12/2015 12:17 pm
 TutoElizeu
(@tutoelizeu)
Posts: 0
New Member
Topic starter
 

Me perdoe meu amigo,

Eu não lembro como eu faço para anexar um arquivo.

Você pode me ajudar?

Muito obnrigado.

 
Postado : 28/12/2015 2:18 pm
 Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
 


TutoElizeu, não fica impossível ajudar, mas certamente demandaria mais dificuldade e mais trocas de mensagens.

Para anexar, ao abrir a resposta ao tópico, selecione Editor completo e selecione a aba Adicionar um anexo/Escolher arquivo...

 
Postado : 28/12/2015 3:22 pm
 MPrudencio
(@mprudencio)
Posts: 0
New Member
 

A questao é que sem um modelo quem escrever o codigo vai escrever um codigo generico e se quem pergunta nao sabe nada, o resultado é que sera sem utilidade, o que ira gerar retrabalho.

O codigo por ele mesmo ja esta ae

Sub Copiar()

Sheets("Colar_ZSDQ").Select
Range("C2").Select
Selection.Copy
Sheets("BD_Compras").Select
Range("A1048576").End(xlUp).Select
ActiveCell.Offset(1, 0).Select
ActiveSheet.Paste
Application.CutCopyMode = False
Sheets("Colar_ZSDQ").Select
Range("L2").Select
Selection.Copy
Sheets("BD_Compras").Select
ActiveCell.Offset(0, 1).Select
ActiveSheet.Paste
Application.CutCopyMode = False
Range("A2").Select
Sheets("Colar_ZSDQ").Select
Range("A2").Select
End Sub

 
Postado : 28/12/2015 6:42 pm
 TutoElizeu
(@tutoelizeu)
Posts: 0
New Member
Topic starter
 

Muito obrigado meu amigo!

...E pode deixar que não esquecerei mais de colocar o arquivo.
Esse código já me ajudou muito.

Você e vocês todos estão de parabéns!!!

Deus abençoe!

 
Postado : 29/12/2015 7:18 am
Forum Jump:
  Tópico Anterior
Próximo Tópico