Como copiar celulas de uma tabela oculta

[adriano944]

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

[KodornaRocks]

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 Junho 15, 2009 por KodornaRocks