Notifications
Clear all

Separar Extrato

4 Posts
2 Usuários
0 Reactions
1,246 Visualizações
(@diego_nt)
Posts: 48
Trusted Member
Topic starter
 

Bom dia,

Numa empresa minha a unica hipotese que tenho de ter o extrato é o que segue no ficheiro.

O problema é que o ficheiro original tem para mais de 1000 linhas.

Com algumas esquerdas e localizares consigo tirar alguns valores mas não consigo tirar tudo como pretendia.

Há forma de fazer como deixei no ficheiro?

Obrigado

 
Postado : 28/03/2013 5:22 am
(@wagner-morel-vidal-nobre)
Posts: 4063
Famed Member
 

Diego_NT,

Boa Tarde!

Veja se como fiz, no arquivo anexo, lhe atende.

 
Postado : 28/03/2013 9:24 am
(@diego_nt)
Posts: 48
Trusted Member
Topic starter
 

Ficou perfeitissimo =)

Mas sendo um zero em VBA se o extrato mudar um bocadinho que seja a macro vai deixar de funcionar?

Por formulas é impossivel certo?

De qualquer modo muito obrigado ficou perfeito!!!

 
Postado : 28/03/2013 12:13 pm
(@wagner-morel-vidal-nobre)
Posts: 4063
Famed Member
 

Diego_NT,

Realmente não sei se é possível fazer com fórmulas. Deixo isso para os mestres do fórum.

Com relação a possíveis mudanças na forma que está disposto o extrato, existem algumas considerações para que a macro funcione sem a necessidade de alteração da mesma:
1 - Os dados do extrato devem estar na coluna D e começarem na linha 7.
2 - Os resultados serão sempre copiados para as colunas F, G e H, começando pela linha 7.
3 - Não há problema se existirem mais dados para o extrato, após a linha 58 pois sempre será capturada a última linha com dados.
4 - A busca da última linha com dados é feita pela coluna D. Qualquer dado que esteja nessa coluna, abaixo dos dados que já estão ali colocados, será interpretado com última linha com dados, mesmo que haja linha sem dados entre o final da lista e o próximo dado.
5 - É possível alterar todo o layout (disposição dos dados) da planilha, desde que tenha o cuidado de alterar também as Range da macro de modo a refletir as novas posições dos dados.

 
Postado : 28/03/2013 12:30 pm