Ir ao conteúdo
  • Cadastre-se
Fuzionzin

Excel RESOLVIDO Macro para copiar e colar de forma sequencial de várias planilhas em uma

Posts recomendados

Olá!

Precisava copiar tabelas (5L x 2 C) que estão no mesmo arquivo, porém em planilhas diferentes e colar em uma planilha só do mesmo arquivo.

Exemplo: Irei copiar da 2ª planilha (aba) no intervalo O29:P33, e colar na planilha que irá unificar todos os dados (primeira planilha) nas células G1:H5. Em seguida na 3ª planilha, copio as células O29:P33 e colo na primeira planilha, porém logo abaixo da primeira tabela que copiei, ou seja, nas células G6:H10, e assim por diante.

Caso não tenha ficado claro, posso explicar melhor. 😀

Compartilhar este post


Link para o post
Compartilhar em outros sites
33 minutos atrás, Victor Gandara Bettoni disse:

... e colar na planilha que irá unificar todos os dados ... <~~~ essa deverá ser a planilha ativa ao rodar o código abaixo

 

Sub ReplicaDados()
 Dim ws As Worksheet
  For Each ws In ThisWorkbook.Worksheets
   If ws.Name <> ActiveSheet.Name Then ws.[O29:P33].Copy Cells(Rows.Count, 7).End(3)(2)
  Next ws
End Sub

 

  • Curtir 1

Compartilhar este post


Link para o post
Compartilhar em outros sites

@osvaldomp Muito obrigado pela presteza. Funcionou, porém precisava copiar e colar como Valores e Formatação Original (E) 

Compartilhar este post


Link para o post
Compartilhar em outros sites

 

É estranho, pois deveria colar valores e formatos.

 

Quais formatos não estão sendo colados ?

Compartilhar este post


Link para o post
Compartilhar em outros sites

 

Na verdade, os formatos vieram corretamente. O que está acontecendo é que o Excel não identifica as células para a referência. Veja imagem:

 

 

 

image.png.488ac49fc12ccfa879586c9acf74d2fb.png

Compartilhar este post


Link para o post
Compartilhar em outros sites

Imagens não servem. Disponibilize uma amostra do seu arquivo Excel com o código instalado e com o resultado obtido após rodar o código.

Compartilhar este post


Link para o post
Compartilhar em outros sites



Segue o arquivo.
Não consegui anexar arquivo habilitado para MACROS aqui

Compartilhar este post


Link para o post
Compartilhar em outros sites

@Victor Gandara Bettoni

 

Arquivos com macros devem estar Zipados (Compactados) para conseguir anexar.

 

[]s

  • Curtir 1

Compartilhar este post


Link para o post
Compartilhar em outros sites
2 horas atrás, Victor Gandara Bettoni disse:

Não consegui anexar arquivo habilitado para MACROS aqui

 

Veja a penúltima linha das minhas postagens. 🤪

 

Instale uma cópia do código abaixo no lugar do anterior.

Incluí também um comando para limpar G:H antes de replicar os dados. Se você não quiser esta operação basta excluir o comando.

Se você quiser replicar também a cor de preenchimento então remova o apóstrofo (destacado em vermelho) do início desta linha 'Cells(...

 

Sub ReplicaDados()
 Dim ws As Worksheet
 [G:H].Clear
  For Each ws In ThisWorkbook.Worksheets
   If ws.Name <> ActiveSheet.Name Then
    ws.[O29:P33].Copy
    Cells(Rows.Count, 7).End(3)(2).PasteSpecial Paste:=xlPasteValuesAndNumberFormats
    'Cells(Rows.Count, 7).End(3).Offset(-4).PasteSpecial Paste:=xlFormats
   End If
  Next ws
End Sub

 

  • Curtir 1

Compartilhar este post


Link para o post
Compartilhar em outros sites

@osvaldomp Funcionou perfeitamente!

Para usar essa pasta de trabalho em outras semelhantes, qual alteração precisaria fazer no código?

 

Digo, como fazer ela ficar como planilha base para usar em outras?

 

Compartilhar este post


Link para o post
Compartilhar em outros sites

Opções:

 

1. para utilizar essa macro em outro arquivo, a partir desse arquivo, será preciso alterar ThisWorkbook pelo nome do outro arquivo (arquivo em que a macro atuará); ou ao invés de alterar e colocar o nome diretamente no código, você poderá colocar o nome do arquivo em uma célula da planilha ativa (no seu caso Plan1) e aí substituir ThisWorkbook pelo endereço da célula.

 

2. você pode utilizar essa macro em outro arquivo, de forma independente, para isso basta instalar uma cópia do código no outro arquivo (sem qualquer alteração)

 

3. você pode salvar essa macro no arquivo PERSONAL.xlsb e utilizá-la em qualquer outro arquivo; nesse caso será preciso alterar ThisWorkbook (na minha opinião esta é a melhor opção, pois o xlsb foi concebido para essa finalidade e pode armazenar múltiplas macros)

 

Se interessar pergunte ao Sábio Google sobre excel arquivo personal.xlsb. Irá retornar o link abaixo, entre outros milhares.

https://support.office.com/pt-br/article/criar-e-salvar-todas-as-macros-em-uma-única-pasta-de-trabalho-66c97ab3-11c2-44db-b021-ae005a9bc790

 

  • Obrigado 1

Compartilhar este post


Link para o post
Compartilhar em outros sites
1 hora atrás, osvaldomp disse:

Opções:

 

1. para utilizar essa macro em outro arquivo, a partir desse arquivo, será preciso alterar ThisWorkbook pelo nome do outro arquivo (arquivo em que a macro atuará); ou ao invés de alterar e colocar o nome diretamente no código, você poderá colocar o nome do arquivo em uma célula da planilha ativa (no seu caso Plan1) e aí substituir ThisWorkbook pelo endereço da célula.

 

2. você pode utilizar essa macro em outro arquivo, de forma independente, para isso basta instalar uma cópia do código no outro arquivo (sem qualquer alteração)

 

3. você pode salvar essa macro no arquivo PERSONAL.xlsb e utilizá-la em qualquer outro arquivo; nesse caso será preciso alterar ThisWorkbook (na minha opinião esta é a melhor opção, pois o xlsb foi concebido para essa finalidade e pode armazenar múltiplas macros)

 

Se interessar pergunte ao Sábio Google sobre excel arquivo personal.xlsb. Irá retornar o link abaixo, entre outros milhares.

https://support.office.com/pt-br/article/criar-e-salvar-todas-as-macros-em-uma-única-pasta-de-trabalho-66c97ab3-11c2-44db-b021-ae005a9bc790

 

 

 

Segui a opção 3 e consegui. Agora tirando ThisWorkbook, substitui por ActiveWorbook

  • Curtir 1

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...

Aprenda_a_Ler_Resistores_e_Capacitores-capa-3d-newsletter.jpg

EBOOK GRÁTIS!

CLIQUE AQUI E BAIXE AGORA MESMO!