Página 1 de 1

Extrair texto com máscara de entrada

Enviado: 17 Abr 2015 às 14:46
por erickhenrique
Olá,

Possuo a célula A1 com a seguinte máscara de entrada personalizada: 000"/IPAA/2015".
Ao digitar 252 na célula A1, tenho: 252/IPAA/2015

Quando eu copio o valor de A1 com a função CONCATENAR para outra célula com a instrução a seguir, na célula D1:=Concatenar("Código: ";A1) , obtenho: "Código: 252"

Como posso copiar o restante do conteúdo da célula A1 (que foi inserida na célula A1 através da máscara de entrada personalizada)? Pode ser via VBA também... já tentei muitas coisas mas não consegui!

PS. O complemente "/IPAA/2015" não pode ser incluído dentro da função CONCATENAR. Preciso que o texto seja extraído da célula A1 por completo... É possível?

Re: Extrair texto com máscara de entrada

Enviado: 17 Abr 2015 às 15:02
por laennder
Olá Erick, muito interessante a sua questão. Eu fiz o seguinte para resolver.

A gente pode utilizar a função TEXTO para formatar uma célula utilizando os números de formato personalizados. Porém como você disse que não poderia digitar o formato 000"/IPAA/2015" diretamente na fórmula, e sim extrair da célula, criei uma função em VBA para fazer essa extração.

Ela é bem simples, e retorna o formato de número da célula passada dentro do parâmetro.
Código: Selecionar todos
Function PegaFormato(str As Range) As String

    PegaFormato = CStr(str.NumberFormat)

End Function
Agora é só aplicar na sua fórmula.
Código: Selecionar todos
=CONCATENAR("Código: ";TEXTO(A1;PegaFormato(A1)))
Estou anexando uma arquivo exemplo para você entender melhor.