Copiar dados de outra planilha

Question

olá a todos

estou com um probleminha bobo mas chato no meu código

estou usando uma planilha para gerenciar as vendas e as entregas dos vendedores, a planilha que gerencia os dados e importa usa listas para escolher qual planilha e qual data vai copiar as entregas. até ai tudo bem, o que tá pegando é quando eu seleciono os dados na planilha de origem estou usando o seguinte código

wsOrigem.Range("B16:G300").Copy

wsOrigem é a variável definida como workbook com a arquivo de destino dos dados e tal...

o que tá acontecendo é que a planilha pode ter ou não 300 vendas em um dia por isso preciso selecionar apenas o inervalo que contenha dados para isso o código:

Range("B16", Range("G1048576").End(xlUp)).Copy

mas só funciona na planilha ativa, mesmo eu usando:

wsOrigem.Range("B16", Range("G1048576").End(xlUp)).Copy

não funciona, retorna o erro: O Método Range do objeto "_Worksheet" falhou

gostaria de ajuda para copiar apenas o intervalo de dados que contenha valores da planilha de destino lembrando que os dados nem sempre são contíguos.

Answer 1

wsOrigem.Range("B16", wsOrigem.Range("G1048576").End(xlUp)).Copy


'ou:

With wsOrigem
    .Range("B16", .Range("G1048576").End(xlUp)).Copy
End With

---

http://www.ambienteoffice.com.br - http://www.clarian.com.br