none
Micro copiar e colar RRS feed

  • Pergunta

  • 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á.

    sexta-feira, 21 de abril de 2017 13:35

Todas as Respostas

  • 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. :)

    sexta-feira, 21 de abril de 2017 15:35
  • Te ajudou?
    segunda-feira, 24 de abril de 2017 21:56