Micro copiar e colar

Question

Bom dia

Estou com um problema na minha macro.

Eu quero que ela copia um valor de um outro documento excel(dia) na aba(Plhanilha1) e cola em outro documento(Bolsa de valores)e cola na aba (dados)

Então eu fiz assim:

  

Sub Dia()
  Dim Doc1Origem As Excel.Workbook
  Dim Doc2Origem As Excel.Worksheet
  Dim Doc1Dest As Excel.Workbook
  Dim Doc2Dest As Excel.Worksheet

  'Abre pastas de trabalho e planilhas.
  Set Doc1Origem = Workbooks.Open("C:\Users\SaoJose\Desktop\DADOS BOLSA\dia NA.xlsx")
  Set Doc2Origem = Doc1Origem.Worksheets("Planilha1")
  Set Doc1Dest = Workbooks.Open("C:\Users\SaoJose\Desktop\DADOS BOLSA\BOLSA.xlsm")
  Set Doc2Dest = Doc1Dest.Worksheets("DADOS")
  Doc2Origem.Range("A1:F250").Copy
  Doc2Dest.Cells("A3:F250").Paste Paste:=xlPasteValues

End Sub

Bem ele esta copiando mas não esta colando,Tenho que fazer isso para a semana e para o mês.

OBS:Eu não queria abrir o documento Doc1 pois ja estaria com ele aberto,quando eu executo a macro ele pede para reabrir,então eu só deixaria o Doc1Origem e Doc2 Origem e deleto o Dest?

Obrigado desde já.

Answer 1

Dica para você não precisar mais tirar dúvidas relacionadas ao VBA, vai ficar craque!!!

No excel temos uma funcionalidade de RECORD MACRO, no caso, após ativa-la, tudo que for feito na sua planilha vai por trás gerar um código VBA, realmente "gravando" suas ações.

Use essa funcionalidade para fazer exatamente o que deseja, e analise o código gerado, verá que conseguirá resolver seu problema, e outros caso existam depois.

Se essa resposta de ajudou, não esqueça de marca-la como útil, gerando pontuação. :)

Answer 2

Te ajudou?