Ir para conteúdo
Fórum Script Brasil
  • 0

Como copiar celulas de uma tabela oculta


adriano944

Pergunta

Bom Dia Pessoal

Mais uma vez estou aqui solicitando a ajuda de vocês...

Bom.. dessa vez o problema é o seguinte...

eu tenho uma tabela oculta chamada DesenhosNovos, (vinculada a um sharepoint) e gostaria de copiar todas as celulas desta, para uma outra tabela chamada Desenhos Novos, para não correr risco de modificar algo e atrapalhar o sharepoint...porem quando uso o codigo abaixo é apresentado um erro:

Worksheets("DesenhosNovos").Activate

Cells.Select

Selection.Copy

Sheets("Desenhos Novos").Select

Cells.Select

Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _

:=False, Transpose:=False

o erro esta sendo apresentado na segunda linha do codigo...a mensagem é a seguinte:

"Erro em tempo de execução '1004':

O método Select da classe Range falhou"

infelizmente com os conhecimentos que eu tenho, não sei o que fazer...porem desde já agradeço caso alguém possa.

Atenciosamente

Adriano Rocha

Link para o comentário
Compartilhar em outros sites

1 resposta a esta questão

Posts Recomendados

  • 0

Isso deve lhe ajudar:

For i = 1 To 65536
    For j = 1 To 256
        Workbooks("Planilha1.xls").Worksheets("Plan1").Cells(i, j).Value = Workbooks("Planilha2.xls").Worksheets("Plan1").Cells(i, j).Value
    Next j
Next i

Não sei bem como é o ambiente da planílha se não poderiamos usar xlTypeLastCell para demorar um pouco menos a execução.

Editado por KodornaRocks
Link para o comentário
Compartilhar em outros sites

Participe da discussão

Você pode postar agora e se registrar depois. Se você já tem uma conta, acesse agora para postar com sua conta.

Visitante
Responder esta pergunta...

×   Você colou conteúdo com formatação.   Remover formatação

  Apenas 75 emoticons são permitidos.

×   Seu link foi incorporado automaticamente.   Exibir como um link em vez disso

×   Seu conteúdo anterior foi restaurado.   Limpar Editor

×   Você não pode colar imagens diretamente. Carregar ou inserir imagens do URL.



  • Estatísticas dos Fóruns

    • Tópicos
      152,3k
    • Posts
      652,4k
×
×
  • Criar Novo...