Ir ao conteúdo
  • Cadastre-se
camilaoliver

Visual Basic Macro para copiar dados e colar especial em outra planilha

Posts recomendados

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

Compartilhar este post


Link para o post
Compartilhar em outros sites

Crie uma conta ou entre para comentar

Você precisar ser um membro para fazer um comentário

Criar uma conta

Crie uma nova conta em nossa comunidade. É fácil!

Crie uma nova conta

Entrar

Já tem uma conta? Faça o login.

Entrar agora





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!