Extrair apenos números de uma célula

Ver o tópico anterior Ver o tópico seguinte Ir em baixo

Extrair apenos números de uma célula

Mensagem  KDU em Seg Dez 12, 2011 4:42 pm

Aqui temos uma fórmula para o excel extrair só os números de uma célula;

Exemplo:
Célula contem: a123Car
Resposta= 123

Como funciona ?

Acho que você já utilizou a fórmula PROCV , SOMA, SE, MÉDIA e por ai vai.
Todos as fórmulas são funções que vem dentro do Excel.

Abaixo vamos criar uma função que será uma fórmula no excel.

Vamos lá;

Primeiro vamos inserir um módulo no VBA.

- Abra um excel, agora aperte ( ALT + F11 ), vai abrir uma nova janela. Na barra de ferramentas ( logo acima ) clique em Inserir, depois clique em módulo. Uma janela em branco será criada ao lado.

- Agora copie o código abaixo para dentro daquela página.

Feche a janela do VBA.

Assim voltamos para o Excel.

Na Célula A1 digite - Carlos123Eduardo
Na Célula A2 digite - =numeros("A1")
O resultado será - 123

Pronto, agora você tem uma fórmula que extrai só números de uma Célula.


* DETALHE - A planilha que vc criou tem a fórmula, mas se vc abrir uma outra não vai funcionar ( a não ser que vc coloque esta função ).
Para ficar como definitivo no excel, é preciso converter a planilha para suplemento.

'Macro ------------------------- Copie o código abaixo

Function Numeros(Texto As String)
For Num = 1 To Len(Texto)
If Mid(Texto, Num, 1) <= 9 Then
Numeros = Numeros + Mid(Texto, Num, 1)
End If
Next
End Function




avatar
KDU
Admin

Mensagens : 26
Data de inscrição : 17/08/2011
Idade : 36

http://excel.queroforum.net

Voltar ao Topo Ir em baixo

Não sei se ainda administra o forum...

Mensagem  cachacanaoeagua em Ter Abr 23, 2013 6:13 pm

KDU, essa macro Numeros quase resolve o meu problema.

Porém, como os números que quero extrair dentro de um texto são as vezes decimais, a formula ignora a virgula e retorna valores errados. Como alterar? O que fazer?

Agradeço o tempo dispendido.

cachacanaoeagua

Mensagens : 1
Data de inscrição : 23/04/2013

Voltar ao Topo Ir em baixo

Aqui funcionou ! Por enquanto ...

Mensagem  KDU em Dom Abr 28, 2013 11:59 pm

Cachacanaoeagua, fiz o testes na fórmula e tudo funcionou. bom vamos lá, tem como passar um exemplo? De repente o erro não está na vírgula.

Vlw
avatar
KDU
Admin

Mensagens : 26
Data de inscrição : 17/08/2011
Idade : 36

http://excel.queroforum.net

Voltar ao Topo Ir em baixo

Re: Extrair apenos números de uma célula

Mensagem  Conteúdo patrocinado


Conteúdo patrocinado


Voltar ao Topo Ir em baixo

Ver o tópico anterior Ver o tópico seguinte Voltar ao Topo

- Tópicos similares

 
Permissão deste fórum:
Você não pode responder aos tópicos neste fórum