none
Exportar Informações - banco de dados RRS feed

  • Pergunta

  • Renan, bom dia ! 

    preciso de uma ajuda sua, tenho uma planilha que exporto de um sistema ERP, com informações de estoque., em outra planilha tenho informações de planejamento desses estoques, nessa planilha tenho uma aba em que  copio e colo as informações da planilha exportada do sistema ERP, a questao e que eu estou tentando criar uma macro que faça esse trabalho de copiar todas as informações dessa planilha exportada, para a aba da planilha de planejamento sem que eu precise ficar copiando e colando toda vez ela, apenas com a execução da macro ela ja devera fazer esse trabalho para mim .

    veja oque pode ser feito a respeito fazendo um grande favor.

    estarei no aguardo.

    quinta-feira, 22 de janeiro de 2015 13:35

Respostas

  • Sub pMain()
      Dim wsOrigem As Excel.Worksheet
      Dim wsDest As Excel.Worksheet
      
      'Altere o nome das planilhas para o que está presente na sua planilha:
      With ThisWorkbook
        Set wsOrigem = .Worksheets("Origem")
        Set wsDest = .Worksheets("Dest")
      End With
      
      'Considerando que a tabela importada do Access é colada a partir da célula A1:
      wsOrigem.Range("A1").CurrentRegion.Copy
      
      'Considerando que você quer copiar os dados na célula A1 da planilha de destino:
      wsDest.Range("A1").PasteSpecial xlPasteValues
    End Sub


    Felipe Costa Gualberto - http://www.ambienteoffice.com.br

    quinta-feira, 22 de janeiro de 2015 22:58
    Moderador

Todas as Respostas

  • Olá, bom dia ! 

    preciso de uma ajuda sua, tenho uma planilha que exporto de um sistema ERP, com informações de estoque., em outra planilha tenho informações de planejamento desses estoques, nessa planilha tenho uma aba em que  copio e colo as informações da planilha exportada do sistema ERP, a questao e que eu estou tentando criar uma macro que faça esse trabalho de copiar todas as informações dessa planilha exportada, para a aba da planilha de planejamento sem que eu precise ficar copiando e colando toda vez ela, apenas com a execução da macro ela ja devera fazer esse trabalho para mim .

    veja oque pode ser feito a respeito fazendo um grande favor.

    estarei no aguardo.

    quinta-feira, 22 de janeiro de 2015 13:36
  • Sub pMain()
      Dim wsOrigem As Excel.Worksheet
      Dim wsDest As Excel.Worksheet
      
      'Altere o nome das planilhas para o que está presente na sua planilha:
      With ThisWorkbook
        Set wsOrigem = .Worksheets("Origem")
        Set wsDest = .Worksheets("Dest")
      End With
      
      'Considerando que a tabela importada do Access é colada a partir da célula A1:
      wsOrigem.Range("A1").CurrentRegion.Copy
      
      'Considerando que você quer copiar os dados na célula A1 da planilha de destino:
      wsDest.Range("A1").PasteSpecial xlPasteValues
    End Sub


    Felipe Costa Gualberto - http://www.ambienteoffice.com.br

    quinta-feira, 22 de janeiro de 2015 22:58
    Moderador