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

[Fuzionzin]

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. 

[Visitante]

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

 

[Fuzionzin]

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

[Visitante]

 

É estranho, pois deveria colar valores e formatos.

 

Quais formatos não estão sendo colados ?

[Fuzionzin]

 

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:

 

 

 

[Visitante]

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.

[Fuzionzin]

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

[Patropi]

@Victor Gandara Bettoni

 

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

 

[]s

[Visitante]

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

 

[Fuzionzin]

@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?

 

[Visitante]

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

 

[Fuzionzin]

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