Macro Copiar Células Específicas para Tabela

[Cassio FP.]

Fala Galera! Preciso de uma ajuda que deve ser simples para vocês. Tenho uma planilha de orçamento e gostaria de tabelar os orçamentos que faço para melhor controle.

Exemplo: Na Plan1 tenho várias informações e quero copiar somente algumas células mais importantes (B14, D16, E22, C32 e E34) e colar na Plan2 em forma de tabela, uma linha após a outra. Ao clicar no botão gravar, estas células devem ser coladas na linha 3 da Plan2 em colunas sequencias. Ao clicar novamente deverá colar na linha 4 da Plan2 e assim por diante.

B14 da Plan1 --> A3 da Plan2

D16 da Plan1 --> B3 da Plan2

E22 da Plan1 --> C3 da Plan2

C32 da Plan1 --> D3 da Plan2

E34 da Plan1 --> E3 da Plan2

 

Ao clicar novamente em gravar, fazer a mesma coisa só que para a linha 4 da Plan2.

[Patropi]

Boa noite Cassio

 

Para facilitar anexe uma planilha de exemplo, pois a programação VBA depende do layout da tua planilha.

Por acaso, essa tua dúvida não foi solucionada pelo Osvaldo em outro fórum?

 

[]s

[Cassio FP.]

Obrigado pela pronta resposta Patropi. Até consegui colar na tabela que preciso fazendo a gravação de macro, mas o loop para colar em linhas sequencias que achei nos tópicos sempre apresenta erro pois não consegui adaptar o que encontrei por aqui... falta bastante conhecimento de vba para mim.

Ao limpar o dados ele apaga tudo inclusive as formulas e não consegui arrumar.

Segue planilha em anexo. Se puder colocar comentários também, me ajudará a aprender.

Desde já agradeço!

Ferramenta teste.rar

[Cassio FP.]

Patropi, consegui resolver. O problema do erro no loop era que eu tinha feito uma tabela e o loop entendia o tamanho inteiro da tabela e não colava em sequencia, apenas no final dela. Eliminei o formato da tabela e funcionou. Desde já obrigado.