Ir ao conteúdo
  • Cadastre-se

Excel Copiar e colar de uma planilha usando o ThisWorkbook e ActiveWorkbook


Posts recomendados

Tenho que montar diversos relatórios(planilha 2) com nomes e localizações diferentes, as informações que vão em todos são oriundas da mesma "base de informação(planilha1)". Salvei os códigos em um planilha 3, que serve de template para a planilha 2 de maneira que eu as não modifique. Cheguei na seguinte "Solução":
 

Dim caminho As Variant
Dim este As Workbook, outro As Workbook

Application.DisplayAlerts = False
caminho = ("C:\Users\mathe\OneDrive - Fugro\DRILLING\demandas\220718\1.xlsx")

Workbooks.Open caminho
Set este = ThisWorkbook
Set outro = ActiveWorkbook

outro.Sheets(2).Range("A2").Copy
este.Sheets(1).Range("B28").PasteSpecial
outro.Sheets(2).Range("B2:F2").Copy
este.Sheets(1).Range("I29:I33").PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:= _
    False, Transpose:=True

 

Porém, o que acontece é que ele cola na planilha 3 (Template) ao invés de colar na planilha 2 (Relatório Original), eu acho que precisaria de uma alternativa para o ThisWorkbook, mas não faço ideia do que poderia ser usado. Alguém faz ideia do que pode ser? 

 

 

Link para o comentário
Compartilhar em outros sites

Boas @Matheus Orchulhak ,

 

Experimente algo deste género:
 

Dim caminho As String
Dim este As Workbook, outro As Workbook

Application.DisplayAlerts = False
caminho = ("C:\Users\mathe\OneDrive - Fugro\DRILLING\demandas\220718\1.xlsx")

Set outro = ActiveWorkbook
Set este = Workbooks.Open(caminho)

outro.Sheets(2).Range("A2").Copy
este.Sheets(1).Range("B28").PasteSpecial
outro.Sheets(2).Range("B2:F2").Copy
este.Sheets(1).Range("I29:I33").PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:= _
    False, Transpose:=True

 

Link para o comentário
Compartilhar em outros sites

Crie uma conta ou entre para comentar

Você precisa ser um usuário 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 comunidades 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...