Guru do Excel e Power BI

Criei uma planilha para receber os dados dos extratos bancários que copio das páginas dos bancos para uma finalidade "x".
Seleciono no internet banking os valores que quero, clico <Ctr+C>, depois no Excel dou "Colar Valores".
O resultado, por exemplo, consta do anexo.
Repare que quando importo os dados, os números vêm com "C", se crédito ou "D" se débito ( vide E6:E19).
Porém preciso para a finalidade "x", os números simples, sem letras ou sinais de "+" ou "-" (vide J6:J19).

Depois de muito tempo consegui chegar a seguinte formula para transformar os valores da célula E6 nos da coluna J6:

=SE(SEERRO(LOCALIZAR("c";E6;1);0)=0;SE(SEERRO(LOCALIZAR("d";E6;1);0)=0;0;VALOR(ESQUERDA(E6;SEERRO(LOCALIZAR("d";E6;1);0)-2)));VALOR(ESQUERDA(E6;SEERRO(LOCALIZAR("c";E6;1);0)-2)))

A lógica é se tiver "C", tira o "C". Se tiver "D", tira o "D", se não tiver nada coloca zero. Como? Aproveitando os caracteres mais à esquerda, desprezando os dois últimos da sequência. Depois, como é texto, transformei o texto em valor. Resumindo, um caminho super complicado para algo simples. Não estou satisfeito.

Pergunto: alguém sabe existe alguma função apropriada que faça isto ou alguma uma maneira menos complicada de transformar a notação contábil em número simples?

Valeu pela ajuda!

Boa noite Edimilson.
Veja se o anexo lhe atende.
at
gfranco

nota: é necessário habilitar as macros para funcionar.

Tente esta fórmula: =SE(ÉTEXTO(A1);VALOR(ESQUERDA(A1;LOCALIZAR(" *";A1)-1));A1)

Outra possibilidade; experimente:
SE(E6="";"";SUBSTITUIR(SUBSTITUIR(E6;" C";"");" D";"")*1)
ou
SE(E6="";"";ESQUERDA(E6;NÚM.CARACT(E6)-2)*1)

gfranco escreveu:Boa noite Edimilson.
Veja se o anexo lhe atende.
at
gfranco

nota: é necessário habilitar as macros para funcionar.

Olá. Muito legal! Já é um caminho bem melhor que o meu. Mas como fazer a função "=valor_bancario()"?

Estevaoba escreveu:Tente esta fórmula: =SE(ÉTEXTO(A1);VALOR(ESQUERDA(A1;LOCALIZAR(" *";A1)-1));A1)

Olá. Não funcionou. Mas valeu assim, mesmo.

Reinaldo escreveu:Outra possibilidade; experimente:
SE(E6="";"";SUBSTITUIR(SUBSTITUIR(E6;" C";"");" D";"")*1)
ou
SE(E6="";"";ESQUERDA(E6;NÚM.CARACT(E6)-2)*1)

Pôxa! Deu show! Parabéns. Ficou bem mais simples. Valeu!

Reinaldo escreveu:Outra possibilidade; experimente:
SE(E6="";"";SUBSTITUIR(SUBSTITUIR(E6;" C";"");" D";"")*1)
ou
SE(E6="";"";ESQUERDA(E6;NÚM.CARACT(E6)-2)*1)

Cara, esse "*1" veio da onde? Esse tipo de coisa me deixa chateado. Como algo tão simples transforma texto em número? Há alguma explicação? Valeu mais uma vez.

Bom dia Edimilson.
Vc pode utilizar essa planilha que enviei para colar os seus dados e utilizar a UDF "VALOR_BANCARIO" igual vc usa uma fórmula do excel de soma (por exemplo) digitando o sinal de igual "=" e em seguida o nome da função igual eu fiz no exemplo.
at
gfranco

Cara, esse "*1" veio da onde? Esse tipo de coisa me deixa chateado. Como algo tão simples transforma texto em número? Há alguma explicação?

A função multiplicação tenta identificar e converter um valor informado como texto em numero.
Por isso *1 (já que qualquer valor vezes um e o próprio valor); converte "automaticamente" em valor numerico

Tambem pode ser feito desta forma para transformar em numero

Exemplo 1 SE(E6="";"";0+SUBSTITUIR(SUBSTITUIR(E6;" C";"");" D";"")*1)

Exemplo 2 SE(E6="";"";VALOR(SUBSTITUIR(SUBSTITUIR(E6;" C";""));" D";"")*1)

Decio

corrigindo pois não tem editar


Exemplo 1 SE(E6="";"";0+SUBSTITUIR(SUBSTITUIR(E6;" C";"");" D";""))

Exemplo 2 SE(E6="";"";VALOR(SUBSTITUIR(SUBSTITUIR(E6;" C";""));" D";""))

Decio

Decio o editar esta contido no botao com um engrenagem e seta pra baixo

Reinaldo, Bom Dia, Obrigado na próxima vou usar abraços

Decio