Ir ao conteúdo
  • Cadastre-se

Copiar dados de várias abas para uma aba só, formando uma relação


Felicioe

Posts recomendados

Boa tarde!

Postei o mesmo problema em outro fórum, pois preciso de ajuda um tanto rápido...

Tenho uma que tem umas 150 abas.

Cada aba é uma ficha com dados de um cliente, que preciso alimentar uma primeira aba, que receberá as informações, deixando em colunas.

Se usasse o comando Transpor, até daria, más no meio tem umas células mescladas, que não posso alterar, pois é uma exigência que quem alimenta os dados. Posso usar as fichas com os dados dos clientes, más não posso modificar a estrutura.

Inclusive a tabela que quero gerar era para ser feita em outro arquivo, apenas lendo as informações dos clientes no arquivo base, más sei que ia complicar, ai consegui adicionar uma aba para gerar a tabela.

Em resumo, preciso copiar estas informações para a tabela, de forma tabular - linha por linha

- ou seja, lê a aba1, copia as informações na linha1 da tabela.

- volta na aba2, copia novamente as informações para linha2 da tabela

-Sucessivamente....

Para melhor explicar, em anexo o arquivo zipado. Até comecei a fazer uma macro... más falta conhecimento para concluir...

Conto com vossa ajuda.

TFA

Evandro

Link para o comentário
Compartilhar em outros sites

Tudo JP por aqui!

Teste aí:

Sub teste()

Dim lin As Long
lin = 7

Sheets("Tabela").Select

Do
On Error GoTo OK:

Cells(lin, "A") = ActiveSheet.Next.[A5]
Cells(lin, "B") = ActiveSheet.Next.[B7]
Cells(lin, "C") = ActiveSheet.Next.[B8]
Cells(lin, "D") = ActiveSheet.Next.[B9]
Cells(lin, "E") = ActiveSheet.Next.[B10]
Cells(lin, "F") = ActiveSheet.Next.[B11]
Cells(lin, "G") = ActiveSheet.Next.[B12]
Cells(lin, "H") = ActiveSheet.Next.[B13]
Cells(lin, "I") = ActiveSheet.Next.[B14]
Cells(lin, "J") = ActiveSheet.Next.[B15]
Cells(lin, "K") = ActiveSheet.Next.[B18]
Cells(lin, "L") = ActiveSheet.Next.[B19]
Cells(lin, "M") = ActiveSheet.Next.[B20]
Cells(lin, "N") = ActiveSheet.Next.[B21]
Cells(lin, "O") = ActiveSheet.Next.[B22]
Cells(lin, "P") = ActiveSheet.Next.[B23]
Cells(lin, "Q") = ActiveSheet.Next.[B24]
Cells(lin, "R") = ActiveSheet.Next.[B25]
Cells(lin, "S") = ActiveSheet.Next.[B26]
Cells(lin, "T") = ActiveSheet.Next.[B28]
Cells(lin, "U") = ActiveSheet.Next.[B29]
Cells(lin, "V") = ActiveSheet.Next.[B32]
Cells(lin, "W") = ActiveSheet.Next.[B33]
Cells(lin, "X") = ActiveSheet.Next.[B34]
Cells(lin, "Y") = ActiveSheet.Next.[B35]
Cells(lin, "Z") = ActiveSheet.Next.[B38]
Cells(lin, "AA") = ActiveSheet.Next.[B39]
Cells(lin, "AB") = ActiveSheet.Next.[B40]
Cells(lin, "AC") = ActiveSheet.Next.[B41]
Cells(lin, "AD") = ActiveSheet.Next.[B42]
Cells(lin, "AE") = ActiveSheet.Next.[B45]
Cells(lin, "AF") = ActiveSheet.Next.[B46]
Cells(lin, "AG") = ActiveSheet.Next.[B47]
Cells(lin, "AH") = ActiveSheet.Next.[B48]
Cells(lin, "AI") = ActiveSheet.Next.[B51]
Cells(lin, "AJ") = ActiveSheet.Next.[B52]
Cells(lin, "AK") = ActiveSheet.Next.[B53]
Cells(lin, "AL") = ActiveSheet.Next.[B54]

lin = lin + 1

ActiveSheet.Move After:=ActiveSheet.Next

Loop

OK:
End Sub

Link para o comentário
Compartilhar em outros sites

Nobre!

As vezes você fica imaginando um monstro e não é... Más quem sabe, sabe!

Funcionou sim com os dados oficiais... muito bom!!! Parabéns!

Diz uma coisa, essa planilha vai ser alimentada ao longo do mês...

se alterarem algo que já estava gravado, será que dá para fazer uma observação? marcar com outra cor... algo do tipo... Talvez rodar a macro comparando com os dados já existentes, deixando uma marca...

Estava pensando, se mexerem no que já foi feito, como esta planilha é base para uma projeção de faturamento, vai mudar toda uma base que vai estar relacionada...

De qualquer forma, já salvou meu pescoço!

Link para o comentário
Compartilhar em outros sites

Arquivado

Este tópico foi arquivado e está fechado para novas respostas.

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

APRENDA TUDO SOBRE HARDWARE!

HARDWARE 2022

 

CLIQUE AQUI E BAIXE AGORA MESMO!