Notifications
Clear all

Copiar e Colar com VBA

8 Posts
4 Usuários
0 Reactions
1,457 Visualizações
(@vaggnersf)
Posts: 34
Trusted Member
Topic starter
 

Pessoal, preciso de ajudar para montar esse código.
Na coluna A tenho esses texto como postado.

<STMTTRN>
<TRNTYPE>CREDIT</TRNTYPE>
<DTPOSTED>20140430</DTPOSTED>
<TRNAMT>728.94</TRNAMT>
<FITID>110000</FITID>
<CHECKNUM>110000</CHECKNUM>
<MEMO>DEP CH 24H</MEMO>
</STMTTRN>
<STMTTRN>
<TRNTYPE>CREDIT</TRNTYPE>
<DTPOSTED>20140430</DTPOSTED>
<TRNAMT>347.83</TRNAMT>
<FITID>110000</FITID>
<CHECKNUM>110000</CHECKNUM>
<MEMO>DEP CH 48H</MEMO>
</STMTTRN>

Assim que o código rodar, quero que ele identifiquei o texto <DTPOSTED> na coluna A. Assim identificado esse nome ira copiar para a coluna B todos os dados que ele encontrou nessa célula da Coluna A. Lembrando que preciso que ele apenas copie na mesma linha mais na coluna B
Também quero que ele faça isso para o nome <TRNAMT>, mais esse próximo coloque na mesma linha mais na Coluna C.
Esse outro nome <CHECKUM>coloque na mesma linha mais na coluna D.
Esse outro nome <MEMO>na coluna E.

 
Postado : 15/07/2014 12:07 pm
(@wagner-morel-vidal-nobre)
Posts: 4063
Famed Member
 

vaggnersf,

Boa Tarde!

Veja se é assim.

 
Postado : 15/07/2014 12:46 pm
(@vaggnersf)
Posts: 34
Trusted Member
Topic starter
 

Wagner Morel obrigado pelo código.

Só mais uma ajuda. Tem como fazer esse processo abaixo qual eu quero?

Ao invés de fazer esse comando ele capturar apenas os valores dentro desses campos que ele identifica e colocar na plan2.

Então ficaria assim

Quando ele identificar o <DTPOSTED> 20140430 </DTPOSTED> copiar as informações dentro dos campos que seria 20140430 para a plan 2 – coluna A celula1

Quando ele identificar o <TRNAMT> 728.94 </TRNAMT> copiar as informações dentro do campos que seria 728.94 para a plan 2 – coluna B celula1

Quando ele identificar o <CHECKNUM> 110000 </CHECKNUM> copiar as informações dentro do campos que seria 110000 para a plan 2 – coluna C celula1

Quando ele identificar o <MEMO>DEP CH 24H </CHECKNUM> copiar as informações dentro do campos que seria DEP CH 24H para a plan 2 – coluna D celula1

E assim repetiria esse comando novamente para os próximos e colocando agora na linha 2, linha 3 e demais ate o final do arquivo na plan2.

Ficando assim na plan2

20140430 728.94 110000 DEP CH 24H
20140430 347.83 110000 DEP CH 48H

 
Postado : 16/07/2014 7:19 am
(@edcronos)
Posts: 1006
Noble Member
 

não seria mais pratico e rapido vc postar uma planilha de exemplo de como é e como quer que fique?

veja bem,
a pessoa para te ajudar te que entender oq vc quer,
tem que montar a planilha e testar uma solução.
com uma planilha fica bem mais rápido entender e desenvolver a solução.

att.

 
Postado : 16/07/2014 7:48 am
(@vaggnersf)
Posts: 34
Trusted Member
Topic starter
 

Segue um arquivo de exemplo.

 
Postado : 16/07/2014 8:10 am
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Pessoal boa tarde.
Estou precisando usar um recurso e creio que o copiar e colar vai me atender.
Eu tenho uma planilha em que preciso que o conteúdo da célula E4 seja copiado para a as colunas G ou I ou L ou O de acordo com o valor inserido na célula E1.
Exemplo, se na célula E1 for 1, deve ser copiado para a coluna G, se o conteúdo da célula E2 for 2 o conteúdo tem que ir para a coluna I e assim por diante, são 20 comparações.
Existe ainda um outro problema, o valor dessa célula deve ser copiado para várias linhas nas colunas G ou I ou L ou O, isso de acordo com as linhas preenchidas nas colunas anteriores.
Para ficar mais fácil de entender, se o conteúdo da céula E1 for 1, o conteúdo precisa ser copiado para a coluna G, se na coluna F tiver um X na linha 10, então precisa ser copiado para a linha 10 na coluna G, em cada coluna são varias vezes o X marcado na coluna anterior.
Sendo assim, acredito que seja mais fácil, tentar criar uma fórmula, onde se o conteúdo de E1 for 1 ele copia a coluna G e cola valores na F, se for 2, copiaria o conteúdo da coluna H e colaria na I.
Alguem poderia me ajudar a criar esse "case" que vai te 1 a 20?

 
Postado : 22/07/2014 2:31 pm
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Boa tarde!!

Olá souexcel, o ideal é abrir sua própria postagem!!

Nela poste seu arquivo modelo compactado!!

Att

 
Postado : 22/07/2014 2:37 pm
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Ok, vou criar um post novo e com uma planilha como anexo.

 
Postado : 22/07/2014 4:13 pm