Jump to content

Ganhe $$$ escrevendo tutoriais para nós!


Foto

Macro para separar digitos

MAcro




  • Faça login para responder
1 resposta(s) nesse tópico

#1 ramonbouzada

ramonbouzada
  • Participante
  • 1 mensagens

Publicado 10 July 2012 - 08:54 PM

Boa noite,

Estou com uma dúvida que vem me tirando o sossego a uma longa data. Atualmente, faço na mão, o que me custa tempo e paciencia. Tenho uma planilha que na coluna é tem o seguinte padrão: 201207100001002020.
Onde eu separo na mão em várias colunas sendo que as colunas são:
Coluna A) Data: 8 primeiros digitos "20120710" = 2012/07/10;
Coluna B) Valor: Padrão 7 digitos por 2 digitos após a virgula "000010020" = R$ 100,20;
Coluna C) Setor: 2 digitos

Atualmente, a base de qeu preciso tratar está pequena, mas rumores interno dizem qeu vai passar para mais de 5 mil linha. O que torna inviável realizar esse procedimento.


Existe alguma macro que posso utilizar?



Desde já agradeço a ajuda.


Abraços




#2 osvaldomp

osvaldomp
  • Participante
  • 384 mensagens

Publicado 11 July 2012 - 09:23 PM

... na coluna é tem o seguinte padrão: 201207100001002020. >> seria coluna E ?

Coluna A) Data: 8 primeiros digitos "20120710" = 2012/07/10;
Coluna B) Valor: Padrão 7 digitos por 2 digitos após a virgula "000010020" = R$ 100,20; >> seria 6 + 2 ? 00010020, pois se for 7 + 2, o total de dígitos será = 8 + 7 + 2 + 2 = 19, sendo que o string que você postou possui 18 dígitos
Coluna C) Setor: 2 digitos
Existe alguma macro que posso utilizar? >> pode ser por fórmulas ?

.

Considerei os dados em coluna, a partir de E1; para copiar arraste as fórmulas p/ baixo

1. para obter 2012/07/10
=TEXTO(ESQUERDA(E1;8);"0000\/00\/00")

2. para obter R$ 100,20 , formate a célula para 'Contábil', com 2 casas
=(EXT.TEXTO(E1;9;6)&","&EXT.TEXTO(E1;15;2))+0

3. para obter 20
=(DIREITA(E1;2))+0
Osvaldo






Tópicos Relacionados Collapse

  Tópico Fórum Criado por Estatísticas Última atualização





Ganhe $$$ escrevendo tutoriais para nós!