Como extrair apenas...
 
Notifications
Clear all

Como extrair apenas o Ano do texto

Página 2 / 2

jcgmcs
Posts: 49
Registered
Topic starter
(@jcgmcs)
Eminent Member
Entrou: 5 anos atrás

Olá boa tde!

Ajuda pra uma formula ou VBA que extraia do texto apenas o Ano e a cole em outra celula.

Exemplo:

Origem: "R5"

Texto: ATIVO AGO/20+

Destino: AI

Colar ano 2020 em "AI5"

OBs: Tenho esta fórmula abaixo em "AI5" mas não colando apenas o Ano.

=SE(R5="";"";(MAIÚSCULA(TEXTO(R5;"aaaa"))))

Obg.

Att, Carlos

 

 

Responder
12 Respostas
EdsonBR
Posts: 895
Moderator
(@edsonbr)
Prominent Member
Entrou: 6 anos atrás

Veja que a fórmula retorna os algarismos do ano e não uma data (são conceitos diferentes). Portanto a célula não deve estar formatada como Data e sim como Geral ou número (sem decimais, obviamente).

 
Postado por: @jcgmcs

...e não funcionou... Qdo teclo Enter é exibido "13/07/1905"

Na verdade funcionou sim. É a exibição (formato de saída) que tem que ser corrigido. Vejamos o porquê: O Excel entende datas como o número de dias que se passaram desde 00 de Janeiro de 1900, portanto o dia 13/07/1905 equivale a 2021 dias após o dia 00/01/1900. Por esse motivo é que o formato da célula não deve ser data, pois vc não quer uma data e sim o ano dela.

Na verdade grande parte dessa discussão poderia ter sido resumida se o arquivo Excel estivesse anexado aqui, como sempre se espera... 😉 👍 

 

Responder
5 Respostas
jcgmcs
Registered
(@jcgmcs)
Entrou: 5 anos atrás

Eminent Member
Posts: 49

Edson boa noite!!

De volta ao tópico... Rsrs

Vc tinha razão na formatação da celula... rss

Bem, o caso éq agora surgiu uma nova necessidade sobre isso: Texto: ATIVO AGO/20+

Eu preciso do Mês e Ano em "AI5"

Podem me ajudar por favor...?

Obg..

Responder
EdsonBR
Moderator
(@edsonbr)
Entrou: 6 anos atrás

Prominent Member
Posts: 895

@jcgmcs, boa noite!

Dá pra usar a mesma fórmula que te passei, com exceção da função ano:

=EXT.TEXTO(R5;LOCALIZAR(" ";R5)+1;6)  Se quiser como Texto

=1*EXT.TEXTO(R5;LOCALIZAR(" ";R5)+1;6)  Se quiser como Data Serial. Nesse caso, formate a célula como Data com formato válido, digamos "ddd/aa"

Responder
jcgmcs
Registered
(@jcgmcs)
Entrou: 5 anos atrás

Eminent Member
Posts: 49

Isso msm q preciso.. Rss

Mas um porém... nas celulas origem que estão vazias, o destino está preenchendo com isso: #VALOR!

É possível corrigir deixando-as vazias e as preenchidas em MAIÚSCULAS tipo assim "AGO/20"...?

Responder
EdsonBR
Moderator
(@edsonbr)
Entrou: 6 anos atrás

Prominent Member
Posts: 895

Maiúscula só considerando a primeira fórmula, ou seja, o retorno será do tipo Texto, pois infelizmente não há formatação do tipo Data/Hora no Excel que retornem o resultado com variações personalizadas maiúsculas/minúsculas.

Essa é uma conhecida limitação do Excel cuja correção está em votação no agora agonizante UserVoice do Excel pra ser mudado, mas que ainda não obteve votação mínima suficiente para atrair a atenção do time do Excel: Excel UserVoice>Excel for Windows>Case Sensitive Date Format Rules

=SEERRO(MAIÚSCULA(EXT.TEXTO(R5;LOCALIZAR(" ";R5)+1;6));"")
Responder
jcgmcs
Registered
(@jcgmcs)
Entrou: 5 anos atrás

Eminent Member
Posts: 49

Bom dia Edson!

Muito obg amigo.. Parece q ficou perfeito, vou testar no decorrer do dia... Abç..

Responder
Página 2 / 2