camilaoliver

Olá, tudo bem?

 

Estou há dias quebrando a cabeça com uma macro, onde preciso automatizar um processo que copie e cole as informações de uma determinada planilha e cole em uma nova.

Criei uma macro manualmente, onde o processo flui perfeitamente, mas quando vai colar os valores e a formatação, informa erro de “PasteSpecial”.

 

Podem por gentileza me ajudar?

 

Abaixo código que eu criei para selecionar, copiar e migrar os dados para outra planilha:

 

 

Sub COPY_AND_PASTE()

 

'Sheets(GERAL)'

 

Dim appExcel As Excel.Application

Dim Workbook As Worksheets

Dim wsOrigem As Worksheet

 

'Seleciona e copia as informações'

Sheets("prod_anls").Range("T5:AU87").Copy

 

'Abre o excel para substituir as informações'

Workbooks.Open Filename:="\\mscluster07fs\cdpf\relatorios\Painel de Gestao\Produtividade LY\PROD_LY\PROD_LY_09082019_teste.xlsx"

 

'Apaga os dados para substituição'

Sheets("GERAL").Select

Cells.Select

Selection.Delete Shift:=xlUp

 

'ERRO AO COLAR ESPECIAL'

Range("A5").Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _

        :=False, Transpose:=False

 

'Até aqui ok'

       

'Sheets(ALCADA)'

 

'Volta para planilha origem'

Windows("Painel_de_Gestao_LY_v5.xlsm").Activate

       

'Seleciona e copia as informações'

Sheets("prod_anls_alcada").Range("T5:CA93").Copy

 

'Volta para planilha destino'

Windows("PROD_LY_09082019_teste.xlsx.xlsm").Activate

 

'Apaga os dados para substituição'

Sheets("ALCADA").Select

Cells.Select

Selection.Delete Shift:=xlUp

 

'ERRO AO COLAR ESPECIAL'

Range("A5").Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _

        :=False, Transpose:=False

       

'Até aqui ok'

 

End Sub