Ir ao conteúdo
  • Cadastre-se

camilaoliver

Membros Juniores
  • Total de itens

    1
  • Registro em

  • Última visita

  • Qualificações

    N/D
  1. 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

Sobre o Clube do Hardware

No ar desde 1996, o Clube do Hardware é uma das maiores, mais antigas e mais respeitadas publicações sobre tecnologia do Brasil. Leia mais

Direitos autorais

Não permitimos a cópia ou reprodução do conteúdo do nosso site, fórum, newsletters e redes sociais, mesmo citando-se a fonte. Leia mais

×
×
  • Criar novo...

GRÁTIS: minicurso “Como ganhar dinheiro montando computadores”

Gabriel TorresGabriel Torres, fundador e editor executivo do Clube do Hardware, acaba de lançar um minicurso totalmente gratuito: "Como ganhar dinheiro montando computadores".

Você aprenderá sobre o quanto pode ganhar, como cobrar, como lidar com a concorrência, como se tornar um profissional altamente qualificado e muito mais!

Inscreva-se agora!