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