Exportar Informações - banco de dados

Question

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.

Answer 1

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.

Answer 2

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