Excel Fórmula ou VBA pra deixar apenas "INATIVO JUN/24"

[jcgmcs]

Olá a todos!

Ajuda com essa fórmula: =DIREITA(ESQUERDA(R5;LOCALIZAR("/";R5;1)+6);18)

Ou se possível for, criar um código em VBA será até melhor...

À partir da linha "R5" até "R5000" tenho as variadas informações:

OBs: Lembrando que na coluna "R" há tbém muitas células em branco.

 

INATIVO 12/ABR/23

ATIVO 25/JUN/24+

INATIVO 10/MAI/18

INATIVO 05/JUL/18

INATIVO 25/JUN/22

ATIVO 15/ABR/18+

INATIVO 25/JUN/21

INATIVO 25/JUN/24

ATIVO 25/JUN/18+

ATIVO 02/JAN/22+

 

Preciso que a fórmula ou código me retorne a partir de "Z5" os exemplos abaixo:

 

INATIVO ABR/23

ATIVO JUN/24+

INATIVO MAI/18

INATIVO JUL/18

INATIVO JUN/22

ATIVO ABR/18+

INATIVO JUN/21

INATIVO JUN/24

ATIVO JUN/18+

ATIVO JAN/22+

 

Dsd já agradecido...

 

[Patropi]

@jcgmcs

 

Cadê a planilha anexada com o resultado esperado e detalhes.

 

[]s

[jcgmcs]

Boa tde! Tae meu amigo...

Onde está #VALOR! preciso tbém que fique em branco como o da origem...

obrigado Patropi!!

Excel - Formula dd_mm_aa - Extrair INATIVO.zip

[Patropi]

@jcgmcs

 

Experimente copiar e colar a fórmula abaixo na célula Z5 e arrastar para as demais linhas da coluna:

=SE(R5="";"";SE(ESQUERDA(R5;7)="INATIVO";ESQUERDA(R5;7)&" "&DIREITA(R5;6);ESQUERDA(R5;5)&" "&DIREITA(R5;7)))

 

Dê retorno.

 

[]s

[OreiaG]

Segue outra solução, não inclui o sinal "+" no final.

 

=SE(R5="";"";ESQUERDA(R5;LOCALIZAR(" ";R5)-1)&" "&EXT.TEXTO(R5;LOCALIZAR(" ";R5)+4;6))

 

[jcgmcs]

Boa tde Patropi... Ficou jóiaaa... Funcionando direitinho!!

Oreia agradecido mas preciso sim do "+" no final dos ATIVOS.

Gostaria mesmo era de fazer essa função via VBA se for possível... Éq planilha ficando muito lenta nos processos

com tantas fórmulas...

[OreiaG]

1 hora atrás, jcgmcs disse:

Oreia agradecido mas preciso sim do "+" no final dos ATIVOS.

Basta substituir o número 6 pelo 7 no final da fórmula >>> ...;6)) >>> ...;7))

 

Gostaria mesmo era de fazer essa função via VBA se for possível...

Experimente o código abaixo.

 

Sub ExtraiTexto()
 Dim r As Range
  For Each r In Range("R5:R" & Cells(Rows.Count, "R").End(3).Row).SpecialCells(2, 2)
   r.Offset(, 8).Value = Evaluate("LEFT(" & r.Address & ",SEARCH("" ""," & r.Address & ")-1)&"" ""&MID(" & r.Address & ",SEARCH("" ""," & r.Address & ")+4,7)")
  Next r
End Sub

 

[jcgmcs]

Oreia bom dia!

À princípio o vba funcionando e tá show de bola!!! Mas to tentando entender o código...

o que faz ele processar exatamente na coluna "Z" ? Já q não vejo referência alguma de Z... Pergunto porque na Plan real irei mudar de Z pra "BC"

Preciso tbém q execute automático sempre ao digitar e dar "ENTER"

[OreiaG]

1 hora atrás, jcgmcs disse:

Pergunto porque na Plan real irei mudar de Z pra "BC"

Altere  para >>> r.Offset(, 37).Value

 

Preciso tbém q execute automático sempre ao digitar e dar "ENTER"

Você quer executar ao digitar em qual célula ou em qual coluna ou em qual intervalo?

Você quer executar ao digitar algum conteúdo específico ou qualquer conteúdo?

Já existe no seu arquivo alguma macro executada por evento de planilha? Se sim, então coloque aqui o código completo.

 

[jcgmcs]

Eu já disse lá no início, célula digita é coluna toda em "R" à partir de "R5"

O resultado esperado ae no exemplo está "Z" mas na Plan real irei mudar pra "BC"

E conteúdos é exatamente como estae nos exemplos...

E utilizo sim outras macros no evento: Private Sub Worksheet_Change(ByVal Target As Range)

[OreiaG]

5 horas atrás, jcgmcs disse:

Eu já disse lá no início, célula digita é coluna toda em "R" à partir de "R5"

Não! Você não disse (e nem escreveu...) que os dados são digitados. A informação que você passou é que existem dados na coluna R, mas não informou que foram inseridos por digitação e nem que futuros dados serão inseridos por digitação. A existência de dados na planilha não leva a conclusão de que foram digitados, pois digitação não é a única forma de inserir dados no Excel.

 

O resultado esperado ae no exemplo está "Z" mas na Plan real irei mudar pra "BC"

Veja a alteração que já passei na mensagem anterior.

 

E utilizo sim outras macros no evento: Private Sub Worksheet_Change(ByVal Target As Range)

Já existe no seu arquivo alguma macro executada por evento de planilha? Se sim, então coloque aqui o código completo.

E informe com exatidão o que a macro existente faz.

 

[jcgmcs]

tá beleza obrigado... Achei q tinha sido claro e tbém q amostra q enviei falaria por si só....

Qualquer coisa dou um grito aee... valeu