Este fórum está sendo desativado

[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?

[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.